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
