Kolusu, thanks for this piece of code...it works great, and by using IFTHEN, I was able to use another substitution for another option.
Thanks to everyone else for these ideas, too...will look into a homegrown program for future use. Billy On Tue, Mar 26, 2013 at 12:03 PM, Sri h Kolusu <skol...@us.ibm.com> wrote: > Bill, > > It is quite easy with DFSORT's JP1 Symbols to pass parms. With z/OS > DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct, 2010), you > can now use DFSORT's new JP1 Symbols to pass parms to sort like shown > below > > // SET EXEPGM=MYPGM > //STEP0100 EXEC PGM=SORT,PARM='JP1"NAME &EXEPGM(R)"' > //SYSOUT DD SYSOUT=* > //SORTIN DD * > INCLUDE NEWLIB > MODE AMODE(31),RMODE(ANY) > ENTRY XXXXXXX > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > OUTFIL REMOVECC,TRAILER1=(4:JP1) > //* > > The output from this job is > > INCLUDE NEWLIB > MODE AMODE(31),RMODE(ANY) > ENTRY XXXXXXX > NAME MYPGM(R) > > For complete details of JCL PROC or SET symbols and other new functions > see "User Guide for DFSORT PTFs UK90025 and UK90026" paper (sortugph.pdf) > at: > > http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000242 > > Further if you have any questions please let me know > > Thanks > Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on > 03/26/2013 05:51:48 AM: > > > From: Bill Ashton <bill00ash...@gmail.com> > > To: IBM-MAIN@listserv.ua.edu, > > Date: 03/26/2013 05:53 AM > > Subject: generate file from Program PARM > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> > > > > Hi again...this should be my last annoyance for a while, I hope...You > all > > have been a big help in getting me going with finding my sea legs again > > with this COBOL project. > > > > Today's question (I think I already know the answer is 'no') - Is there > a > > way in native JCL to take a PARM and make an output file from it? For > > example, I would like to use a set statement or a PARM= symbolic to > > generate the name of the load module for my LKED step. So I would like > to > > have: > > > > SET EXEPGM=MYPGM > > . . . > > //GENER8 EXEC PGM=?????,PARM=' NAME &EXEPGM(R)' > > > > and then take that output and concatenate to my LKED SYSIN (which has > other > > includes, entry point name, etc.). > > > > I have looked for this for quite a while, but don't see anything on z/OS > > 1.x levels. Is this possible? > > -- > > Thank you and best regards, > > *Billy Ashton* > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
