VALDIS@CLVM.BITNET (Valdis Kletnieks) (12/18/87)
Here's how you find the FCB -
(1) Find the RDEVBLOK for the printer
(2) RDEVEXTN (RDEVBLOK+x'34') points at the RSPXBLOK
(3) RSPXFCB (RSPXBLOK+x'0C') has the FCB name in it.
You can then rummage thru DMKFCB to find the FCB image. Look at
the FCB macro to see how they are chained up.
The UCS is a bit harder, as it is only saved in one spot - UCSNAME
in the IOBLOK for the command. Unfortunately, IOBLOKs are transitory things,
so unless you know the LOADBUF command is CURRENTLY processing, you're
out of luck. If you HAVE to know it at an arbitrary time, I'd
extend the RSPXBLOK by 4 bytes (modify RBLOKS COPY), reassemble DMKMNT
so it allocates a bigger RSPXBLOK when the system IPL's, and then mod
DMKCSB to save the data there as well as in the IOBLOK.
If this doesn't answer your questions, let me know...
Valdis Kletnieks
Systems Programmer
Clarkson UniversityADMIN@TRITU.BITNET (Turkeer TUNCARAL) (12/25/87)
Thanks Valdis, I have written an exec to find FCB from main storage by parsing hex inputs and I'll try to update RBLOKS and DMKCSB to store UCS name onto main storage. Best regards. Turkeer p.s. Merry xmas and a happy new year to everyone on this list.