On 2014-06-24, at 12:52, Neil Duffee wrote:
>
> I don't have the original message(s) handy but I do note the following in the
> v1.12 utilities manual under SYSUT1 for IEBGENER: "... In all other cases, a
> default
> logical record length of 80 is used."
>
And more. In the job:
//
//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
//*
// EXPORT SYMLIST=*
// SET X='This is a long symbol value.'
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=(,)
//SYSUT1 DD *,SYMBOLS=CNVTSYS,DCB=LRECL=222
Lots of data to fill up a line, followed by a long symbol to see &X.
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP2 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=(,)
//SYSUT1 DD *,SYMBOLS=CNVTSYS,DCB=LRECL=222
Lots of data to fill up a line, followed by a long symbol to see &X.
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP3 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD DISP=(,CATLG),UNIT=SYSALLDA,SPACE=(1000,50),
// DSN=&SYSUID..TEMP.JCLSYM.STEP3.SYSUT2
//SYSUT1 DD *,SYMBOLS=CNVTSYS,DCB=LRECL=222
Lots of data to fill up a line, followed by a long symbol to see &X.
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//
:w ! JESRECFM=V JESLRECL=254 submit $ZOS21_HOST
(The "submit" is my ftp script.)
STEP1 fails with an I/O error; STEP2 succeeds with &X substituted,
and STEP3, also with no error, catalogues SYSUT2 as:
Organization . . . : PS Current Utilization
Record format . . . : V Used blocks . . . . : 2
Record length . . . : 222 Used extents . . . : 1
Block size . . . . : 226
1st extent blocks . : 132
There's got to be cause for an SR in here somewhere.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
