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
----------------------------------------------------------------------
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
