//*****                                                                 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