Re: using nexted procs

I also tried the following:
//DLI.FFMOTBL DD DSNAME=FJS.FFND.COPY.FFMOTBL,DISP=SHR

Still no dice (same error message)...

Frank

On Thu, 30 Oct 2008 16:05:07 -0700, Jim Phoenix
<JimPhoenix@xxxxxxxxxxxxxxxxxxx> wrote:

Frank,

The step name is defined in procedure DLIBATCH, not your in stream
procedure.

Frank Swarbrick wrote:
On Thu, 30 Oct 2008 13:36:02 -0600, Steve Comstock
<steve@xxxxxxxxxxxxxxxxxx> 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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html




--
| Jim Phoenix | Voice: (310) 338-0400 x316 |
| Senior Software Developer | Fax: (310) 338-0801 |
| Phoenix Software International | Alt fax: (310) 337-2685 |
| 5200 W. Century Blvd., Suite 800 | jimphoenix@xxxxxxxxxxxxxxxxxxx |
| Los Angeles, CA 90045 | http://www.phoenixsoftware.com |

Opinions expressed by this individual are not necessarily those of the
Company.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

.

Relevant Pages

  • Re: SYMDEF length limitations
    ... The idea was to point to a parmlib of load library by do the ... And in the PROC: ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Antwort: IF-Statement in JCL
    ... This is similar to the COND parameter in the EXEC ... From my experiences you cannot evaluate JCL symbols. ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: Multi-line "Srchfor" Utility?
    ... If you were to take Dave's approach, I wrote a REXX EXEC that will ... I just need to extract EXEC CICS QUERY SECURITY ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: TSO/REXX Question
    ... //ASMH EXEC PGM=IEV90,PARM= ... CLEARSCR CSECT ... For IBM-MAIN subscribe / signoff / archive access instructions, send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html. ...
    (bit.listserv.ibm-main)
  • RE: Me thinks Chuckie is afoot -
    ... I'm on z/OS 1.7 and my ip address also has a 2 digit last octet. ... I ran your exec and it worked fine, ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)