102 lines
6.5 KiB
Plaintext
102 lines
6.5 KiB
Plaintext
//XMITOTR1 JOB (TD,0000,0000,T),PROD.MON.OTRDATA, 00010011
|
|
// MSGCLASS=X,CLASS=P, 00010011
|
|
// NOTIFY=ECNTSUP,MSGLEVEL=(1,1), 00010011
|
|
// USER=#DOADTS, 00010011
|
|
//*** USER=DCGEXS, 00010011
|
|
// REGION=4M //**** PROD VERSION
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//***** 00010011
|
|
//** OTR = OFF.O.TAX & REV EMPLOYER UPDATE DATA 00010011
|
|
//** THIS JOB IS DESIGNED TO RUN AT DOESJES2 AND XMIT A FILE 00010011
|
|
//** TO PROCESS AT ODC2. THE FILE CONTAINS UPDATED EMPLOYER DATA 00010011
|
|
//** FOR FURTHER PROCESSING AT ODC2 (BY OTR). IT IS USUALLY CREATED 00010011
|
|
//** AT MONTH-END BY JOB DTSBX460. 00010011
|
|
//**** 00010011
|
|
// SET LINFILE='DOESTAX.PROD.OTR.TRNS.FILE(-1)' 00010011
|
|
//**** 00010011
|
|
//** STEP010 UNLOADS THE FILE TO BE SENT TO A SENDABLE FORMAT 00010011
|
|
//** DD INFILE MUST POINT TO YOUR SEQUENTIAL INPUT DATA FILE 00010011
|
|
//**** 00010011
|
|
//STEP010 EXEC PGM=IKJEFT01 00010011
|
|
//SYSTSPRT DD SYSOUT=* 00010011
|
|
//SYSPRINT DD SYSOUT=* 00010011
|
|
//INFILE DD DISP=SHR,DSN=&LINFILE. 00010011
|
|
//OUTTEMP DD DSN=&&TEMP,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80), 00010011
|
|
// DISP=(NEW,PASS,DELETE),UNIT=SYSDA, 00010011
|
|
// SPACE=(CYL,(1,1),RLSE) 00010011
|
|
//SYSTSIN DD * 00010011
|
|
TRANSMIT A.B SEQ NONOTIFY NOLOG DDNAME(INFILE) OUTDDNAME(OUTTEMP) 00010011
|
|
/* 00010011
|
|
//******************************************************************** 00010011
|
|
//** TRANSMIT A.B DDNAME(INFILE) OUTDDNAME(OUTTEMP) SEQ NONOTIFY NOLOG 00010011
|
|
//** STEP020 ASSEMBLES THE REMOTE JOB AND SENDS IT TO THE JES2 * 00010011
|
|
//** READER. CHANGE NOTHING ABOVE THE SYSUT1 CARD!! * 00010011
|
|
//** MAKE ONLY THE FOLLOWING CHANGES BELOW SYSUT1: ** 00010011
|
|
//** CHANGE THE JOBCARD TO BE VALID FOR EXECUTION ON THE REMOTE SYS ** 00010011
|
|
//** CHANGE THE /*ROUTE XEQ CARD TO A VALID REMOTE NJE NODE NAME ** 00010011
|
|
//** CHANGE DSNAME('XXX.YYY.ZZZ') TO THE VALID REMOTE FILENAME TO ** 00010011
|
|
//** BE CREATED ON THE REMOTE SYSTEM (NOT A GDG!) ** 00010011
|
|
//** AND MAKE SURE ALL NEEDED SECURITY IS IN PLACE ** 00010011
|
|
//******************************************************************** 00010011
|
|
//STEP020 EXEC PGM=IEBGENER 00010011
|
|
//SYSPRINT DD SYSOUT=* 00010011
|
|
//SYSUT2 DD SYSOUT=(A,INTRDR),DCB=BLKSIZE=80 00010011
|
|
//SYSIN DD DUMMY 00010011
|
|
//* 00010011
|
|
//SYSUT1 DD DATA,DLM=YY 00010011
|
|
//PRNDOTR1 JOB (DC000),'OFF OF TAX & REV', 00010011
|
|
// CLASS=R,MSGCLASS=X,TIME=5, 00010011
|
|
// NOTIFY=DOESJES2.ECNTJP2, 00010011
|
|
// REGION=0M,USER=UINJE01 00010011
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//* 00010011
|
|
//** //* NODE.USERID (TSO) 00010011
|
|
//** //* NODE.VMGUESTID (VM) 00010011
|
|
//** //* GOES TO ODC2.OS12 (DEFAULT) 00010011
|
|
/*ROUTE XEQ ODC2 00010011
|
|
//** //* CHK PRND* SYSOUTS FOR $INFO 00010011
|
|
/*ROUTE PRINT U@PRT65
|
|
//**** //** PULL DATA FROM NJE PIPELINE 00010011
|
|
//STEP01 EXEC PGM=IKJEFT01 00010011
|
|
//SYSTSPRT DD SYSOUT=* 00010011
|
|
//SYSPRINT DD SYSOUT=* 00010011
|
|
//SYSTSIN DD * 00010011
|
|
RECEIVE LOGDATASET('FRDWH.PRD.LOG.MISC') INDDNAME(INFILE) 00010011
|
|
DSNAME('FRDWH.PRD.RS21.PRNDOTRE.DAT.TEMP') 00010011
|
|
/* 00010011
|
|
//INFILE DD * 00010011
|
|
YY 00010011
|
|
// DD DISP=(OLD,DELETE),DSN=&&TEMP 00010011
|
|
// DD DATA,DLM=ZZ 00010011
|
|
/* 00010011
|
|
//**** //* DELETE OLD PRNDOTRE.DAT
|
|
//DELETE1 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEL-
|
|
FRDWH.PRD.RS21.PRNDOTRE.DAT-
|
|
NOERASE
|
|
|
|
IF LASTCC=8 THEN-
|
|
SET MAXCC=0
|
|
/*
|
|
//**** //* CREATE NEW PRNDOTRE.DAT 00010011
|
|
//STEP02 EXEC PGM=IDCAMS, 00010011
|
|
// COND=(0,LT) 00010011
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=FRDWH.PRD.RS21.PRNDOTRE.DAT.TEMP,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//OUTDD01 DD DSN=FRDWH.PRD.RS21.PRNDOTRE.DAT,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(FM60.MODEL.DSCB,
|
|
// RECFM=FB,LRECL=333,BLKSIZE=3330)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
|
/*
|
|
ZZ
|
|
/* 00010011
|
|
//***** 00010011
|