/* REXX *** */ /* locate the JES2 JCT */ tcbo = C2D(storage(21c,4)) jscb = C2D(storage(D2X(tcbo+180),4)) ssib = C2D(storage(D2X(jscb+316),4)) Eye = Storage(D2X(ssib),4) if Eye \= 'SSIB' then Do Say 'Invalid SSIB at 'D2X(ssib) Exit 8 End sjb = C2D(storage(D2X(ssib+32),4)) Eye = Storage(D2X(sjb),4) If Eye \= 'SJB ' then Do Say 'Invalid SJB at 'D2X(sjb) Exit 8 End jct = C2D(storage(D2X(sjb+36),4)) Eye = Storage(D2X(jct+104),4) If Eye \= 'JCT ' then Do Say 'Invalid JCT at 'D2X(jct) Exit 8 End /* JCT offsets can be JES2 release dependent */ Say 'JCT found at 'D2X(jct) usid = Storage(D2X(jct+442),8) notus = Storage(D2X(jct+432),7) Say 'USID='usid' NOTIFY='notus flag = C2D(storage(D2X(jct+364),1)) goodinfo = (flag%16)//2 If goodinfo then Do maxrc = C2D(storage(D2X(jct+1336),3)) abend = C2X(storage(D2X(jct+1339),3)) Say 'Maximum RC='maxrc Say 'Abend code='abend End else , Say 'Return code information not available' EXIT 0