17 lines
575 B
Plaintext
17 lines
575 B
Plaintext
//*****
|
|
//* RESTORE SPEC OLA BKP FROM DESOLABK (AS IN PROD DAILY)
|
|
//* (THIS JOB ASSUMES THAT THE VSAM.OLA HAS BEEN ZAPPED)
|
|
//*****
|
|
//DESOLARS PROC LVLNDIN='PROD',LVLNDOUT='PROD',
|
|
// BKUPGEN='(+0)'
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNDIN..BKP.EMTOLA&BKUPGEN.,
|
|
// DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=20')
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
|
|
//****
|