//***** 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 //* 00022301 //* 11/16/2004 ADDED MSTH/MSTI/WAGE NAME FILES ZL1 00022402 //* 04/27/2006 ADDED WYTD SI WAGE FILE ZL1 00022503 //* 09/12/2006 REMOVED WYTD SI WAGE FILE ZL1 00022604 //* 09/12/2006 ADDED WESQ SI WAGE FILE ZL1 00022706 //* 01/16/2008 ADDED MSTJ FILE ZL1 00022807 //* 02/13/2008 ADDED BTC FILE ZL1 00022910 //* 09/29/2010 ADDED WG2 FILE ZL1 00023015 //* 00024015 //* UI TAX VSAM FILE RESTORE. FOR PRODUCTION USE ONLY 00030001 //* 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 00213101 // DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSI),DISP=SHR 00213201 // 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 00217002 // DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00218005 // DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSJ),DISP=SHR 00219007 // DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWG2),DISP=SHR 00219115 //****************************************************************** 00220012 //STEP0200 EXEC PGM=IDCAMS, DELETE BTC FILE 00221021 // COND=(0,LT) 00222021 //SYSPRINT DD SYSOUT=* 00223021 //INDD01 DD DSN=DOESTAX.&LVLNODE..BTC,DISP=(OLD,DELETE,KEEP) 00224021 //OUTDD01 DD DUMMY 00225021 //SYSIN DD DUMMY 00229021 //****************************************************************** 00230010 //STEP0310 EXEC PGM=SORT, MSTA RESTORE 00480000 // COND=(0,LT) 00490000 //SYSOUT DD SYSOUT=* 00500000 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTA&BKUPGEN., 00510000 // DISP=SHR, 00520000 // VOLUME=(,RETAIN), 00521000 // LABEL=(1,SL) 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&BKUPGEN., 00600000 // DISP=SHR, 00610000 // VOLUME=(,RETAIN,REF=*.STEP0310.SORTIN), 00611000 // LABEL=(2,SL) 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&BKUPGEN., 00690000 // DISP=SHR, 00701000 // VOLUME=(,RETAIN,REF=*.STEP0320.SORTIN), 00702000 // LABEL=(3,SL) 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&BKUPGEN., 00780000 // DISP=SHR, 00791000 // VOLUME=(,RETAIN,REF=*.STEP0330.SORTIN), 00792000 // LABEL=(4,SL) 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&BKUPGEN., 00870000 // DISP=SHR, 00881000 // VOLUME=(,RETAIN,REF=*.STEP0340.SORTIN), 00882000 // LABEL=(5,SL) 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&BKUPGEN., 00960000 // DISP=SHR, 00971000 // VOLUME=(,RETAIN,REF=*.STEP0350.SORTIN), 00972000 // LABEL=(6,SL) 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&BKUPGEN., 01050000 // DISP=SHR, 01061000 // VOLUME=(,RETAIN,REF=*.STEP0360.SORTIN), 01062000 // LABEL=(7,SL) 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&BKUPGEN., 01140000 // DISP=SHR, 01151000 // VOLUME=(,RETAIN,REF=*.STEP0370.INDD01), 01152000 // LABEL=(8,SL) 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&BKUPGEN., 01230000 // DISP=SHR, 01241000 // VOLUME=(,RETAIN,REF=*.STEP0380.SORTIN), 01242000 // LABEL=(9,SL) 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&BKUPGEN., 01275000 // DISP=SHR, 01276000 // VOLUME=(,RETAIN,REF=*.STEP0390.SORTIN), 01277100 // LABEL=(10,SL) 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&BKUPGEN., 01279600 // DISP=SHR, 01279700 // VOLUME=(,RETAIN,REF=*.STEP0400.SORTIN), 01279900 // LABEL=(11,SL) 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&BKUPGEN., 01286000 // DISP=SHR, 01287000 // VOLUME=(,RETAIN,REF=*.STEP0410.SORTIN), 01288100 // LABEL=(12,SL) 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 01310001 // COND=(0,LT) 01320001 //SYSOUT DD SYSOUT=* 01330001 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTH&BKUPGEN., 01340001 // DISP=SHR, 01350001 // VOLUME=(,RETAIN), 01360002 // LABEL=(1,SL) 01370002 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTH,DISP=SHR, 01380001 // AMP=('BUFNI=5,BUFND=30') 01390001 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01400001 //****************************************************************** 01401001 //STEP0440 EXEC PGM=SORT, MSTI RESTORE 01402001 // COND=(0,LT) 01403001 //SYSOUT DD SYSOUT=* 01404001 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTI&BKUPGEN., 01405001 // DISP=SHR, 01406001 // VOLUME=(,RETAIN,REF=*.STEP0430.SORTIN), 01407001 // LABEL=(2,SL) 01408002 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTI,DISP=SHR, 01409001 // AMP=('BUFNI=5,BUFND=30') 01409101 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01409201 //****************************************************************** 01410000 //STEP0450 EXEC PGM=SORT, WTC RESTORE 01420001 // COND=(0,LT) 01430000 //SYSOUT DD SYSOUT=* 01440000 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WTC&BKUPGEN., 01450000 // DISP=SHR, 01460000 // VOLUME=(,RETAIN,REF=*.STEP0440.SORTIN), 01471002 // LABEL=(3,SL) 01480002 //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 01530001 // COND=(0,LT) 01540000 //SYSOUT DD SYSOUT=* 01550000 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WGH&BKUPGEN., 01560000 // DISP=SHR, 01570000 // VOLUME=(,RETAIN,REF=*.STEP0450.SORTIN), 01580001 // LABEL=(4,SL) 01590002 //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 01640002 // COND=(0,LT) 01650002 //SYSOUT DD SYSOUT=* 01660002 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WAGE.NAME&BKUPGEN., 01670002 // DISP=SHR, 01680002 // VOLUME=(,RETAIN,REF=*.STEP0460.SORTIN), 01690002 // LABEL=(5,SL) 01700002 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, 01710002 // AMP=('BUFNI=5,BUFND=30') 01720002 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01730002 //**** 01731003 //STEP0480 EXEC PGM=SORT, WESQ WAGE RESTORE 01732006 // COND=(0,LT) 01733003 //SYSOUT DD SYSOUT=* 01734003 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WESQ&BKUPGEN., 01735006 // DISP=SHR, 01736003 // VOLUME=(,RETAIN,REF=*.STEP0470.SORTIN), 01737003 // LABEL=(6,SL) 01738003 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 01739006 // AMP=('BUFNI=5,BUFND=30') 01739103 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01739203 //* 01739309 //STEP0490 EXEC PGM=SORT, MSTJ FILE RESTORE 01739407 // COND=(0,LT) 01739507 //SYSOUT DD SYSOUT=* 01739607 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTJ&BKUPGEN., 01739707 // DISP=SHR, 01739807 // VOLUME=(,RETAIN,REF=*.STEP0480.SORTIN), 01739907 // LABEL=(7,SL) 01740007 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTJ,DISP=SHR, 01740107 // AMP=('BUFNI=5,BUFND=30') 01741007 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01742007 //* 01742110 //STEP0500 EXEC PGM=SORT, BTC FILE RESTORE 01743010 // COND=(0,LT) 01744010 //SYSOUT DD SYSOUT=* 01745010 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..BTC&BKUPGEN., 01746010 // DISP=SHR, 01747010 // VOLUME=(,RETAIN,REF=*.STEP0490.SORTIN), 01748010 // LABEL=(8,SL) 01749010 //SORTOUT DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01749112 // DISP=(,CATLG,DELETE), 01749410 // SPACE=(8192,(100,200),RLSE), 01749510 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01749610 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01749714 //**** 01750002 //STEP0510 EXEC PGM=SORT, WG2 FILE RESTORE 01770015 // COND=(0,LT) 01780015 //SYSOUT DD SYSOUT=* 01790015 //SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WG2&BKUPGEN., 01800015 // DISP=SHR, 01810015 // VOLUME=(,RETAIN,REF=*.STEP0500.SORTIN), 01820015 // LABEL=(9,SL) 01830015 //SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.WG2,DISP=SHR, 01840015 // AMP=('BUFNI=5,BUFND=30') 01850015 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01860015 //* 01870015