I was always under the impression that any DD * implied lrecl=80 only. Adding a lrecl=222 should cause the i/o error. No ????
John Clifford On Mon, Dec 12, 2016 at 8:40 PM, Anthony Thompson < anthony.thomp...@nt.gov.au> wrote: > Pardon for getting the input wrong. New JCL: > //<jobcard stuff> > // EXPORT SYMLIST=* > // SET TEST='THIS IS THE VALUE OF THE SUBSTITUTED STRING.' > //STEP1 EXEC PGM=IEBGENER > //SYSUT1 DD DATA,SYMBOLS=JCLONLY,DCB=LRECL=222 > This is a test of symbol use in instream data sets. Test here: &TEST > /* > //SYSUT2 DD SYSOUT=(,) > //SYSPRINT DD SYSOUT=(,) > //SYSIN DD DUMMY > > I'm supposing you used the TSO SUBMIT command to submit the job. A foible > of TSO SUBMIT is that it doesn't do input greater than 80 characters. > > 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. > > Ant. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Paul Gilmartin > Sent: Tuesday, 13 December 2016 1:14 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: I/O error substituting symbols in sysin > > On 2016-12-12, at 00:56, Anthony Thompson wrote: > > > Ran this JCL : > > > > //<jobcard stuff> > > // EXPORT SYMLIST=* > > // SET TEST='THIS IS THE VALUE OF THE SUBSTITUTED STRING.' > > //STEP1 EXEC PGM=IEBGENER > > //SYSUT1 DD DATA,SYMBOLS=JCLONLY > > &TEST > > /* > > //SYSUT2 DD SYSOUT=(,) > > //SYSPRINT DD SYSOUT=(,) > > //SYSIN DD DUMMY > > > > Only removed the DCB on SYSUT1. Job worked. > > > Than's not "only". You also changed the content of SYSUT1 in my example. > Try it with the SYSUT1 I cited, with or without DCB: > > //SYSUT1 DD *,SYMBOLS=JCLONLY,DCB=LRECL=222 > This is a test of symbol use in instream data sets. Test here: &TEST > > > On 2016-12-12, at 02:50, Anthony Thompson wrote: > > > Just so. But anyone can frig around with invalid DCB's and make any > utility break. > > What do you claim was invalid about my DCB. Cite Reference. > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
