On Mon, 19 Jul 2010 12:00:02 +0200, Gilbert Saint-Flour wrote: >> 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 > Of course there's SMOP to convert a (16-bit!?) DCBTIOT to a DSN. I suppose it's in the book.
But when is DCBTIOT incremented?: o At the time of CHECK? (I would hope.) o At the time of READ? (Ugh.) o At the instant the DECB is POSTed? (Worst imaginable.) -- gil ---------------------------------------------------------------------- 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