On Wed, 17 Sep 2014 12:09:05 -0400, Tony Harminc wrote: > ... >The easy (and PI, if you care) way is to follow the DEB chain from >your TCB. Which TCB may be an issue, but you can look at all of them. >So you chain through the DEBs, each DEB points to a DCB (or ACB), each >DCB has an offset in the TIOT to the relevant DDNAME entry, and that >entry contains the DDNAME. When you find the matching DDNAME, you have >your xCB. There is a slight difference if your DCB is open for SYSOUT >or SYSIN. Then the DEB points to an ACB created by subsystem open >processing, and a different DEB field points to your original DCB. > ... Thanks. I believe you've persuaded me to try the assembler option. I may have one I can adapt. Copy 8 bytes from PARM[1] to DCB; OPEN; store 4 bytes of DCB address in PARM[2]. Don't bother to check lengths; don't CLOSE; it's a one-off.
Thanks again, gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
