20 lines
607 B
Plaintext
20 lines
607 B
Plaintext
//*****
|
|
//* ZAP THE OLA FILE (SAME AS (AT END OF) PROD DAILY)
|
|
//*****
|
|
//DESOLAZP PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=IDCAMS, /* DELETE AND DEFINE OLA FILE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDOLA),DISP=SHR
|
|
//****
|
|
//STEP0200 EXEC PGM=DTSBD998, /* INITIALIZE OLA FILE
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//DTSFOLA DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIOLA),DISP=SHR
|
|
//****
|