I found the problem and fixed it. In short, when you use the REF subparameter, the storage class value for the first dataset is propagated to all of the other datasets. I needed to account for that in the ACS routine.
Gadi -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Rob Schramm Sent: Monday, June 18, 2018 3:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ACS routine question Yes, but it requires an exit. I am going from memory, but the SMS exit for dataclass gives you access to everything specified in jcl. If that doesn't do it, then there are a couple other places to make jcl modifications - jes2 exits and iefusi ( ugh memory is fuzzy here ) Perhaps one of the other gentle listers can confirm or correct me. Rob Schramm On Mon, Jun 18, 2018, 4:12 AM Gadi Ben-Avi <gad...@malam.com> wrote: > Hi, > > I have a set of jobs that orinally were meant to copy many files to a > multifile tape volume They used UNIT=TAPEC to tell SMS to write the > file on tape. > Now, the output files need to be written to disk. > The goal is not to change the JCL. > I created a Data Class called TAPEC that assigns space parameters to > the dataset. > This works file for the first file, but the next ones do not work. > I get a message saying IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF > DATA SET The problem is caused by the VOL= parameter. Probably the REF > subparameter. > Is there a way 'delete' the REF subparameter using the ACS routine? > Thanks > > This is an example of the original job. > > > //STEP120 EXEC PGM=FASTGENR,COND=(4,LT) //SYSPRINT DD SYSOUT=* > //SYSIN DD DUMMY > //SYSUT1 DD DSN=KVPO.ZROROT.NIKUV.REGILOT.L108,DISP=OLD > //SYSUT2 DD DSN=KVPO.LGDM01.ZROROT.NIKUV.REGILOT.D1180610, > // DISP=(,CATLG,DELETE),UNIT=TAPEC, > // VOL=(,RETAIN,,99),LABEL=1 > //*---------------------------------------------------------- > //STEP130 EXEC PGM=FASTGENR,COND=(4,LT) //SYSPRINT DD SYSOUT=* > //SYSIN DD DUMMY > //SYSUT1 DD DSN=KVPO.ZROROT.NIKUV.ZCHUIOT.L160,DISP=OLD > //SYSUT2 DD DSN=KVPO.LGDM01.ZROROT.NIKUV.ZCHUIOT.D1180610, > // DISP=(,CATLG,DELETE),UNIT=TAPEC, > // VOL=(,RETAIN,REF=*.STEP120.SYSUT2),LABEL=2 > //*---------------------------------------------------------- > //STEP140 EXEC PGM=FASTGENR,COND=(4,LT) //SYSPRINT DD SYSOUT=* > //SYSIN DD DUMMY > //SYSUT1 DD DSN=KVPO.ZROROT.NIKUV.STORNO.L108,DISP=OLD > //SYSUT2 DD DSN=KVPO.LGDM01.ZROROT.NIKUV.STORNO.D1180610, > // DISP=(,CATLG,DELETE),UNIT=TAPEC, > // VOL=(,RETAIN,REF=*.STEP130.SYSUT2),LABEL=3 > > Thanks, > Gadi > > > > ????? ?? ????? ???? ???? ???? ?????? ??? ??? ?????? ???? ????? ??? ?????? > ??????. ?? ????, ???????? ?? ??? ???? ?????, ??????? ???? ???? ????? ?? ??? > ????? ?????? ?? ?????. ????? ????? ???? ?? ?????? ?????? ?????? ???? ?? > ???? ??????? ??? ???, ?/?? ?????, ????? ?? ????? ????? ????? ????? ?????? > ?? ????? ??????? ?/?? ?????? ?? ??????. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Rob Schramm ---------------------------------------------------------------------- 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
