//*****                                                                 00010000
//*    11/11/99  MODIFIED FOR Y2K/390 ENV.   ZL1                        00020003
//*                                                                     00021003
//*    UI TAX VSAM FILE RESTORE.                                        00030000
//*                                                                     00040000
//*****                                                                 00050000
//DTSRORG2 PROC LVLNODE='PROD',                                         00060006
//             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(DTSDDATC),DISP=SHR    00130005
//         DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDREF),DISP=SHR    00200000
//         DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWRK),DISP=SHR    00210000
//******************************************************************    00220000
//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,                                                00970009
//             VOLUME=(,RETAIN),                                        00971009
//             LABEL=(6,SL)                                             00973009
//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
//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,                                                01150009
//             VOLUME=(,RETAIN,REF=*.STEP0360.SORTIN),                  01151009
//             LABEL=(8,SL)                                             01152009
//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,                                                01240009
//             VOLUME=(,RETAIN,REF=*.STEP0380.SORTIN),                  01241009
//             LABEL=(9,SL)                                             01242009
//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
//****                                                                  01280008