Re: IBM-MAIN Digest - 18 Aug 2006 to 19 Aug 2006 (#2006-232)
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'' is the last block used. --- [This E-mail has been scanned for viruses by the YourNet Connection Virus system] [For more information, please go to http://www.ync.net/YourMAIL] -- 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
Re: IBM-MAIN Digest - 18 Aug 2006 to 19 Aug 2006 (#2006-232)
---snip--- The presence of bank vaults in the world means that there must also be locksmiths in it who can open them, and I suppose that there is a similar rationale for the skills needed to breach z/OS, but this is a public forum in which I for one do not think we should facilitate such operations by unknown people. ---unsnip Unfortunately, I must agree. While I believe in open source for everything, secure environments exist for excellent reasons and I would be loath to help create a possible security breach, regardless of the merit of the reasoning behind it. So use DYNALLOC, OPEN/CLOSE and GET or READ/CHECK, whichever floats your boat. If you look at module ARCHUNLD, in the ARCHIVER package in File 147 of the CBT tape, you'll find code to read a PDS directory as a sequential dataset; also deblocking the individual entries. Rick (Retired) Fochtman --- [This E-mail has been scanned for viruses by the YourNet Connection Virus system] [For more information, please go to http://www.ync.net/YourMAIL] -- 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
Re: IBM-MAIN Digest - 18 Aug 2006 to 19 Aug 2006 (#2006-232)
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'' 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
Re: IBM-MAIN Digest - 18 Aug 2006 to 19 Aug 2006 (#2006-232)
In a recent note, Binyamin Dissen said: Date: Sun, 20 Aug 2006 12:28:43 -0400 On Sun, 20 Aug 2006 09:54:17 -0500 Rick Fochtman [EMAIL PROTECTED] wrote: :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'F FFF' is the last block used. QSAM does not allow access to the key. BSAM does. IIRC (from long ago -- I haven't dusted off the code) there's also a member entry with the same HIGH VALUES name, so there's no need to read the keys. In fact, doesn't one need to check for that value in order to process residual members in that incomplete final block? -- gil -- StorageTek INFORMATION made POWERFUL -- 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