PMFJI here, but you're trying to override a DD that is part of a step defined by an "inner" PROC, that is, a step that is inside of a PROC that is called from inside of an "outer" PROC. In this case, your "outer" PROC is FFND05 and the "inner" PROC is DLIBATCH.
That is strictly prohibited by current JCL rules, I suspect because then they would have had to allow override DD names in a format like "stepname.procstepname.ddname" which they were not prepared to support. In your case, what you are really trying to override is "FFND05.DLI.FFMOTBL", but that is not allowed. IOW, you cannot override/add/DUMMY or any other normal JCL DD operation on anything inside of an "inner" PROC, except with symbolic parameters. AFAIK, no external DD overrides or EXEC overrides (REGION.stepname, etc.) are permitted for the steps inside of an "inner" PROC. If you make the DSN on the FFMOTBL DD inside of the FFND05 PROC into a symbolic variable, then you could override that variable when you invoke FFND05. That might be your simplest solution given the current JCL restrictions. YMMV, but I always try to make just about everything in my PROC's into a symbolic variable with a sensible default value so that I don't have to provide DD overrides at all, just symbolic variable overrides. I don't always succeed, but I do try. Peter > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Frank Swarbrick > Sent: Thursday, October 30, 2008 6:59 PM > To: [email protected] > Subject: Re: using nexted procs > > On Thu, 30 Oct 2008 13:36:02 -0600, Steve Comstock > <[EMAIL PROTECTED]> wrote: > > >What did your override look like? It should be something like: > > > >// EXEC PROC=FFND05 > >//FFND05.FFMOTBL DD DSN=THE.OTHER.GUY > > > >that is, stepname.ddname (you might make the stepname, > >(name on the EXEC statement) different from the name > >of the PROC, although it should work either way. > > Yeah, that's what I tried, and it did not work. Here is the output > showing the > JCL and the error (hopefully won't wrap around too bad!) > 1 //FFND05 JOB > CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID, JOB03730 > // USER=FJS,PASSWORD= > IEFC653I SUBSTITUTION JCL - > CLASS=A,MSGCLASS=X,NOTIFY=FJS,USER=FJS,PASSWORD= > 2 //PROCLIBS JCLLIB ORDER= > (FJS.PDSE.PROC) > 3 //JOBLIBS INCLUDE > MEMBER=JOBLIBS > 4 XXJOBLIB DD > DSNAME=FJS.PDS.LOAD,DISP=SHR > //*--------------------------------------------------- > > 5 //FFND05 PROC > //FFND05 EXEC > DLIBATCH,DLIPGM=FFND05,DLIPSB=FFUNDGO > //CEEOPTS DD DUMMY > //DFSVSAMP DD DISP=SHR,DSN=FJS.PDSE.CNTL > (VSAMBUF) > //FFUNDDB DD > DSNAME=FJS.FFND.IMS.FFUNDDB,DISP=SHR > //FFUNDIN DD > DSNAME=FJS.FFND.IMS.FFUNDIN,DISP=SHR > //FFMOTBL DD > DSNAME=FJS.FFND.FFMOTBL,DISP=SHR > //DRPT DD SYSOUT=* > //MRPT DD SYSOUT=* > // PEND > //*--------------------------------------------------- > > 6 // EXEC PROC=FFND05 > 7 ++FFND05 PROC > 8 ++FFND05 EXEC > DLIBATCH,DLIPGM=FFND05,DLIPSB=FFUNDGO > 9 XXDLIBATCH PROC > DLIPGM=,DLIPSB=,DBRC=N > 10 XXDLI EXEC PGM=DFSRRC00, > XX PARM= > (DBB,&DLIPGM,&DLIPSB,,,,,,,,,,,&DBRC) > IEFC653I SUBSTITUTION JCL - PGM=DFSRRC00,PARM= > (DBB,FFND05,FFUNDGO,,,,,,,,,,,N) > 11 XXIMSACB DD > DISP=SHR,DSN=&SYSUID..IMS.ACBLIB > IEFC653I SUBSTITUTION JCL - > DISP=SHR,DSN=FJS.IMS.ACBLIB > 12 XX DD > DISP=SHR,DSN=SYS4.IMS.ACBLIB > 13 XXIEFRDER DD DUMMY > 14 XXSYSUOUT DD SYSOUT=* > 15 ++CEEOPTS DD DUMMY > 16 ++DFSVSAMP DD DISP=SHR,DSN=FJS.PDSE.CNTL > (VSAMBUF) > 17 ++FFUNDDB DD > DSNAME=FJS.FFND.IMS.FFUNDDB,DISP=SHR > 18 ++FFUNDIN DD > DSNAME=FJS.FFND.IMS.FFUNDIN,DISP=SHR > 19 ++FFMOTBL DD > DSNAME=FJS.FFND.FFMOTBL,DISP=SHR > 20 ++DRPT DD SYSOUT=* > 21 ++MRPT DD SYSOUT=* > 22 XX PEND > 23 //FFND05.FFMOTBL DD > DSNAME=FJS.FFND.COPY.FFMOTBL,DISP=SHR > STMT NO. MESSAGE > 3 IEFC002I INCLUDE GROUP JOBLIBS WAS EXPANDED USING PRIVATE > LIBRARY FJS.PDSE.PROC > 6 IEFC001I PROCEDURE FFND05 WAS EXPANDED USING INSTREAM > PROCEDURE DEFINITION > 8 IEFC001I PROCEDURE DLIBATCH WAS EXPANDED USING PRIVATE > LIBRARY FJS.PDSE.PROC > 23 IEFC611I OVERRIDDEN STEP NOT FOUND IN > PROCEDURE > > I've tried pretty much everything I can think of to make it work. No go. > > Thanks Steve, > Frank This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
