Chris, I like this, too...it's very simple and effective! Billy
On Tue, Mar 26, 2013 at 2:50 PM, Webster, Chris <[email protected]>wrote: > 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:[email protected]] On > Behalf Of Bill Ashton > Sent: Tuesday, March 26, 2013 12:07 PM > To: [email protected] > 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 <[email protected]> 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 <[email protected]> wrote on > > 03/26/2013 05:51:48 AM: > > > > > From: Bill Ashton <[email protected]> > > > To: [email protected], > > > Date: 03/26/2013 05:53 AM > > > Subject: generate file from Program PARM Sent by: IBM Mainframe > > > Discussion List <[email protected]> > > > > > > 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 [email protected] with the message: INFO > > > IBM-MAIN > > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to [email protected] with the message: INFO IBM-MAIN > > > > > > -- > Thank you and best regards, > *Billy Ashton* > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
