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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
