On 2015-05-27 13:46, Gross, Randall [PRI-1PP] wrote:
> If it makes you feel any better, I can reproduce your exact error on my 2.1 
> system....
>  
Misery loves company?

And this one:  As submitted:

//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.
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//
In SYSPRINT:
********************************* TOP OF DATA 
***************************************************
DATA SET UTILITY - GENERATE
IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT

IEB351I I/O ERROR ,JCLSYM  ,STEP1   ,JES ,D,SYSUT1  ,READ  ,WRONG LEN 
RECRD,**************,BSAM
******************************** BOTTOM OF DATA 
*************************************************

I might understand it if my coded LRECL weren't ample to hold the line
after substitution.

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to