On Sun, 20 Aug 2006 09:54:17 -0500 Rick Fochtman <[EMAIL PROTECTED]> wrote:
:>> ------------------------------------<snip>------------------------------ :>> In respect of your query about EXCP with DEB: :>> "Hello: Does anyone have any sample code that does I/O (read only) by :>> manually building a DEB? (Bypassing OPEN and CLOSE.) ...... :>> I want to be able to read the directory blocks of a PDS via EXCP in this :>> manner." :>> I cannot answer your question specifically as I haven't played in this :>> area since the 1970s when I found that DEBE would not run in MVS because :>> DEBs were built in a different SUBPOOL. :>> I know you have indicated that you wish to bypass OPEN/CLOSE, but if you :>> didn't the directory is easily readable with BSAM. This link contains an :>> article and sample on doing this. :>> (http://www.kmsitltd.co.uk/docs/bpamdir.pdf) :>----------------------------<unsnip>-------------------------------- :>You can also use QSAM GETs to read the directory. And if you specify a KEYLEN=8, you can see the key of each block, so you can stop :>before hitting the actual end of the directory. The block with a key of X'FFFFFFFFFFFFFFFF' is the last block used. QSAM does not allow access to the key. BSAM does. -- Binyamin Dissen <[EMAIL PROTECTED]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- 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
