As promised - nothing flash, but does the job.
If you get any Roland doesn't know about,let him know.
Thanks to Mark Z; I hacked his IPLINFO get get it done.
Shane ...
/* REXX */
CVT = C2d(Storage(10,4)) /* point to CVT */
ECVT = C2d(Storage(D2x(CVT + 140),4)) /* point to CVTECVT */
CTBL = C2d(Storage(D2x(ECVT + 204),4)) /* pt to Cust anchor tbl*/
say '*** Customer Anchor Table listing - used slots ***'
say '*** note: slots are counted from 1 to correlate with ShowzOS ***'
say
Do I = 0 to 1023
ptr = (CTBL + (4*I))
TST = C2d(Storage(D2x(ptr),4))
If (TST <> '0') then do
isvcode = storage(D2x(TST),32)
/* remove the +1 from the following to use zero based slot counting */
say 'Slot: 'I+1' ISV text: ' isvcode
end
End
----------------------------------------------------------------------
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
