In <[email protected]>, on
09/17/2014
at 10:24 AM, Paul Gilmartin
<[email protected]> said:
> address MVS 'EXECIO 0 DISKR SYSUT1 (open'
Does that actually work?
>Somewhere in the world this should leave a DCB. Can I find it
>(chasing pointers or otherwise) so I can inspect it with STORAGE()?
Chase the DEB chain. If it weren't for (ptui!) OCO there would be an
easier way.
>(This might be thwarted because an opened DCB does not contain the
>DDNAME which could be used as an eyecatcher.)
It contains the TIOT offset.
>My fallback is a minimal assembler program to obtain storage for a
>DCB (must it be below the line?
Yes. However, if you need a DCBE that can be above the line.
>How can I make that happen?
Code it on your GETMAIN or STORAGE macro.
>OPEN, and return the address to Rexx.
Be sure to CLOSE, FREEPOOL and free it when you're done.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
