261 lines
19 KiB
Plaintext
261 lines
19 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
|
|
//**** RAINCODE TESTED 08/30/25 ZL1 00130090
|
|
// SET LVLNODE='PROD' 00140099
|
|
// SET MSTNODE='PROD' 00150099
|
|
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
|
|
//**** 00151099
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00160036
|
|
//**** 00170036
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
|
|
//**** 00190086
|
|
//*TEP0100 EXEC DTSUTVSM, 00191099
|
|
//* BKUPGEN='(+1)' 00192099
|
|
//* 00193099
|
|
//STEP0100 EXEC DTSBX340
|
|
//*
|
|
//*STEP0100 EXEC DTSZX340
|
|
//* 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),
|
|
//* DISP=SHR
|
|
// DISP=(NEW,CATLG,DELETE), 00180017
|
|
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017
|
|
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000)
|
|
//*
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//* 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),
|
|
// DISP=(NEW,CATLG,DELETE), 00180017
|
|
// UNIT=SYSDA, 00190017
|
|
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 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
|
|
//*
|
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
|
//INPUT DD *
|
|
10.57.110.147 21
|
|
dutasrc
|
|
Today728rc!
|
|
cd //Dutasrc/intranet/Outbound_intranet
|
|
ascii
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHTRN' ECNTSUP.DOESTAX.PROD.FTP.ATHTRN
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHHDR' ECNTSUP.DOESTAX.PROD.FTP.ATHHDR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHRPT' ECNTSUP.DOESTAX.PROD.FTP.ATHRPT
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHATX' ECNTSUP.DOESTAX.PROD.FTP.ATHATX
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHPAY' ECNTSUP.DOESTAX.PROD.FTP.ATHPAY
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHADJ' ECNTSUP.DOESTAX.PROD.FTP.ATHADJ
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.HEADER' ECNTSUP.DOESTAX.PROD.FTP.HEADER
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN' ECNTSUP.DOESTAX.PROD.FTP.LIEN
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC' ECNTSUP.DOESTAX.PROD.FTP.DPC
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.PAYDIST' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.PAYDIST
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.QTR' ECNTSUP.DOESTAX.PROD.FTP.QTR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.RATE' ECNTSUP.DOESTAX.PROD.FTP.RATE
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.QCOLL' ECNTSUP.DOESTAX.PROD.FTP.QCOLL
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.PRF' ECNTSUP.DOESTAX.PROD.FTP.PRF
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.DET' ECNTSUP.DOESTAX.PROD.FTP.DET
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.FSC' ECNTSUP.DOESTAX.PROD.FTP.FSC
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ADR' ECNTSUP.DOESTAX.PROD.FTP.ADR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ERR' ECNTSUP.DOESTAX.PROD.FTP.ERR
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.AUDIT' ECNTSUP.DOESTAX.PROD.FTP.AUDIT
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.REL' ECNTSUP.DOESTAX.PROD.FTP.REL
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME
|
|
put 'ECNTSUP.DOESTAX.PROD.FTP.OPO' ECNTSUP.DOESTAX.PROD.FTP.OPO
|
|
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX206' ECNTSUP.DOESTAX.PROD.FTP.BX206
|
|
QUIT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
//
|
|
//**********************************************************
|
|
//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
|