//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