Many thanks Ray,

I may look into this as a possible long term solution. 

For the moment I have removed the options which are default at this site (some 
differ from the manual because they have been overridden by the sysproggys 
here) and abbreviated any that are left.

Kind Regards,
Peter

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Ray Mullins
Sent: 12 December 2006 17:19
To: [email protected]
Subject: Re: COBOL compiler options JCL PARM.


Having been down this path before in a galaxy far, far away:

Because you can have multiple CBL cards at the beginning, have a PDS
(SAF.PROT.CBL.DATA) whose members consist of single control cards - for
example

XREFY = CBL XREF
XREFN = CBL NOXREF
LISTY = CBL LIST
LISTN = CBL NOLIST

(of course, this is not an exhaustive list  <g>  )

Then have a proc:

//DOMYCOMP PROC XREF=Y,LIST=N,PROG=XYZ
...
//C EXEC PGM=IGYCBL00,...
//SYSIN DD DISP=SHR,DSN=SAF.PROT.CBL.DATA(XREF&XREF)
//      DD DISP=SHR,DSN=SAF.PROT.CBL.DATA(LIST&LIST)
//* THE FOLLOWING CONTAINS CBL PARMS THAT WE NEVER, EVER, EVER
//* WANT THE PROGRAMMERS TO OVERRIDE, E.G., NOSSRANGE
//      DD DISP=SHR,DSN=SAF.PROT.CBL.DATA(ALWAYS)
//      DD DISP=SHR,DSN=OUR.BIG.OLD.SOURCE.COBOL(&PROG)
...

You give the programmers the opportunity to override selected parms, and
since CBL statement processing always takes the last specification of a
keyword, the ALWAYS member contains those you want to enforce.  And SAF is
your friend preventing those pesky application programmers from creating
their own custom members.

Would this help in your situation?

Best regards,
Ray

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

Reply via email to