My gratitude to all who helped. Every time I come with these questions I
learn much, this time including how to read. Finished up with what Terry and
George proposed:
//AP02 JOB (CONRAD),'IBMUSE2',
// CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1)
//JOBLIB DD DSN=VENDOR.LINKLIB.SECOND,DISP=SHR
//OTHLIBS JCLLIB ORDER=DFH420.CICS.SDFHPROC
//QKVSP02 EXEC PROC=DFHZITCL,
// CBLPARM=('NODYNAM,LIB,RENT,SIZE(4000K),CICS(''COBOL2'')'),
// INDEX=DFH420.CICS,
// LNGPRFX=IGY420,
// DSCTLIB=IBMUSE2.QKVS,
// PROGLIB=VENDOR.LINKLIB.SECOND
//COBOL.SYSIN DD DSN=IBMUSE2.QKVS(QKVSP02),DISP=SHR
//
Again my thanks,
Graham
----- Original Message -----
From: "Terry Sambrooks" <[email protected]>
Newsgroups: bit.listserv.ibm-main
To: <[email protected]>
Sent: Wednesday, May 01, 2013 4:36 AM
Subject: Re: Compile COBOL/CICS pgms on z/OS problem
Hi Graham,
I believe in attempting to address the SIZE problem within the compile
listing a confusion between valid EXEC statement keywords and symbolic
parameters has arisen. Try the following which separates the two, by not
using the keyword PARM but taking advantage of the embedded symbol
CNLPARM.
Note that in using CBLPARM it is necessary to include all the options
already specified within the procedure.
//ACICSP01 JOB (CONRAD-C),'IBMUSE2',CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1)
//MYLIBS JCLLIB ORDER=(DFH420.CICS.SDFHPROC)
//QKVSP01 EXEC PROC=DFHZITCL,
// CBLPARM=('NODYNAM,LIB,RENT,SIZE(4000K),CICS(''COBOL2'')')
// INDEX=DFH420.CICS,
// LNGPRFX=IGY420,
// DSCTLIB=IBMUSE2.QKVS,
// PROGLIB=VENDOR.LINKLIB.SECOND
//COBOL.SYSIN DD DSN=IBMUSE2.QKVS(QKVSP01),DISP=SHR
//LKED.SYSLMOD DD DSN=VENDOR.LINKLIB.SECOND(QKVSP01),DISP=SHR
An even easier alternative would be to include a CBL SIZE(4000K) statement
as the first source code line which will achieve the same effect without
modification to the JCL.
Kind Regards - Terry
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
Reg : 3767263
Outgoing e-mails have been scanned, but it is the recipients
responsibility
to ensure their anti-virus software is up to date.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
