🚀 go-pugleaf

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 University