On Tue, 13 Dec 2016 01:40:07 +0000, Anthony Thompson wrote:
>
>So you've got an 80-byte SYSUT1 input but you're telling the system it's
>really 222 bytes. Bang. I/O error.
>
>I put the same JCL above into a dataset with LRECL 222 and submitted it to an
>internal reader via IEBGENER (ICEGENER). Job Finished with RC 0.
>
And now I recall how I came to have a proclivity for specifying DCB parameters
The following job submitted via IEBGENER to INTRDR with RECFM=VB,LRECL=250:
user@OS/390.25.00: cat jclsym2
//
//JCLSYM2 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 TEST='This is the value of the substituted string.'
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD *,SYMBOLS=(JCLONLY,LOGDD) ,DCB=(LRECL=222),BLKSIZE=444
This is a test of symbol use in instream data sets. Test here: &TEST
....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|1
//* This is a test of symbol use in instream data sets. Test here: This is the
value of the substituted string.
//SYSUT2 DD SYSOUT=(,)
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//LOGDD DD SYSOUT=(,)
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//
:w ! JESRECFM=V JESLRECL=250 submit $MVS_HOST
user@OS/390.25.00:
... fails as is, but succeeds if I enable the DCB parameters. But if I then
remove the second line in SYSUT1, it fails again.
The rules are complicated. They need to be explained clearly. They are not.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
