/* REXX *** */
/* TRY TO TRACK DOWN ACF2 RESIDENT INFORMATION    */
Say 'ACF2 Global Information'
Say '-----------------------'
cvt = C2D(STORAGE(10,4))
jesct = C2D(STORAGE(D2X(cvt+296),4))
eye = STORAGE(D2X(jesct),4)
IF eye ^= 'JEST' then DO
   Say 'Invalid JESCT pointer at 'D2X(jesct)
   EXIT 8
   END
eye = STORAGE(D2X(jesct+28),4)
IF eye ^= 'JES2' then DO
   Say 'JESCT AT 'D2X(jesct)' NOT FOR JES2'
   EXIT 8
   END
nssct = C2D(STORAGE(D2X(jesct+24),4))
Do UNTIL EYE = 'ACF2'
    ssct = nssct
    eye = STORAGE(D2X(ssct),4)
    IF eye ^= 'SSCT' then DO
       Say 'INVALID SSCT POINTER AT 'ssct
       EXIT 8
       END
     eye = STORAGE(D2X(ssct+8),4)
     nssct = C2D(STORAGE(D2X(ssct+4),4))
    END
say 'SSCT for ACF2 at 'D2X(ssct)
acvt = C2D(STORAGE(D2X(ssct+20),4))
aascb = C2D(STORAGE(D2X(acvt+20),4))
aasid = C2X(STORAGE(D2X(aascb+36),2))
Say 'ACF2 CVT at 'D2X(acvt) ,
    '    ASID for ACF2 is 'aasid
Numeric digits 10
rel  = C2X(STORAGE(D2X(acvt+79),1))
Say 'Release 'rel/10
acom = C2D(STORAGE(D2X(acvt+84),4))
fdr  = C2D(STORAGE(D2X(acvt+88),4))
Say 'ACF2 CSA AT 'D2X(acom)'     ACF2 FDR AT 'D2X(fdr)
rrule  = C2D(STORAGE(D2X(acvt+112),4))
Say ''
Say 'Global resident rule chain at 'D2X(rrule)
Do UNTIL rrule = 0
     key   = STORAGE(D2X(rrule),4)
     Say   '>'key' at 'D2X(rrule)
     rrule = C2D(STORAGE(D2X(rrule+8),4))
   End
Exit 0