You would need to follow the CAA chain. For a standard LE task you would find the anchor in the TCB. CICS would have it in its control blocks.
If you need it to be super clean, i.e., avoiding walking control blocks, you could probably fake a call to your routine with NAB=NO and then use the standard services. On Mon, 12 Mar 2018 17:13:03 -0400 Frank Chu <[email protected]> wrote: :>Hi, :> :>Does anybody know if there is a control block chain that I can walk to :>find all of the envars that are define? I know there is a LE C function :>that can query for a specified envar but I can't use LE C. And there are :>circumstances where I do not have access to the parm list pointer that :>is passed to the executing program, so I can't rely on that guy to find :>the envars. I've also gone through the USS Callable Assembler Services :>Guide and it doesn't look like there is a service for this either. :> :>Thanks in advance. :>Frank -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
