'//EDIOUT2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //DDIN DD DSN=file1,DISP=(OLD,DELETE,KEEP) //DDOUT1 DD DSN=file2, // DISP=(,CATLG),MGMTCLAS=MC60DY, // LIKE=file1 //SYSIN DD DISP=SHR,DSN=PROCLIB(AIBACKC1) --> sysin is just reporo in to out //*
When these abend with a B37, the DDIN dataset is deleted even though the DISP is (OLD,DELETE,KEEP) XXEDIOUT2, EXEC PGM=IDCAMS XXSYSPRINT DD SYSOUT=* XXDDIN DD DSN=file1,DISP=(OLD,DELETE,KEEP) IEFC653I SUBSTITUTION JCL - DSN=file1,DISP=(OLD,DELETE,KEEP) XXDDOUT1 DD DSN=file2, XX DISP=(,CATLG),MGMTCLAS=MC60DY, XX LIKE=file1 IEFC653I SUBSTITUTION JCL - DSN=file2,DISP=(,CATLG),MGMTCLAS=MC60DY, LIKE=file1 IEC030I B37-04,IFG0554A,TYC1DABK,EDIOUT2,DDOUT1,C441,OY721C,0426041D, file2 ESP493I JOB TERMINATED BY CCCHK STOP REQUEST IEF142I TYC1DABK EDIOUT2 STEP02 - STEP WAS EXECUTED - COND CODE 0012 IGD106I LOADLIB PASSED, DDNAME=JOBLIB IEF285I temp file.D0000227.? SYSOUT IGD105I file1 DELETED, DDNAME=DDIN IGD104I file2 RETAINED, DDNAME=DDOUT1 IGD104I PROCLIB RETAINED, DDNAME=SYSIN IEF373I STEP/EDIOUT2 /START 2019200.1222' ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
