Another option: // EXEC PGM=BPXBATCH, // PARM='SH echo *\\n name &SYSUID\(R\)' //STDOUT DD SYSOUT=* <= change to use a dataset //STDERR DD SYSOUT=*
...chris. -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: Tuesday, March 26, 2013 12:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: generate file from Program PARM 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
