33 lines
2.5 KiB
Plaintext
33 lines
2.5 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(DTSDDMSB),DISP=SHR 00130001
|
|
//****************************************************************** 00220000
|
|
//STEP0310 EXEC PGM=SORT, MSTB RESTORE 00480001
|
|
// COND=(0,LT) 00490000
|
|
//SYSOUT DD SYSOUT=* 00500000
|
|
//SORTIN DD DSN=DOESTAX.DEVL.&BCKNODE..MSTB(+0), 00510001
|
|
// DISP=SHR, 00520000
|
|
// VOLUME=(,RETAIN), 00521001
|
|
// LABEL=(1,SL),UNIT=CART 00522000
|
|
//SORTIN DD DSN=DOESTAX.DEVL.MRCT,DISP=SHR 00523003
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.MSTB,DISP=SHR, 00530001
|
|
// AMP=('BUFNI=5,BUFND=30') 00540000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00550000
|