Hello:

I received this yesterday :

> I seem to be getting an error using R226 of BR ISPF cmd/program.
> When I enter for example:  BR RRK6723.LOADLIB   I am getting an 
> error msg:    Syntax error in data set name ' .K6723.LOADLIB'. 

The problem can be fixed by changing 5X to 7X after IECSDSL1.

BR is a TSO command used to BROWSE VSAM and DAM files in ISPF. 
It is distributed in file 183 of the CBT tape as well as here : 
http://gsf-soft.com/Freeware/

It seems that something has changed with OBTAIN in z/OS R10, 
so I looked in File 183 and only found that the BR program is affected.  

If I'm not mistaken, what has changed is this : when OBTAIN is used with 
CAMLST SEARCH to find a F1-DSCB based on a dsname, it used to return 96+5 
bytes, i.e. the last 96 bytes of the DSCB plus its CCHHR on the disk. 
Now, in z/OS R10, it returns 96+7 bytes and I don't know what the additional 2 
bytes are (they appear as ' .' in the message copied above).   

The OBTAIN doc tells you to specify a 140 bytes area to receive the DSCB with 
CAMLST SEARCH.  The problem is that I discovered 30 years ago that OBTAIN 
only needed 96+5 bytes and that's the way I coded it in dozens of programs :

  OBTAIN SEARCH,JFCBDSNM,JFCBVOLS,DS1FMTID 
  . . . .
  IECSDSL1 1                    F1-DSCB 
  DS XL5                           CCHHR

Because the work area in OBTAIN is specified as DS1FMTID which is behind 
DS1DSNAM at offset 44 in the DSCB, I should have 44 bytes after the DSCB to 
provide the 140-byte output area specified in the doc.  

In R227 of BR, I will change XL5 to XL44, like this : 

  IECSDSL1 1                    F1-DSCB 
  DS XL44                         CCHHR + ?????

or perhaps like that :

  IECSDSL1 1                    F1-DSCB 
  ORG DS1FMTID+140     CCHHR + ?????

I don't have access to z/OS R10, so I can't figure out what OBTAIN puts in the 
two additional bytes - does anybody know ?

-- 
 Gilbert Saint-Flour
 GSF Software
 http://gsf-soft.com/

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