I haven't seen that one before, so I experimented and found the OPM translator down in SLIC blocks RETSTHLS from compiling. Looking over the QPARIXEN program I see RETSTHLS receives one machine space pointer operand, TCBPOINTER. Look in the DCL's for things based on this pointer, and I see a structure, which at position 81, has a pointer to another structure, and the DCL's based on that second structure sure look a lot to me like the Name Resolution List, I mean the bit-and-pointer structure in PCO that contains the library list + product library + current library, and such. With my MI explorer program on V5R2 I noticed my job's PCO at offset H"10E0" has the string "WTCB", and 96 bytes beyond that is a pointer to my job's Name Resolution List. So my wild guess is that RETSTHLS returns a pointer set to 16 bytes into this "WTCB" structure in the current job's PCO, and that IBM is using RETSTHLS as a means to resolve the QPARIXEN's incoming parameter from "*CURLIB". I haven't tried this, but to verify, you could run the program and set OPM breakpoint after all the RETSTHLS's, then DSPPGMVAR the TCBPOINTER and look at the address, then find an address in System Service Tools that matches. ******************************** Confidential: This electronic message and all contents contain information from ReviewWorks which may be privileged, confidential or otherwise protected from disclosure. The information is intended to be for the addressee only. If you are not the addressee; disclosure, copy, distribution or use of the contents of this message is prohibited. If you have received this electronic message in error, please notify us immediately 1.800.443.1320 and destroy the original message and all copies.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.