72 lines
5.6 KiB
Plaintext
72 lines
5.6 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
|
|
//STEP0430 EXEC PGM=SORT, MSTH RESTORE 01310000
|
|
// COND=(0,LT) 01320000
|
|
//SYSOUT DD SYSOUT=* 01330000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTH.G0880V00, 01340000
|
|
// DISP=SHR, 01350000
|
|
// VOLUME=SER=(401180,RETAIN), 01361000
|
|
// 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.G0879V00, 01405000
|
|
// 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.G4403V00, 01450000
|
|
// 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.G4398V00, 01560000
|
|
// 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.G0877V00, 01670000
|
|
// 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
|