I don't know of a way to do that directly. However, the reply number is kept in the ORE. The ORE is in subpool 231, which is [E]CSA. Use of the ORE is definately not GUPI (General User Programming Interface). Upon return from the WTOR, general register 1 contains an identification number. I am fairly sure that this is the same as the OREDOMID in the ORE. ORERPIDB contains the reply number (in hex - DS F). Each ORE is chained to the next via the ORELKP field. You find the first ORE via the UCMRPYQ of the UCM, which is pointed to by the CVTCUCB. Serialization is your worry <grin>.
If you are on z/OS 1.7 (not likely, but maybe), if appears that you can use the CNZQUERY macro to get the OREs. -- John McKown Senior Systems Programmer UICI Insurance Center Information Technology This message (including any attachments) contains confidential information intended for a specific individual and purpose, and its content is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this transmission, or taking any action based on it, is strictly prohibited. ---------------------------------------------------------------------- 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