Paul, I believe your problem occurs because you now have SYS1.MACLIB concatenated with SYS1.MACLIB, except the first one in the concatenation has DCB in the JCL that does not match the actual dataset - hence your error.
The override "X/" on statement 6 and before statement 7 is the clue. Ron > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of > Paul Gilmartin > Sent: Monday, August 10, 2009 4:19 PM > To: [email protected] > Subject: Re: [IBM-MAIN] Concatenations and blocksizes > > On Mon, 10 Aug 2009 17:48:31 -0500, Richard Peurifoy wrote: > > >Paul Gilmartin wrote: > >> On Mon, 10 Aug 2009 16:52:59 -0500, Patrick O'Keefe wrote: > >>> I'm just puzzled that the enhancement limited itself to QSAM. > >>> No mention of BPAM. > >>> > >> I had hoped this was an oversight in the doc, but apparently > >> not. An assembly with: > >> > >> //SYSLIB DD UNIT=SYSALLDA,SPACE=(80,(1,1)), > >> // RECFM=FB,LRECL=80,BLKSIZE=80 > >> // DD DISP=SHR,DSN=SYS1.MACLIB > >> > >Unless there is a typo, you concatenated a seq file (no directories) > >with the PDS. > > > You mean I need _two_ commas, not just one? > > Why does OPEN let me do that, and not just ABEND? > > OK. I changed to: > > 6 //SYSLIB DD UNIT=SYSALLDA,SPACE=(80,(1,,1)), > // DISP=NEW,DSN=&&MAC, > // RECFM=FB,LRECL=80,BLKSIZE=80 > X/SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR > 7 // DD DISP=SHR,DSN=SYS1.MACLIB > > I needed to specify DISP and DSN to override those in the > library proc. > > And it fails the same with: > > ********************************* TOP OF DATA > ********************************** > ** ASMA999U Assembly terminated - SYNAD Exit taken - Permanent I/O error on > SYSL > ,HELLO ,C ,4140,D,SYSLIB > ,UNKOWN,WRNG.LEN.RECORD,00001F7100030 > ******************************** BOTTOM OF DATA > ******************************** > > Experimental control: if I change BLKSIZE from 80 to 32760, > it assembles with no errors, and library macros are fetched > from the second catenand. > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
