giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
62d95f14f0cb5df07cf30450e671122a13fe012d
DUTAS/Procs/DTSURVSM
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

287 lines
23 KiB
Plaintext
Raw Blame History

//***** 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
Reference in New Issue View Git Blame Copy Permalink