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. Bob Wright - z/OS MVS Service Aids ---------------------------------------------------------------------- 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
