On Thu, 8 Sep 2005 13:20:22 -0500 Mark <[EMAIL PROTECTED]> wrote:
:>Binyamin,
:>
:>Would you care to share any short examples of how you would write
:>something like that, and how to get it installed and working in IPCS?
This is old, but should give you the basic idea.
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.
--
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
