Bill,
The following DFSORT JCL will give you the desired results. If you have
more lines to add, then use "/" to create a new line. You can have upto 10
JPn symbols.
// SET PFILE=MY.DATASET.NAME
// SET TXTYP=1
// SET ACCT=001455
// SET RUN=TRIAL
//*
//STEP0100 EXEC PGM=SORT,
// PARM=('JP1"&PFILE"',
// 'JP2"&TXTYP"',
// 'JP3"&ACCT"',
// 'JP4"&RUN"')
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
HEADER1=('USER XXXXXXX',/,
'PROCESS',
10:JP1,/,
'TRANS',
10:JP2,
11:'-',
12:JP3,/,
'RUNTYPE',
10:JP4)
//*
The output from this job is an 80 byte file with the following.
USER XXXXXXX
PROCESS MY.DATASET.NAME
TRANS 1-001455
RUNTYPE TRIAL
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <[email protected]> wrote on
02/02/2016 12:29:49 PM:
> From: Bill Ashton <[email protected]>
> To: [email protected]
> Date: 02/02/2016 12:33 PM
> Subject: Re: Convert a Parm into a control card
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> Thanks Kolusu... we would want to use
> // SET PFILE=MY.DATASET.NAME
> // SET TXTYP=1
> // SET ACCT=001455
> // SET RUN=TRIAL
>
> and the input to create from this is
> //SYSIN DD *
> USER xxxxxxx (don't worry about this - it is pre-set)
> PROCESS MY.DATASET.NAME (Process starts in 1, PFILE starts in 10)
> TRANS 1-001455 (Trans starts in 1, TXTYP is in 10, "-" in
11,
> ACCT in 12-17)
> RUNTYPE TRIAL (Runtype starts in 1, RUN is in 10)
> . . .
> /*
>
> The parm will be something like PARM='&PFILE/&TXTYP/&ACCT/&RUN' with
"/"
> between vars to eliminate the absolute length needed for PFile - unless
> that is easier for you. I know that "/" is a safe character for our
input.
>
> I appreciate your help, Kolusu - this sounds like just what he wants.
>
> Billy
>
> On Tue, Feb 2, 2016 at 2:02 PM, Sri h Kolusu <[email protected]> wrote:
>
> > Bill,
> >
> > DFSORT has the ability of reading the SET parms and generate an Output
> > file. So show your SET statements and your required control cards for
your
> > program/utility, I will show you a way to do it
> >
> > Thanks,
> > Kolusu
> > DFSORT Development
> > IBM Corporation
> >
> >
> >
> > From: Bill Ashton <[email protected]>
> > To: [email protected]
> > Date: 02/02/2016 11:58 AM
> > Subject: Convert a Parm into a control card
> > Sent by: IBM Mainframe Discussion List
<[email protected]>
> >
> >
> >
> > Hello friends!
> > I have a teammate working on a z/OS 1.12 system and is trying to make
a
> > proc fairly foolproof for his user. He wants to know the easiest way
to
> > convert a SET statement or JCL Parm into a control card.
> >
> > This proc needs a DSN and a couple other values as part of a SYSIN for
the
> > program, and since we can't use symbolics in pre-z/OS 2.1, I would
like a
> > way using standard IBM utilities to take a PARM symbolic and create an
> > output file that I can use as input to the program. The parm input
would
> > only be one line, and not longer than 50 chars.
> >
> > Does anyone have any good ideas? Sort? Gener?
> >
> > 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
