On Thu, 8 Sep 2005 17:59:32 -0400 Robert Wright <[EMAIL PROTECTED]> wrote:
:>Binyamin Dissen wrote on 09/08/2005 05:03:14 PM: :>> Simple IPCS REXX program to display the SSCT chain: :>> /* REXX */ :>> ADDRESS IPCS :>> SSNAME = "AAAA" :>> POINTER = "BBBB" :>> SSCTADDR = "CCCC" :>> "EVAL 10.?+128?+18 CLIST(STORAGE(SSCTADDR))" :>> DO WHILE SSCTADDR ^= "00000000" & RC = 0 :>> "EVAL" SSCTADDR"+8 CLIST(STORAGE(SSNAME))" :>> "EVAL" SSCTADDR"+4 CLIST(STORAGE(POINTER))" :>> SAY "SSCT AT ADDRESS" SSCTADDR "NAME" X2C(SSNAME), :>> "NEXT" POINTER :>> SSCTADDR = POINTER :>> END :>> Invoked via IPCS option 6 or by IPCS %name from the IPCS command line. :>It looks like the first REXX exec that Binyamin coded was translated from :>CLIST language and retained the "CLIST" keyword on all of the IPCS :>subcommands that extract dump-related data and format it into command :>procedure variables. The "REXX" keyword is available on all subcommands :>that support "CLIST", and using it may make you feel more comfortable. :>"CLIST" does happen to work in this context. Quite possibly. It probably was CLIST originally (REXX was not always available on TSO). I was looking for an IPCS exec that I had without proprietary information and without subroutines. This was the winner. -- 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: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html