//*****                                                                 00010004
//*                                                                     00020004
//*    ELECTRONIC MEDIA VSAM FILE RESTORE.                              00030012
//*                                                                     00040004
//*    01/11/00 SPEC. VERS. TO RESTORE TEST/PROD BKP FILES TO DEVL      00041005
//*                                      OR PROD BKP FILES TO TEST      00041107
//*                                                         (JHP)       00041207
//*                                                                     00042004
//*****                                                                 00043004
//JXXX2DVL PROC LVLNDIN='XXXX',                                         00044008
//             LVLNDOUT='XXXX',                                         00044108
//             BCKNODE='BACKUP',                                        00045004
//             BKUPGEN='(+0)'                                           00046018
//********************************************************************* 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(DTSDDMSE),DISP=SHR   00060012
//         DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSF),DISP=SHR   00070012
//         DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSG),DISP=SHR   00080012
//******************************************************************    00150004
//STEP0310 EXEC PGM=SORT,                       MSTE RESTORE            00160012
//             COND=(0,LT)                                              00170004
//SYSOUT   DD  SYSOUT=*                                                 00180004
//SORTIN   DD  DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTE&BKUPGEN.,           00190012
//             DISP=SHR,                                                00200004
//             VOLUME=(,RETAIN)                                         00210004
//SORTOUT  DD  DSN=DOESTAX.&LVLNDOUT..VSAM.MSTE,DISP=SHR,               00220012
//             AMP=('BUFNI=5,BUFND=30')                                 00230004
//SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR   00240005
//******************************************************************    00250004
//STEP0320 EXEC PGM=SORT,                       MSTF RESTORE            00260012
//             COND=(0,LT)                                              00270004
//SYSOUT   DD  SYSOUT=*                                                 00280004
//SORTIN   DD  DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTF&BKUPGEN.,           00290012
//             DISP=SHR,                                                00300004
//             VOLUME=(,RETAIN)                                         00310004
//SORTOUT  DD  DSN=DOESTAX.&LVLNDOUT..VSAM.MSTF,DISP=SHR,               00320012
//             AMP=('BUFNI=5,BUFND=30')                                 00330004
//SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR   00340005
//******************************************************************    00350004
//STEP0330 EXEC PGM=SORT,                       MSTG RESTORE            00360012
//             COND=(0,LT)                                              00370004
//SYSOUT   DD  SYSOUT=*                                                 00380004
//SORTIN   DD  DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTG&BKUPGEN.,           00390012
//             DISP=SHR,                                                00400004
//             VOLUME=(,RETAIN)                                         00410004
//SORTOUT  DD  DSN=DOESTAX.&LVLNDOUT..VSAM.MSTG,DISP=SHR,               00420012
//             AMP=('BUFNI=5,BUFND=30')                                 00430004
//SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR   00440005
//*                                                                     01040012