225 lines
18 KiB
Plaintext
225 lines
18 KiB
Plaintext
//***** 00010000
|
|
//* 11/11/99 MODIFIED FOR Y2K/390 ENV. ZL1 00020000
|
|
//* 00021000
|
|
//* 05/29/01 MODIFIED FOR TAPE TRACKING FILES. GD 00022000
|
|
//* 06/18/2002 ADDED MSTH E (PRESENTLY COMMENTS ONLY) 00022100
|
|
//* 06/18/2002 ADDED WTC & WGH JHP 00022200
|
|
//* 00022300
|
|
//* 11/16/2004 ADDED MSTH/MSTI/WAGE NAME FILES ZL1 00022400
|
|
//* 00023000
|
|
//* UI TAX VSAM FILE RESTORE. FOR PRODUCTION USE ONLY 00030000
|
|
//* 00040000
|
|
//***** 00050000
|
|
//DTSURVSM PROC LVLNODE='PROD', 00060000
|
|
// BCKNODE='BACKUP' 00070000
|
|
//* BKUPGEN='(+0)' 00080000
|
|
//********************************************************************* 00090000
|
|
//STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILES 00100000
|
|
// COND=(0,LT) 00110000
|
|
//SYSPRINT DD SYSOUT=* 00120000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSA),DISP=SHR 00130000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSB),DISP=SHR 00140000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSC),DISP=SHR 00150000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSD),DISP=SHR 00160000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDAIX),DISP=SHR 00170000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDATC),DISP=SHR 00180000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDOLA),DISP=SHR 00190000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDREF),DISP=SHR 00200000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWRK),DISP=SHR 00210000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSE),DISP=SHR 00211000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSF),DISP=SHR 00212000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSG),DISP=SHR 00213000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSH),DISP=SHR 00213100
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSI),DISP=SHR 00213200
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWTC),DISP=SHR 00215000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH),DISP=SHR 00216000
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDNAM),DISP=SHR 00217000
|
|
//****************************************************************** 00220000
|
|
//STEP0310 EXEC PGM=SORT, MSTA RESTORE 00480000
|
|
// COND=(0,LT) 00490000
|
|
//SYSOUT DD SYSOUT=* 00500000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTA.G4425V00, 00510002
|
|
// DISP=SHR, 00520000
|
|
// VOLUME=SER=(405474,RETAIN), 00521001
|
|
// LABEL=(1,SL),UNIT=CART 00522000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTA,DISP=SHR, 00530000
|
|
// AMP=('BUFNI=5,BUFND=30') 00540000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00550000
|
|
//****************************************************************** 00560000
|
|
//STEP0320 EXEC PGM=SORT, MSTB RESTORE 00570000
|
|
// COND=(0,LT) 00580000
|
|
//SYSOUT DD SYSOUT=* 00590000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTB.G4424V00, 00600002
|
|
// DISP=SHR, 00610000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0310.SORTIN), 00611000
|
|
// LABEL=(2,SL),UNIT=CART 00612000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTB,DISP=SHR, 00620000
|
|
// AMP=('BUFNI=5,BUFND=30') 00630000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00640000
|
|
//****************************************************************** 00650000
|
|
//STEP0330 EXEC PGM=SORT, MSTC RESTORE 00660000
|
|
// COND=(0,LT) 00670000
|
|
//SYSOUT DD SYSOUT=* 00680000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTC.G4424V00, 00690002
|
|
// DISP=SHR, 00701000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0320.SORTIN), 00702000
|
|
// LABEL=(3,SL),UNIT=CART 00703000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTC,DISP=SHR, 00710000
|
|
// AMP=('BUFNI=5,BUFND=30') 00720000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00730000
|
|
//****************************************************************** 00740000
|
|
//STEP0340 EXEC PGM=SORT, MSTD RESTORE 00750000
|
|
// COND=(0,LT) 00760000
|
|
//SYSOUT DD SYSOUT=* 00770000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTD.G4424V00, 00780002
|
|
// DISP=SHR, 00791000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0330.SORTIN), 00792000
|
|
// LABEL=(4,SL),UNIT=CART 00793000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTD,DISP=SHR, 00800000
|
|
// AMP=('BUFNI=5,BUFND=30') 00810000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00820000
|
|
//****************************************************************** 00830000
|
|
//STEP0350 EXEC PGM=SORT, AIX RESTORE 00840000
|
|
// COND=(0,LT) 00850000
|
|
//SYSOUT DD SYSOUT=* 00860000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..AIX.G4423V00, 00870002
|
|
// DISP=SHR, 00881000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0340.SORTIN), 00882000
|
|
// LABEL=(5,SL),UNIT=CART 00883000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR, 00890000
|
|
// AMP=('BUFNI=5,BUFND=30') 00900000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00910000
|
|
//****************************************************************** 00920000
|
|
//STEP0360 EXEC PGM=SORT, ATC RESTORE 00930000
|
|
// COND=(0,LT) 00940000
|
|
//SYSOUT DD SYSOUT=* 00950000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..ATC.G4423V00, 00960002
|
|
// DISP=SHR, 00971000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0350.SORTIN), 00972000
|
|
// LABEL=(6,SL),UNIT=CART 00973000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 00980000
|
|
// AMP=('BUFNI=5,BUFND=30') 00990000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01000000
|
|
//****************************************************************** 01010000
|
|
//STEP0370 EXEC PGM=IDCAMS, OLA RESTORE 01020000
|
|
// COND=(0,LT) 01030000
|
|
//SYSPRINT DD SYSOUT=* 01040000
|
|
//INDD01 DD DSN=DOESTAX.&LVLNODE..&BCKNODE..OLA.G4423V00, 01050002
|
|
// DISP=SHR, 01061000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0360.SORTIN), 01062000
|
|
// LABEL=(7,SL),UNIT=CART 01063000
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR, 01070000
|
|
// AMP=('BUFNI=5,BUFND=30') 01080000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 01090000
|
|
//****************************************************************** 01100000
|
|
//STEP0380 EXEC PGM=SORT, REF RESTORE 01110000
|
|
// COND=(0,LT) 01120000
|
|
//SYSOUT DD SYSOUT=* 01130000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..REF.G4423V00, 01140002
|
|
// DISP=SHR, 01151000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0370.INDD01), 01152000
|
|
// LABEL=(8,SL),UNIT=CART 01153000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01160000
|
|
// AMP=('BUFNI=5,BUFND=30') 01170000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01180000
|
|
//****************************************************************** 01190000
|
|
//STEP0390 EXEC PGM=SORT, WRK RESTORE 01200000
|
|
// COND=(0,LT) 01210000
|
|
//SYSOUT DD SYSOUT=* 01220000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WRK.G4423V00, 01230002
|
|
// DISP=SHR, 01241000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0380.SORTIN), 01242000
|
|
// LABEL=(9,SL),UNIT=CART 01243000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WRK,DISP=SHR, 01250000
|
|
// AMP=('BUFNI=5,BUFND=30') 01260000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01270000
|
|
//****************************************************************** 01271000
|
|
//STEP0400 EXEC PGM=SORT, MSTE RESTORE 01272000
|
|
// COND=(0,LT) 01273000
|
|
//SYSOUT DD SYSOUT=* 01274000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTE.G4423V00, 01275002
|
|
// DISP=SHR, 01276000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0390.SORTIN), 01277100
|
|
// LABEL=(10,SL),UNIT=CART 01277200
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTE,DISP=SHR, 01278000
|
|
// AMP=('BUFNI=5,BUFND=30') 01279000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01279100
|
|
//****************************************************************** 01279200
|
|
//STEP0410 EXEC PGM=SORT, MSTF RESTORE 01279300
|
|
// COND=(0,LT) 01279400
|
|
//SYSOUT DD SYSOUT=* 01279500
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTF.G4423V00, 01279602
|
|
// DISP=SHR, 01279700
|
|
// VOLUME=(,RETAIN,REF=*.STEP0400.SORTIN), 01279900
|
|
// LABEL=(11,SL),UNIT=CART 01280000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTF,DISP=SHR, 01280100
|
|
// AMP=('BUFNI=5,BUFND=30') 01280200
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01281000
|
|
//****************************************************************** 01282000
|
|
//STEP0420 EXEC PGM=SORT, MSTG RESTORE 01283000
|
|
// COND=(0,LT) 01284000
|
|
//SYSOUT DD SYSOUT=* 01285000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTG.G4423V00, 01286002
|
|
// DISP=SHR, 01287000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0410.SORTIN), 01288100
|
|
// LABEL=(12,SL),UNIT=CART 01288200
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTG,DISP=SHR, 01289000
|
|
// AMP=('BUFNI=5,BUFND=30') 01289100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01289200
|
|
//****************************************************************** 01300000
|
|
//STEP0430 EXEC PGM=SORT, MSTH RESTORE 01310000
|
|
// COND=(0,LT) 01320000
|
|
//SYSOUT DD SYSOUT=* 01330000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTH.G0898V00, 01340002
|
|
// DISP=SHR, 01350000
|
|
// VOLUME=SER=(405689,RETAIN), 01361003
|
|
// LABEL=(1,SL),UNIT=CART 01370000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTH,DISP=SHR, 01380000
|
|
// AMP=('BUFNI=5,BUFND=30') 01390000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01400000
|
|
//****************************************************************** 01401000
|
|
//STEP0440 EXEC PGM=SORT, MSTI RESTORE 01402000
|
|
// COND=(0,LT) 01403000
|
|
//SYSOUT DD SYSOUT=* 01404000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTI.G0897V00, 01405002
|
|
// DISP=SHR, 01406000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0430.SORTIN), 01407000
|
|
// LABEL=(2,SL),UNIT=CART 01408000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTI,DISP=SHR, 01409000
|
|
// AMP=('BUFNI=5,BUFND=30') 01409100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01409200
|
|
//****************************************************************** 01410000
|
|
//STEP0450 EXEC PGM=SORT, WTC RESTORE 01420000
|
|
// COND=(0,LT) 01430000
|
|
//SYSOUT DD SYSOUT=* 01440000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WTC.G4421V00, 01450002
|
|
// DISP=SHR, 01460000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0440.SORTIN), 01471000
|
|
// LABEL=(3,SL),UNIT=CART 01480000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR, 01490000
|
|
// AMP=('BUFNI=5,BUFND=30') 01500000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01510000
|
|
//****************************************************************** 01520000
|
|
//STEP0460 EXEC PGM=SORT, WGH RESTORE 01530000
|
|
// COND=(0,LT) 01540000
|
|
//SYSOUT DD SYSOUT=* 01550000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WGH.G4416V00, 01560002
|
|
// DISP=SHR, 01570000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0450.SORTIN), 01580000
|
|
// LABEL=(4,SL),UNIT=CART 01590000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 01600000
|
|
// AMP=('BUFNI=5,BUFND=30') 01610000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01620000
|
|
//**** 01630000
|
|
//STEP0470 EXEC PGM=SORT, WAGE NAME RESTORE 01640000
|
|
// COND=(0,LT) 01650000
|
|
//SYSOUT DD SYSOUT=* 01660000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WAGE.NAME.G0895V00, 01670002
|
|
// DISP=SHR, 01680000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0460.SORTIN), 01690000
|
|
// LABEL=(5,SL),UNIT=CART 01700000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, 01710000
|
|
// AMP=('BUFNI=5,BUFND=30') 01720000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01730000
|
|
//**** 01740000
|