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 On Fri, 20 Jun 2014 17:35:09 -0500, Paul Gilmartin <[email protected]> wrote: >My first experiment with symbol substitution in SYSIN: >// >//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.' >//* >//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| >//STEP EXEC PGM=IEBGENER >//SYSPRINT DD SYSOUT=(,) >//SYSIN DD * >//SYSUT2 DD SYSOUT=(,) >//SYSUT1 DD *,SYMBOLS=CNVTSYS >Lots of data to fill up a line, followed by a long symbol to see $X. >//* >//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| >// > :w ! JESRECFM=V JESLRECL=222 submit $ZOS21_HOST > >Submitted via FTP, fails with RC=12 and SYSPRINT containing: > >DATA SET UTILITY - GENERATE >IEB319I INVALID SYSPRINT/SYSIN BLOCKSIZE > >What's really wrong here, and what must I do to fix it? > >-- gil > >---------------------------------------------------------------------- >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
