> I wish to detect when a BSAM read or QSAM GET crosses a concatenation
> boundary.
> I am guessing I need to code an OPEN and EOV DCB exit to get control.

You don't need an exit, just check the value of DCBTIOT which is increased 
each time QSAM/BSAM start to read the next concatenated DD. Here's an 
example:

   OPEN DCBxx
   MVC SAVETIOT,DCBTIOT
 . . . 
   GET DCBxx
   CLC SAVETIOT,DCBTIOT
   BE SAME_DD
   MVC SAVETIOT,DCBTIOT
 . . . 
SAME_DD EQU * 
 . . . 
SAVETIOT DS H

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to