...so what are the space attributes of file1 you're using for LIKE= ? and as Dan has pointed out, the IDCAMS step did not abend, CC=12 means the second disposition was true, new,catlg I'd suggest using space parms on the DD statement, and as an aside, if your ACS routines are managing SC,SG and MC, then there is no need to specify a MGMTCLAS. let SMS do what SMS does, you've reduced the amount of char on the DD card by not specifying the space parms, so why specify MGMTCLAS ? let SMS do it.
Carmen Vitullo ----- Original Message ----- From: "Elaine Beal" <elaine.b...@gxs.com> To: IBM-MAIN@LISTSERV.UA.EDU Sent: Monday, July 22, 2019 9:12:18 PM Subject: Re: JCL disp on abend '//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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
