This is a lengthy job ... preparing a file for NRJE and finally sending it.
The essential part is at the bottom starting with NRJE workstation_id.
Hope that will help.
Best regards, Andreas Schmidt, CSC, Germany
P.S. I'm not a NRJE specialist but know some people who are ...
---------------------- Forwarded by Andreas Schmidt/HI/CSC on 01/28/99
11:20 AM ---------------------------
Andreas Brunk
01/28/99 10:56 AM
To: Andreas Schmidt/HI/CSC@CSC
cc:
Subject: NRJE sample
PRINT NECMJ010.JOBMAEST.NEN
!JOB NECMJ010,MANAGER.NEN,DATABASE;OUTCLASS=,1;PRI=CS
!Comment *****************************************
!Comment UPDATE CUST-MASTER data set of MASTER DB
!Comment *****************************************
!
!FILE REPORT;DEV=AD02,1;CCTL
!FILE INPUT=GNCMF010.TOMAST
!FILE MASTER=MASTER.database
!CONTINUE
!PURGE IBMCUST.FILE
!BUILD IBMCUST.FILE;REC=-108,,F,ASCII;DISC=10
!FILE IBMFILE=IBMCUST.FILE;ACC=APPEND
!SETJCW XEOEA230=0
!SETJCW MASTERFILE=1
!SETJCW VERSION=1
!SETJCW MODE=2
!SETJCW FROMEC93=1
!SETVAR SITENAME "NEN"
!SETVAR DESTINATION "WBHG2"
!SETVAR CUSTFORM "GNCMF010"
!SETVAR LIBLIST "COEXL.XL.EUROIMED,SOE.PUB.SYS"
!
!Continue
!RUN XEOEA230.OBJECT.EUROIMED;INFO="1";XL="!LIBLIST"
!
!SHOWJCW
!IF (JCW = 0) AND (XEOEA230 = 0) THEN
! Continue
! PURGE GNCMF010.OLDFILE
! Continue
! RENAME GNCMF010.TOMAST,GNCMF010.OLDFILE
! Continue
! BUILD GNCMF010.TOMAST;REC=-132,7,F,ASCII;CCTL;DISC=300000,32
!ELSE
! EOJ
!
!ENDIF
!PURGE MASTCUST.FILE
!BUILD MASTCUST.FILE;REC=-108,,F,ASCII;DISC=500
!FILE OUT=MASTCUST.FILE,OLD;DEV=DISC;ACC=APPEND
!
!SETJCW CIERROR=0
!FCOPY FROM=MASTJCLB.FILE;TO=*OUT
!FCOPY FROM=IBMCUST.FILE;TO=*OUT
!FCOPY FROM=MASTJCLE.FILE;TO=*OUT
!
!IF CIERROR <> 0
! SHOWJCW
! EOJ
!ENDIF
!
!SETJCW NRJEERRORJCW=0
!NRJE WBHG2
S MASTCUST.FILE;MAXREC=108
EXIT
!IF NRJEERRORJCW <> 805
! SHOWJCW
! EOJ
!ENDIF
!
!EOJ
%PRINT MASTCUST.FILE.NEN
//#VRME90A JOB (GEMEJ300),'FEEDBACK FROM COES',
// USER=EMDSBT1,PASSWORD=HP0EMDS,
// CLASS=P,
// MSGCLASS=7,
// MSGLEVEL=(),
// REGION=4000K
//OUT00 OUTPUT DEST=GENEVA,DEFAULT=Y,CLASS=Y,JESDS=ALL
//* *****************************************************************
//* THIS JOB SEND FROM HP TO IBM A FEEDBACK FROM EMDS RECDS RECEIVED
//* *****************************************************************
//STEP010 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT2 DD DSN=RSVXEME0.$PRM.P000.COE.STATS,
// DISP=(MOD,KEEP,KEEP),
// DCB=(RECFM=FB,LRECL=108,BLKSIZE=23436)
//SYSUT1 DD *,DCB=(LRECL=108),DLM=QQ
COE-CUST GNCMF010WBHG29811280209NEN
000002090000002300000046000000000000
00000000000000000000000000002
QQ
//* *****************************************************************
//* STEP TO EXECUTE IN CASE OF ABEND
//* *****************************************************************
//STEP999 EXEC PROC=XXXSCCCR,COND=((0,EQ),EVEN),
// PARM='NOTIFY RESPONSIBLE PROGRAMMER'
//* *****************************************************************
//* END
//* *****************************************************************
//
|