Files
DUTAS/JCL/DTSRQ335.jcl
2025-07-21 11:20:11 -04:00

200 lines
16 KiB
Plaintext

//DTSRQ335 JOB (UI,4300,3400,T),DTSRQ335,CLASS=S, 00010099
// MSGCLASS=X, 00020061
// NOTIFY=ECNTSUP, 00030099
// USER=#DOADTS, 00031099
//**** TYPRUN=SCAN, 00040098
// REGION=0M 00050022
//**** 00060025
//* BUILD DAILY DATABASE EXTRACTS FOR INTRANET WEB APPS 00070099
//* 00081099
//* NO MASTER FILE UPDATES 00090099
//* 00100099
//* JOB RUNS AFTER A SUCESSFULL DAILY UPDATE(DTSPDAY1) 00110099
//* 00111099
//* REMOVED CALL TO DTSBX335. REPLACED BY STEP0510 IN 00120099
//* DESBD300 02/08/2007 GD. 00121099
//* 00122099
//* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099
//* 00124099
//**** 00130090
// SET LVLNODE='PROD' 00140099
// SET MSTNODE='PROD' 00150099
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
//**** 00151099
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00160036
//**** 00170036
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
//**** 00190086
//*TEP0100 EXEC DTSUTVSM, 00191099
//* BKUPGEN='(+1)' 00192099
//* 00193099
//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099
//* 00250099
//STEP0100.DTSFBTCO DD DUMMY 00260061
//STEP0100.DTSFVRO1 DD DUMMY 00270099
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.HOLIDAYS,DISP=SHR 00270199
//* 00271099
//STEP0200 EXEC DTSBX201 REPORT COUNTS 00272099
//**** 00280099
//STEP0300 EXEC DTSBX206 CHANGES TO ARPT-EMP-NO 00281099
//**** 00282099
//*TEP0400 EXEC DTSBX215 ICESA BATCH AUDIT 00283099
//**** 00284099
//STEP0500 EXEC DTSBX347 ACCOUNTING BATCHES 00290099
//********************************************************************* 00291099
//STEP0600 EXEC PGM=IDCAMS 00292099
//SYSPRINT DD SYSOUT=* 00293099
//INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099
// UNIT=CART, 00296099
// VOLUME=(,RETAIN), 00296199
// LABEL=(1,SL,,,EXPDT=99000), 00297099
// DISP=(,CATLG,DELETE), 00298099
// SPACE=(31552,(200,200),RLSE), 00299099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
//**** 00299299
REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399
/* 00299499
//************************************************************ 00299599
//STEP0700 EXEC PGM=SORT, ATH BACKUP 00299699
// COND=(0,LT) 00299799
//SYSOUT DD SYSOUT=* 00299899
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999
// AMP=('BUFNI=5,BUFND=30') 00300099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099
// DISP=(,CATLG,DELETE), 00302099
// UNIT=CART, 00303099
// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
// LABEL=(2,SL,,,EXPDT=99000), 00305099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099
//**** 00310099
//* 00470099
//STEP0110 EXEC PGM=IDCAMS, DELETE/DEFINE NAME FILE 00480099
// REGION=0K 00490099
//SYSPRINT DD SYSOUT=* 00500099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDATH),DISP=SHR 00510099
//* 00520099
//STEP0120 EXEC PGM=DTSBD998, INITIALIZE NAME FILE 00530099
// REGION=4096K 00540099
//SYSOUT DD SYSOUT=* 00550099
//SYSABOUT DD SYSOUT=* 00560099
//SYSABEND DD SYSOUT=* 00570099
//SAIMRPTS DD SYSOUT=* 00580099
//DTSFATH DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00590099
// AMP=('BUFNI=5,BUFND=10') 00600099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIATH),DISP=SHR 00610099
//* 00620099
//COPY1 EXEC PGM=IDCAMS 00640099
//SYSPRINT DD SYSOUT=* 00650099
//INDD01 DD DSN=DOESTAX.PROD.BX415.BTC,DISP=SHR 00660099
//INDD02 DD DSN=DOESTAX.CONV.PRDBX415.BTC,DISP=SHR 00670099
//SYSIN DD * 00680099
REPRO INFILE(INDD01) OUTFILE(INDD02) 00690099
//* 00700099
//COPY1 EXEC PGM=IDCAMS 00710099
//SYSPRINT DD SYSOUT=* 00720099
//INDD01 DD DSN=DOESTAX.PROD.BX440.BTC,DISP=SHR 00730099
//INDD02 DD DSN=DOESTAX.CONV.PRDBX440.BTC,DISP=SHR 00740099
//SYSIN DD * 00750099
REPRO INFILE(INDD01) OUTFILE(INDD02) 00760099
/* 00770099
//COPY1 EXEC PGM=IDCAMS 00780099
//SYSPRINT DD SYSOUT=* 00790099
//INDD01 DD DSN=DOESTAX.PROD.BX442.BTC,DISP=SHR 00800099
//INDD02 DD DSN=DOESTAX.CONV.PRDBX442.BTC,DISP=SHR 00810099
//SYSIN DD * 00820099
REPRO INFILE(INDD01) OUTFILE(INDD02) 00830099
/* 00840099
//************************************************************** 00841099
//* REMOVED STEP HERE JOB DTSRBTCH COPIES FILES 02/16/17 ZL1 00842099
//* 00843099
//* 00844099
//************************************************************** 00845099
// 00850099
//COPY1 EXEC PGM=IDCAMS 00851099
//SYSPRINT DD SYSOUT=* 00860099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00870099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X420.BTC,DISP=SHR 00880099
//SYSIN DD * 00890099
REPRO INFILE(INDD01) OUTFILE(INDD02) 00900099
/* 00910099
//COPY1 EXEC PGM=IDCAMS 00920099
//SYSPRINT DD SYSOUT=* 00930099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.XN420.BTC,DISP=SHR 00940099
//INDD02 DD DSN=DOESTAX.CONV.PRDXN420.BTC,DISP=SHR 00950099
//SYSIN DD * 00960099
REPRO INFILE(INDD01) OUTFILE(INDD02) 00970099
/* 00980099
//COPY1 EXEC PGM=IDCAMS 00990099
//SYSPRINT DD SYSOUT=* 01000099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC,DISP=SHR 01010099
//INDD02 DD DSN=DOESTAX.CONV.PRDXZ420.BTC,DISP=SHR 01020099
//SYSIN DD * 01030099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01040099
/* 01050099
//COPY1 EXEC PGM=IDCAMS 01060099
//SYSPRINT DD SYSOUT=* 01070099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X418.BTC,DISP=SHR 01080099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X418.BTC,DISP=SHR 01090099
//SYSIN DD * 01100099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01110099
/* 01120099
//COPY1 EXEC PGM=IDCAMS 01130099
//SYSPRINT DD SYSOUT=* 01140099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X421.BTC,DISP=SHR 01150099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X421.BTC,DISP=SHR 01160099
//SYSIN DD * 01170099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01180099
/* 01190099
//COPY1 EXEC PGM=IDCAMS 01200099
//SYSPRINT DD SYSOUT=* 01210099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X424.BTC,DISP=SHR 01220099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X424.BTC,DISP=SHR 01230099
//SYSIN DD * 01240099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01250099
/* 01260099
//COPY1 EXEC PGM=IDCAMS 01270099
//SYSPRINT DD SYSOUT=* 01280099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,DISP=SHR 01290099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X427.BTC,DISP=SHR 01300099
//SYSIN DD * 01310099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01320099
/* 01330099
//COPY1 EXEC PGM=IDCAMS 01340099
//SYSPRINT DD SYSOUT=* 01350099
//INDD01 DD DSN=DOESTAX.PROD.TDEC.X429.BTC,DISP=SHR 01360099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X429.BTC,DISP=SHR 01370099
//SYSIN DD * 01380099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01390099
/* 01400099
//COPY1 EXEC PGM=IDCAMS 01410099
//SYSPRINT DD SYSOUT=* 01420099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X430.BTC,DISP=SHR 01430099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X430.BTC,DISP=SHR 01440099
//SYSIN DD * 01450099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01460099
/* 01470099
//COPY1 EXEC PGM=IDCAMS 01480099
//SYSPRINT DD SYSOUT=* 01490099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X435.BTC,DISP=SHR 01500099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X435.BTC,DISP=SHR 01510099
//SYSIN DD * 01520099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01530099
/* 01540099
//COPY1 EXEC PGM=IDCAMS 01550099
//SYSPRINT DD SYSOUT=* 01560099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X436.BTC,DISP=SHR 01570099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X436.BTC,DISP=SHR 01580099
//SYSIN DD * 01590099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01600099
/* 01610099
//COPY1 EXEC PGM=IDCAMS 01620099
//SYSPRINT DD SYSOUT=* 01630099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X451.BTC,DISP=SHR 01640099
//INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X451.BTC,DISP=SHR 01650099
//SYSIN DD * 01660099
REPRO INFILE(INDD01) OUTFILE(INDD02) 01670099
/* 01680099
//* 01690099