//***** 00010004 //* 00020004 //* UI TAX VSAM FILE RESTORE. 00030004 //* 00040004 //* 03/25/2004 THIS PROC INCLUDES A PARM TO INDICTE WHETHER 00041023 //* THE INPUT WGH AND WTC FILES NEED TO BE RESTORED. 00041123 //* IF CONVERT = 0, CONVERT THE FILES 00041228 //* IF CONVERT = 1, USE THE BACKUP VERSIONS WITHOUT 00041328 //* CONVERTING 00041428 //* 00042004 //***** 00043004 //CXXX2XXX PROC LVLNDIN='XXXX', 00044023 // LVLNDOUT='XXXX', 00044108 // BCKNODE='BACKUP', 00045004 // BKUPGEN='(+0)' 00046032 //********************************************************************* 00047004 //STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILES 00048004 // COND=(0,LT) 00049004 //SYSPRINT DD SYSOUT=* 00050004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSA),DISP=SHR 00060005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSB),DISP=SHR 00070005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSC),DISP=SHR 00080005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSD),DISP=SHR 00090005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDAIX),DISP=SHR 00100005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDATC),DISP=SHR 00110005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDOLA),DISP=SHR 00120005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDREF),DISP=SHR 00130005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWRK),DISP=SHR 00140005 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSE),DISP=SHR 00141019 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSF),DISP=SHR 00142019 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSG),DISP=SHR 00143019 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWGH),DISP=SHR 00144023 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWGX),DISP=SHR 00144130 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWTC),DISP=SHR 00145019 // DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWTX),DISP=SHR 00145131 //*** 00145223 //****************************************************************** 00150004 //STEP0310 EXEC PGM=SORT, MSTA RESTORE 00160004 // COND=(0,LT) 00170004 //SYSOUT DD SYSOUT=* 00180004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTA&BKUPGEN., 00190005 // DISP=SHR, 00200004 // VOLUME=(,RETAIN) 00210004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTA,DISP=SHR, 00220005 // AMP=('BUFNI=5,BUFND=30') 00230004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00240005 //****************************************************************** 00250004 //STEP0320 EXEC PGM=SORT, MSTB RESTORE 00260004 // COND=(0,LT) 00270004 //SYSOUT DD SYSOUT=* 00280004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTB&BKUPGEN., 00290005 // DISP=SHR, 00300004 // VOLUME=(,RETAIN) 00310004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTB,DISP=SHR, 00320005 // AMP=('BUFNI=5,BUFND=30') 00330004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00340005 //****************************************************************** 00350004 //STEP0330 EXEC PGM=SORT, MSTC RESTORE 00360004 // COND=(0,LT) 00370004 //SYSOUT DD SYSOUT=* 00380004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTC&BKUPGEN., 00390005 // DISP=SHR, 00400004 // VOLUME=(,RETAIN) 00410004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTC,DISP=SHR, 00420005 // AMP=('BUFNI=5,BUFND=30') 00430004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00440005 //****************************************************************** 00450004 //STEP0340 EXEC PGM=SORT, MSTD RESTORE 00460004 // COND=(0,LT) 00470004 //SYSOUT DD SYSOUT=* 00480004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTD&BKUPGEN., 00490005 // DISP=SHR, 00500004 // VOLUME=(,RETAIN) 00510004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTD,DISP=SHR, 00520005 // AMP=('BUFNI=5,BUFND=30') 00530004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00540005 //****************************************************************** 00550004 //STEP0350 EXEC PGM=SORT, AIX RESTORE 00560004 // COND=(0,LT) 00570004 //SYSOUT DD SYSOUT=* 00580004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..AIX&BKUPGEN., 00590005 // DISP=SHR, 00600004 // VOLUME=(,RETAIN) 00610004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.AIX,DISP=SHR, 00620005 // AMP=('BUFNI=5,BUFND=30') 00630004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00640005 //****************************************************************** 00650004 //STEP0360 EXEC PGM=SORT, ATC RESTORE 00660004 // COND=(0,LT) 00670004 //SYSOUT DD SYSOUT=* 00680004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..ATC&BKUPGEN., 00690005 // DISP=SHR, 00700004 // VOLUME=(,RETAIN) 00710004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.ATC,DISP=SHR, 00720005 // AMP=('BUFNI=5,BUFND=30') 00730004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00740005 //****************************************************************** 00750004 //STEP0370 EXEC PGM=IDCAMS, OLA RESTORE 00760004 // COND=(0,LT) 00770004 //SYSPRINT DD SYSOUT=* 00780004 //INDD01 DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..OLA&BKUPGEN., 00790005 // DISP=SHR, 00800004 // VOLUME=(,RETAIN) 00810004 //OUTDD01 DD DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR, 00820005 // AMP=('BUFNI=5,BUFND=30') 00830004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSRONE),DISP=SHR 00840005 //****************************************************************** 00850004 //STEP0380 EXEC PGM=SORT, REF RESTORE 00860004 // COND=(0,LT) 00870004 //SYSOUT DD SYSOUT=* 00880004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..REF&BKUPGEN., 00890005 // DISP=SHR, 00900004 // VOLUME=(,RETAIN) 00910004 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.REF,DISP=SHR, 00920005 // AMP=('BUFNI=5,BUFND=30') 00930004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00940005 //****************************************************************** 00950004 //STEP0390 EXEC PGM=SORT, WRK RESTORE 00960004 // COND=(0,LT) 00970004 //SYSOUT DD SYSOUT=* 00980004 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WRK&BKUPGEN., 00990005 // DISP=SHR, 01000017 // VOLUME=(,RETAIN) 01001016 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WRK,DISP=SHR, 01010005 // AMP=('BUFNI=5,BUFND=30') 01020004 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01030005 //****************************************************************** 01050012 //STEP0400 EXEC PGM=SORT, MSTE RESTORE 01060012 // COND=(0,LT) 01070012 //SYSOUT DD SYSOUT=* 01080012 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTE&BKUPGEN., 01090012 // DISP=SHR, 01100012 // VOLUME=(,RETAIN) 01110012 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTE,DISP=SHR, 01120012 // AMP=('BUFNI=5,BUFND=30') 01130012 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01140012 //****************************************************************** 01150012 //STEP0410 EXEC PGM=SORT, MSTF RESTORE 01160012 // COND=(0,LT) 01170012 //SYSOUT DD SYSOUT=* 01180012 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTF&BKUPGEN., 01190012 // DISP=SHR, 01200012 // VOLUME=(,RETAIN) 01210012 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTF,DISP=SHR, 01220012 // AMP=('BUFNI=5,BUFND=30') 01230012 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01240012 //****************************************************************** 01250012 //STEP0420 EXEC PGM=SORT, MSTG RESTORE 01260012 // COND=(0,LT) 01270012 //SYSOUT DD SYSOUT=* 01280012 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTG&BKUPGEN., 01290012 // DISP=SHR 01300017 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTG,DISP=SHR, 01320012 // AMP=('BUFNI=5,BUFND=30') 01330012 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01340012 //****************************************************************** 01350019 //STEP0440 EXEC PGM=SORT, WTC RESTORE 01360019 // COND=(0,LT) 01370019 //SYSOUT DD SYSOUT=* 01380019 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WTC&BKUPGEN., 01390020 // DISP=SHR, 01400019 // VOLUME=(,RETAIN), 01410019 // LABEL=(1,SL) 01420019 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WTX,DISP=SHR, 01430031 // AMP=('BUFNI=5,BUFND=30') 01440019 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01451021 //****************************************************************** 01460019 //STEP0445 EXEC DTSBZ263 CONVERT WTC 01460230 //****************************************************************** 01460330 //STEP0460 EXEC PGM=SORT, RESTORE WGH TO WGX 01461130 // COND=(0,LT) 01461229 //SYSOUT DD SYSOUT=* 01461329 //SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WGH&BKUPGEN., 01461429 // DISP=SHR, 01461529 // VOLUME=(,RETAIN,REF=*.STEP0440.SORTIN), 01461629 // LABEL=(2,SL) 01461729 //SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WGX,DISP=SHR, 01462329 // AMP=('BUFNI=5,BUFND=30') 01462429 //SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01462529 //** 01462629 //STEP0470 EXEC DTSBZ265 WGH CONVERSION 01462729 //****************************************************************** 01570019