Gilbert Saint-Flour is credited for this in the CBT file 183. It fails however at z/OS 2.2 and later. I submitted a fixed version you can find on the current tape.
http://www.cbttape.org/ In article <680af6cc-ea22-b251-4667-f55936f3e...@gmail.com> you wrote: > The following snippet of REXX came from an exec by Frank Clarke, it should be > fairly easy to translate it to C(++): > ptr: return c2d(storage(d2x(arg(1)), 4)) > stg: return storage(d2x(arg(1)), arg(2)) > swareq: procedure > if right(c2x(arg(1)), 1) \= 'F' then /* SWA=BELOW ? */ > return c2d(arg(1)) + 16 /* yes, return sva + 16 */ > sva = c2d(arg(1)) /* convert to decimal */ > tcb = c2d(storage(21c, 4)) /* TCB PSATOLD */ > tcb = ptr(540) /* TCB PSATOLD */ > jscb = ptr(tcb + 180) /* JSCB TCBJSCB */ > qmpl = ptr(jscb + 244) /* QMPL JSCBQMPI */ > qmat = ptr(qmpl + 24) /* QMAT QMADD */ > do while sva > 65536 > qmat = ptr(qmat + 12) /* next QMAT QMAT + 12 */ > sva = sva - 65536 /* 010006F -> 000006F */ > end > return ptr(qmat + sva + 1) + 16 > -- > Robert AH Prins > robert.ah.prins(a)gmail.com -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637 Cary, NC 27513 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN