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 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Nuttall, Peter [CCC-OT_IT] Sent: Tuesday December 12 2006 09:10 To: [email protected] Subject: Re: COBOL compiler options JCL PARM. Yes, on second thoughts, maybe I won't recommend that !! ... If they get desperate we may look for other ways (ie changing the compiler defaults !!) Kind Regards, Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Ken Porowski Sent: 12 December 2006 16:38 To: [email protected] Subject: Re: COBOL compiler options JCL PARM. Now all you have to worry about is them including options that you DON'T want in production -----Original Message----- Nuttall, Peter <SNIP> ... recommend to our programmers that they use the CBL statement in their source for any extra options they might want to add. <SNIP> ---------------------------------------------------------------------- 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
