Initial commit of DUTAS source code
This commit is contained in:
19
Procs/DESOLAZP
Normal file
19
Procs/DESOLAZP
Normal file
@ -0,0 +1,19 @@
|
||||
//*****
|
||||
//* 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
|
||||
//****
|
||||
Reference in New Issue
Block a user