265 lines
21 KiB
Plaintext
265 lines
21 KiB
Plaintext
//***** 00010000
|
|
//* 00020000
|
|
//* UI TAX CONV ONLY EXTERNAL FILES BACKUP 00030000
|
|
//* 00040000
|
|
//* 08/09/2012 CREATE BACKUP PROC ZL1 00043200
|
|
//* 00044000
|
|
//***** 00050000
|
|
//DTSBKEXT PROC BKUPGEN='(+1)', 00060000
|
|
// BCKNODE='BACKUP' 00060100
|
|
//* 00061000
|
|
//********************************************************************* 00100000
|
|
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240100
|
|
// COND=(0,LT) 00240200
|
|
//SYSOUT DD SYSOUT=* 00240300
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..BTC,DISP=SHR 00240400
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN., 00240600
|
|
// DISP=(,CATLG,DELETE), 00240700
|
|
// UNIT=CART, 00240800
|
|
// VOLUME=(,RETAIN), 00240900
|
|
// LABEL=(1,SL,,,EXPDT=99000), 00241000
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
|
|
//********************************************************************* 00241300
|
|
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241400
|
|
// COND=(0,LT) 00242000
|
|
//SYSOUT DD SYSOUT=* 00243000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..WAGE.BTC,DISP=SHR 00243100
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246000
|
|
// DISP=(,CATLG,DELETE), 00247000
|
|
// UNIT=CART, 00248000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
|
|
// LABEL=(2,SL,,,EXPDT=99000), 00248300
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
|
|
//********************************************************************* 00249200
|
|
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249300
|
|
// COND=(0,LT) 00249400
|
|
//SYSOUT DD SYSOUT=* 00249500
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX210,DISP=SHR 00249600
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249800
|
|
// DISP=(,CATLG,DELETE), 00249900
|
|
// UNIT=CART, 00250000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
|
|
// LABEL=(3,SL,,,EXPDT=99000), 00271000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
|
|
//********************************************************************* 00300000
|
|
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310000
|
|
// COND=(0,LT) 00320000
|
|
//SYSOUT DD SYSOUT=* 00330000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX212,DISP=SHR 00340000
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360000
|
|
// DISP=(,CATLG,DELETE), 00370000
|
|
// UNIT=CART, 00380000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
|
|
// LABEL=(4,SL,,,EXPDT=99000), 00401000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
|
|
//********************************************************************* 00430000
|
|
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431000
|
|
// COND=(0,LT) 00432000
|
|
//SYSOUT DD SYSOUT=* 00433000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX216,DISP=SHR 00434000
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436000
|
|
// DISP=(,CATLG,DELETE), 00437000
|
|
// UNIT=CART, 00438000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
|
|
// LABEL=(5,SL,,,EXPDT=99000), 00439200
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
|
|
//********************************************************************* 00439500
|
|
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430000
|
|
// COND=(0,LT) 01440000
|
|
//SYSOUT DD SYSOUT=* 01450000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..RPT.R202,DISP=SHR 01460000
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470000
|
|
// DISP=(,CATLG,DELETE), 01480000
|
|
// UNIT=CART, 01490000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
|
|
// LABEL=(6,SL,,,EXPDT=99000), 01510000
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
|
|
//********************************************************************* 01550000
|
|
//STEP0170 EXEC PGM=SORT, BACKUP AUDIT FILE 01560000
|
|
// COND=(0,LT) 01570000
|
|
//SYSOUT DD SYSOUT=* 01580000
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..AUDIT.X144,DISP=SHR 01590000
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..AUDIT.X144&BKUPGEN., 01600000
|
|
// DISP=(,CATLG,DELETE), 01610000
|
|
// UNIT=CART, 01620000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01630000
|
|
// LABEL=(7,SL,,,EXPDT=99000), 01640000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 01650000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01660000
|
|
//********************************************************************* 01661001
|
|
//STEP0180 EXEC PGM=SORT, BACKUP TDEC MISSING RPTS 01662001
|
|
// COND=(0,LT) 01663001
|
|
//SYSOUT DD SYSOUT=* 01664001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,DISP=SHR 01665001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.MISSRPTS&BKUPGEN., 01666001
|
|
// DISP=(,CATLG,DELETE), 01667001
|
|
// UNIT=CART, 01668001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01669001
|
|
// LABEL=(8,SL,,,EXPDT=99000), 01669101
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=83,BLKSIZE=8300) 01669202
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01669301
|
|
//********************************************************************* 01670000
|
|
//STEP0190 EXEC PGM=SORT, BACKUP TDEC PENDING FILE 01671001
|
|
// COND=(0,LT) 01672001
|
|
//SYSOUT DD SYSOUT=* 01673001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.PENDING,DISP=SHR 01674001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.PENDING&BKUPGEN., 01675001
|
|
// DISP=(,CATLG,DELETE), 01676001
|
|
// UNIT=CART, 01677001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01678001
|
|
// LABEL=(9,SL,,,EXPDT=99000), 01679001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 01679101
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01679201
|
|
//********************************************************************* 01679301
|
|
//STEP0200 EXEC PGM=SORT, BACKUP TDEC SUMMARY COUNTS 01679401
|
|
// COND=(0,LT) 01679501
|
|
//SYSOUT DD SYSOUT=* 01679601
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,DISP=SHR 01679701
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.SUMYCNTS&BKUPGEN., 01679801
|
|
// DISP=(,CATLG,DELETE), 01679901
|
|
// UNIT=CART, 01680001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01681001
|
|
// LABEL=(10,SL,,,EXPDT=99000), 01682001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=37,BLKSIZE=3700) 01683001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01684001
|
|
//********************************************************************* 01685001
|
|
//STEP0210 EXEC PGM=SORT, BACKUP TDEC WAGE BTC 01686001
|
|
// COND=(0,LT) 01687001
|
|
//SYSOUT DD SYSOUT=* 01688001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,DISP=SHR 01689001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.WAGE.BTC&BKUPGEN., 01689101
|
|
// DISP=(,CATLG,DELETE), 01689201
|
|
// UNIT=CART, 01689301
|
|
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01689401
|
|
// LABEL=(11,SL,,,EXPDT=99000), 01689501
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 01689601
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01689701
|
|
//********************************************************************* 01689801
|
|
//STEP0220 EXEC PGM=SORT, BACKUP TDEC WAGE ERROR 01689901
|
|
// COND=(0,LT) 01690001
|
|
//SYSOUT DD SYSOUT=* 01691001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,DISP=SHR 01692001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.WAGEEROR&BKUPGEN., 01693001
|
|
// DISP=(,CATLG,DELETE), 01694001
|
|
// UNIT=CART, 01695001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01696001
|
|
// LABEL=(12,SL,,,EXPDT=99000), 01697001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=126,BLKSIZE=12600) 01698002
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01699001
|
|
//********************************************************************* 01699101
|
|
//STEP0230 EXEC PGM=SORT, BACKUP TDEC W4 FILE 01699201
|
|
// COND=(0,LT) 01699301
|
|
//SYSOUT DD SYSOUT=* 01699401
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,DISP=SHR 01699501
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.W4FILE&BKUPGEN., 01699601
|
|
// DISP=(,CATLG,DELETE), 01699701
|
|
// UNIT=CART, 01699801
|
|
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01699901
|
|
// LABEL=(13,SL,,,EXPDT=99000), 01700001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 01701001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01702001
|
|
//********************************************************************* 01703001
|
|
//STEP0240 EXEC PGM=SORT, BACKUP TDEC BAD SSN 01704001
|
|
// COND=(0,LT) 01705001
|
|
//SYSOUT DD SYSOUT=* 01706001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 01707001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.X153&BKUPGEN., 01708001
|
|
// DISP=(,CATLG,DELETE), 01709001
|
|
// UNIT=CART, 01709101
|
|
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01709201
|
|
// LABEL=(14,SL,,,EXPDT=99000), 01709301
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=93,BLKSIZE=9300) 01709401
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01709501
|
|
//********************************************************************* 01709601
|
|
//STEP0250 EXEC PGM=SORT, BACKUP TDEC MISSING RPTS 01709701
|
|
// COND=(0,LT) 01709801
|
|
//SYSOUT DD SYSOUT=* 01709901
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,DISP=SHR 01710001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.MISSRPTS&BKUPGEN., 01711001
|
|
// DISP=(,CATLG,DELETE), 01712001
|
|
// UNIT=CART, 01713001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01714001
|
|
// LABEL=(15,SL,,,EXPDT=99000), 01715001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=83,BLKSIZE=8300) 01716002
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01717001
|
|
//********************************************************************* 01718001
|
|
//STEP0260 EXEC PGM=SORT, BACKUP TDEC PENDING FILE 01719001
|
|
// COND=(0,LT) 01719101
|
|
//SYSOUT DD SYSOUT=* 01719201
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.PENDING,DISP=SHR 01719301
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.PENDING&BKUPGEN., 01719401
|
|
// DISP=(,CATLG,DELETE), 01719501
|
|
// UNIT=CART, 01719601
|
|
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01719701
|
|
// LABEL=(16,SL,,,EXPDT=99000), 01719801
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 01719901
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01720001
|
|
//********************************************************************* 01721001
|
|
//STEP0270 EXEC PGM=SORT, BACKUP TDEC SUMMARY COUNTS 01722001
|
|
// COND=(0,LT) 01723001
|
|
//SYSOUT DD SYSOUT=* 01724001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,DISP=SHR 01725001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.SUMYCNTS&BKUPGEN., 01726001
|
|
// DISP=(,CATLG,DELETE), 01727001
|
|
// UNIT=CART, 01728001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01729001
|
|
// LABEL=(17,SL,,,EXPDT=99000), 01729101
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=37,BLKSIZE=3700) 01729201
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01729301
|
|
//********************************************************************* 01729401
|
|
//STEP0280 EXEC PGM=SORT, BACKUP TDEC WAGE BTC 01729501
|
|
// COND=(0,LT) 01729601
|
|
//SYSOUT DD SYSOUT=* 01729701
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,DISP=SHR 01729801
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.WAGE.BTC&BKUPGEN., 01729901
|
|
// DISP=(,CATLG,DELETE), 01730001
|
|
// UNIT=CART, 01731001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0270.SORTOUT), 01732001
|
|
// LABEL=(18,SL,,,EXPDT=99000), 01733001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 01734001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01735001
|
|
//********************************************************************* 01736001
|
|
//STEP0290 EXEC PGM=SORT, BACKUP TDEC WAGE ERROR 01737001
|
|
// COND=(0,LT) 01738001
|
|
//SYSOUT DD SYSOUT=* 01739001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,DISP=SHR 01739101
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.WAGEEROR&BKUPGEN., 01739201
|
|
// DISP=(,CATLG,DELETE), 01739301
|
|
// UNIT=CART, 01739401
|
|
// VOLUME=(,RETAIN,REF=*.STEP0280.SORTOUT), 01739501
|
|
// LABEL=(19,SL,,,EXPDT=99000), 01739601
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=126,BLKSIZE=12600) 01739702
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01739801
|
|
//********************************************************************* 01739901
|
|
//STEP0300 EXEC PGM=SORT, BACKUP TDEC W4 FILE 01740001
|
|
// COND=(0,LT) 01741001
|
|
//SYSOUT DD SYSOUT=* 01742001
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,DISP=SHR 01743001
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.W4FILE&BKUPGEN., 01744001
|
|
// DISP=(,CATLG,DELETE), 01745001
|
|
// UNIT=CART, 01746001
|
|
// VOLUME=(,RETAIN,REF=*.STEP0290.SORTOUT), 01747001
|
|
// LABEL=(20,SL,,,EXPDT=99000), 01748001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 01749001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01749101
|
|
//********************************************************************* 01749201
|
|
//STEP0310 EXEC PGM=SORT, BACKUP TDEC BAD SSN 01749301
|
|
// COND=(0,LT) 01749401
|
|
//SYSOUT DD SYSOUT=* 01749501
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 01749601
|
|
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.X153&BKUPGEN., 01749701
|
|
// DISP=(,CATLG,DELETE), 01749801
|
|
// UNIT=CART, 01749901
|
|
// VOLUME=(,RETAIN,REF=*.STEP0300.SORTOUT), 01750001
|
|
// LABEL=(21,SL,,,EXPDT=99000), 01751001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=93,BLKSIZE=9300) 01752001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01753001
|
|
//********************************************************************* 01754001
|
|
//**********************END PROC - ZL1********************************* 01760000
|