And I should have mentioned that SHOWPARM is just a local utility to display the PARM as a WTO. Any equivalent local program will do.
Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 Sent: Thursday, December 04, 2014 4:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PARMDD -- any one use yet? The following definitely works, tested on V2.1 system today. HTH. //YOURJOBX JOB (0,0). . . <== Supply your own //* //* DOC: EXPERIMENT WITH INSTREAM SYMBOL SUBSTITUTION. //* // EXPORT SYMLIST=* // SET X='THIS IS A LONG SYMBOL VALUE.' //* //*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| //SYMPARM EXEC PGM=IEFBR14, // PARM='LONG PARM VALUE TO FILL UP TO 100 CHARACTERS AND THEN A SYMBOL* // &X' //* //PARMDD EXEC PGM=SHOWPARM,PARMDD=MYPARMDD //STEPLIB DD DISP=SHR,DSN=PDX01.PNSPNS.C0279916.LOAD1 //SYSOUT DD SYSOUT=* //CEEMSG DD SYSOUT=* //CEEDUMP DD SYSOUT=* //LOGSYMS DD SYSOUT=* //MYPARMDD DD *,SYMBOLS=(CNVTSYS,LOGSYMS) LONG PARM VALUE TO FILL UP TO 100 CHARACTERS AND THEN A SYMBOL&X LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG SYMBOL TO SEE &X. &X ALONE //* //SYMTEST EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD SYSOUT=* //LOGSYMS DD SYSOUT=* //SYSUT1 DD *,SYMBOLS=(CNVTSYS,LOGSYMS) LOTS OF DATA TO FILL UP A LINE, FOLLOWED BY A LONG: &X &X ALONE //* //*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| //* -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Thompson Sent: Thursday, December 04, 2014 1:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: PARMDD -- any one use yet? I've run into a situation where we have a parm that expands to more than 100 characters (sound like a familiar problem?). So, I've tried to use the PARMDD EXEC Keyword. And sure enough it points over to the specified DDName. So I have it coded like this: // EXPORT SYMLIST=* : : //PARMLST DD *,SYMBOLS=CNVTSYS (&HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP /* And that failed - NONE of the variables were expanded. So I tried this: //PARMLST DD *,SYMBOLS=CNVTSYS ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP /* Only the "ISPSTART CMD(&NCMPL" gets passed and used (because I got the SAYs out of the REXX code). (yes, I am using IKJEFT01, IKJEFT1B, IRXJCL as the PGM=, and this ain't happing). So, has anyone tried this? Have you had any success? Did I read the various wonderful manuals? Yes, all of them z/OS 2.1 (JCL REF, TSO Customization, etc.). I thought, from reading the manuals, that those variables were to be interpreted for this particular DD because of the SYSMBOLS keyword. What am I missing? Regards, Steve Thompson The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
