Paul Gilmartin wrote:
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.

Interesting, I tried a temp PDS, and also failed, so I tried
a permanent PDS with a small blksize and it worked ok.

I then tried allocating a temp pds in a previous step and passed it.
This also worked ok. I don't know why it fails if allocated in
the same step.

--
Richard

----------------------------------------------------------------------
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

Reply via email to