(Thanks, Peter Farley, for fixing my inadvertent UNIX-ism (1 or more).)
On Fri, 20 Jun 2014 18:12:22 -0500, Peter X. DeFabritus wrote:
>For one thing, you need to export the symbols you want to substitute. For
>example, put the following statement before the EXEC statement:
>
>// EXPORT SYMLIST=*
>or
>// EXPORT SYMLIST=X
>
Thanks. I now have:
//
//JCLSYM JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=16385K
//*
//* Doc: experiment with instream symbol substitution.
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
// SET X='This is a long symbol value.'
//*
//CONTROL EXEC PGM=IEFBR14,PARM='This &X. that.'
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
// EXPORT SYMLIST=*
//STEP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD *
//SYSUT2 DD SYSOUT=(,)
//SYSUT1 DD *,SYMBOLS=CNVTSYS
Prime instream data set with a long line ....................... This is a long
symbol value, and more.
Lots of data to fill up a line, followed by a long symbol to see &X.
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//
:w ! JESRECFM=V JESLRECL=222 submit $ZOS21_HOST
I still get IEB319I, whether I submit via FTP or writing directly to INTRDR.
ISPF SUBmit command gives RC=0, but no substitution is performed.
Thanks,
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
