Hi Gary, Sounds awesome! If you can share, that would be gr8.
All the best, Scott T. Harder -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on Behalf Of Gary Green Sent: Tuesday, April 28, 2009 8:06 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Possible new SYSTEM symbols in JCL. John, Not certain if this helps but I have some Rexx code which I execute in batch. This particular Rexx will take input file(s) and process each line from each input file and resolve any symbolics it finds and then passes the input line to a specific output DD name. I use the standard system symbolics and a few of my own. The output file is then passed down to another step in the job which never knows where the SYSIN control cards came from. Works like a champ. Perhaps you could put something together like this? I would offer to pass it along but I would need permission first. (new employer) Gary Green Never use a 2x4 when a 2x6 will do just as well! -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of John McKown Sent: Tuesday, April 28, 2009 12:47 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Possible new SYSTEM symbols in JCL. On Tue, 28 Apr 2009 11:36:31 -0500, Rick Fochtman <rfocht...@ync.net> wrote: <snip> >John, geting the JOBNAME shouldn't be too much of a problem; the value >could be set at conversion time. Getting the job number might be more >of a problem, since JES would have to get involved here. > >You might wanty to consider an Assember routine that will query JES2 >for job number and your ASCB for the job name. Then do a dynamic >allocation of the HFS/ZFS file and create the appropriate JCL, then >pump it through the internal reader for your PERL step. Consider using >the DYNAM routine from the CBTTAPE to do the allocation. > >-- >Rick I could do the above. If I did not feel so tired that even typing this email is difficult (ongoing medical condition). I guess what I should really do if I want any "new system symbols" is simply write a JES2 exit 2 to insert a bunch of // SET symbol=value cards immediately after the JOB card. But that is way too much trouble too. And, in any case, that would violate our standard of "No mods, no exits, no customization! Plain vanilla or death!" -- John ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ____________________________________________________________ Click to receive credit card help and get out of debt fast. http://thirdpartyoffers.netzero.net/TGL2241/fc/BLSrjpYVrpdTMHlKJSw5OlO4vzyAkFUH7EjESB8el9A6NOv7Ndmkc3VBwDe/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html