//***** 00010000 //* UI TAX OLA VSAM FILE BACKUP TO DASD FOR IMMEDIATE USE. 00030001 //***** 00052005 //DESOLABK PROC LVLNDIN='PROD',LVLNDOUT='PROD', 00060005 // BKUPGEN='(+1)' 00070005 //**** 00100001 //STEP0170 EXEC PGM=IDCAMS, /* SPEC OLA BACKUP 00570001 // COND=(0,LT) 00580000 //SYSPRINT DD SYSOUT=* 00590000 //INDD01 DD DSN=DOESTAX.&LVLNDIN..VSAM.OLA,DISP=SHR, 00600002 // AMP=('BUFNI=5,BUFND=30') 00610000 //OUTDD01 DD DSN=DOESTAX.&LVLNDOUT..BKP.EMTOLA&BKUPGEN., 00620002 // DISP=(,CATLG,DELETE), 00630000 // UNIT=SYSDA, 00640002 // SPACE=(32760,(1000,1000),RLSE), 00650004 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760) 00670000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00680000 //**** 00690002