giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
JCL/XMITOTR1.jcl Normal file
View File

@ -0,0 +1,101 @@
//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