> -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[EMAIL PROTECTED] On Behalf Of Kirk Wolf > Sent: Monday, June 25, 2007 8:29 AM > To: [email protected] > Subject: Re: Read JCL Symbols from a program? > > > Kenneth, > > No, I haven't seen any acceptable workarounds. > The main requirement is to allow data to flow from JCL variables into > programs, without a 100 character limit. > > Yes, I would be willing to follow unsupported control blocks > to get the > information, if that is what it took. > > Kirk Wolf > Dovetailed Technologies
Are you will to use a SUBSYS= and possible create a subsystem? If so, then you could possible do something with that. As as example, suppose you create a PARM subsystem. Then, in JCL, you could do something like: //STEP1 EXEC PGM=MYPROG,PARM='DD1,DD2,DD3' //DD1 DD SUBSYS=(PARM,'VAR1=&VALUE1,VAR2=&VALUE2') //DD2 DD SUBSYS=(PARM,'VAR3=VALUE3,VAR4=&VALUE4') //DD3 DD SUBSYS=(PARM,'VAR5=&VALUE5') // There is example code at http://www.cbttape.org/cbtdowns.htm file 290 GPSAM. The subsystem would be designed to give the data when the DD is opened and read. Another possibility that just occurred to me is to do something like: //STEP1 EXEC PGM=MYPROG,PARM='DD1' //DD1 DD PATH='/tmp/&SYSUID..VAR1=&VALUE1,X=&VALUE2', // PATHDISP=(DELETE,DELETE), // PATHMODE=(SIRWXU), // PATHOPTS=(ORDWR,OCREAT,OEXCL) // You can then retrieve the PATH specification via SVC 99. The PATH name has a maximum length of 254 characters. But you can pass multiple DD names to the program via the PARM= on the EXEC and then retrieve the information that way. This method does create the file in the UNIX filesystem, but doesn't really take any space (unless you write to the files for some reason). The only possible error could occur if one RACF id (&SYSUID) has the step running in multiple jobs at the same time. The second job will fail with a JCL error due to the OEXCL. I don't really know what would happen if you didn't include the OEXCL parameter. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. ---------------------------------------------------------------------- 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
