the program we use reads a job stream from a pds and substitutes parameters before submitting the job to the internal reader. It is executed via a proc named 'JOB' - something like S JOB,J=PDSMEMB,P='PRM1=ABC, PRM2=123' where the jobstream in PDSMEMB would contain the statement //*% PRM1=DEFAULT PRM2=DEFAULT (which would set the default values for PRM1 and PRM2). subsequent jcl statements containing the words %PRM1 %PRM2 anywhere in the job stream would get the values of PRM1/PRM2 substituted with ABC/123 or whatever was passed to JOB in the P parm. multiple parms can be passed. this is the JOB proc. I am trying to find a copy of the source code which a former colleague here wrote along time ago, although I think that it might have been based on some IBM supplied code at the time.
//JOB PROC J=PDSMEMB, // LIB='PDSMEMB.JOBLIB', // P=NONE, // PLIB='PDSMEMB.JOBLIB', // PL=NOPL, // INTRDR=INTRDR //ZHINTRDR EXEC PGM=ZHINTRDR, // PARM='&P' //PROGRAM DD DDNAME=IEFRDER //IEFRDER DD DSN=&PLIB(&PL),DISP=SHR // DD DSN=&LIB(&J),DISP=SHR //INTRDR DD SYSOUT=(A,&INTRDR) -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, June 29, 2009 6:51 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Overriding PARM from the START JOB command On Mon, 29 Jun 2009 21:26:51 +0000, Ted MacNEIL wrote: >>the program reads the job stream and substitutes parms flagged by % signs with user supplied values. > >At the risk of being obtuse, why roll your own, when the JES2/3 interpreters can already do this with '&'? > Does JOB ("the program"), perhaps, perform the substitution in instream data sets, label fields, etc.? This would be great added value over the JES2/3 "interpreters" (ITYM reader/converters -- isn't the substitution done before interpreter?) Did anyone supply the original member name of IBM's sample? I'll reread the thread. -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html