> -----Ursprungligt meddelande----- > Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Mark > Zelden > Skickat: den 26 maj 2011 14:38 > Till: IBM-MAIN@bama.ua.edu > Ämne: Re: SV: Re: get the DSCB with REXX. > > On Thu, 26 May 2011 14:13:32 +0200, Thomas Berg <thomas.b...@swedbank.se> > wrote: > > >I'm using this subroutine in rexx for *allocated* datasets (partly stolen > from Doug Nadel): > > > > <snip> > ----------*/ > >GET_SWAREQ: Procedure Expose a. > > 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 = 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 > > > >END_GET_SWAREQ: > > Return PTR(qmat + sva + 1) + 16 > > > > > > And Doug borrowed SWAREQ from Gilbert Saint-Flour. :-) > > Mark
Oh. So Gilbert still have it ? :D Regards, Thomas Berg _________________________________________ Thomas Berg Specialist A M SWEDBANK ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
