At z/OS V2.1 and above you can use the SET Commands and pass them to SYSIN
(SYSIN, SMPCNTL, SYSTSIN, etc) data
This has been discussed in the Archives.
But a quick example. Note, EXPORT can also be coded as: //SYM1 EXPORT
SYMLIST=*
//REALLOC JOB 1,TESTJOB,
// MSGLEVEL=(1,1),CLASS=A
//E1 EXPORT SYMLIST=(DSNAME)
//E2 EXPORT SYMLIST=(VOLSER)
//S1 SET DSNAME=HASP.TEST.MACLIB
//S2 SET VOLSER=J2COM1
//DEALLIB EXEC PGM=IDCAMS,REGION=300K
//DD1 DD UNIT=3390,DISP=OLD,VOL=SER=&VOLSER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=JCLONLY
DELETE &DSNAME
NONVSAM PURGE SCRATCH FILE(DEVICE)
//*
//REALLIB EXEC PGM=IKJEFT01,REGION=300K
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *,SYMBOLS=JCLONLY
ALLOCATE DSNAME('&DSNAME.')
UNIT(3390) VOLUME(&VOLSER.)
NEW CATALOG DSNTYPE(LIBRARY)
SPACE(65,15) DIR(56) TRACKS
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Farley, Peter x23353
> Sent: Tuesday, February 02, 2016 3:18 PM
> To: [email protected]
> Subject: Re: Convert a Parm into a control card
>
> Bill,
>
> We use Syncsort here, and at least at our version and release level the JPn
> parameters as coded by Kolusu are not supported (this was done on z/OS 2.1)
> and I did not find anything similar in the Syncsort programmer's guide for our
> version:
>
> SYNCSORT LICENSED FOR CPU SERIAL NUMBER XXXXX, MODEL XXXX XXX
> LICENSE/PRODUCT EXPIRATION DATE: 99 XXX 9999
> SYSIN :
> OPTION COPY
>
> OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
> HEADER1=('USER XXXXXXX',/,
> 'PROCESS',
> *
> 10:JP1,/,
> 'TRANS',
> 10:JP2,
> 11:'-',
> 12:JP3,/,
> 'RUNTYPE',
> 10:JP4)
> WER131I PARM FIELD ERROR - JP1"MY.D
> WER268A OUTFIL STATEMENT : SYNTAX ERROR
> WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
>
> HTH
>
> Peter
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Bill Ashton
> Sent: Tuesday, February 02, 2016 4:16 PM
> To: [email protected]
> Subject: Re: Convert a Parm into a control card
>
> Kolusu, thanks for this - it was quite simple, and works great.
>
> Ed, you had to be the fly in my ointment! I am reasonably certain that all use
> the same Sort, but we will have to confirm that before my partner finishes his
> work. If they do not, I guess I will have to look at the Rexx option. Thanks
> for the sanity check!
> --
>
>
> This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential. If
> the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by e-mail
> and delete the message and any attachments from your system.
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
