Towards the bottom of this list of documents there are titles with "Data
Area" in them.
http://www-03.ibm.com/systems/z/os/zos/library/bkserv/v2r2pdf/#IEA
They will (indirectly) explain why/how that bit of Rexx works.

The journey always begins at home:
"The PSA maps the storage that starts at location 0 for the
related processor."

On Fri, Feb 5, 2016 at 5:35 AM, Sankaranarayanan, Vignesh <
[email protected]> wrote:

> Good news!
>
> I plunged into the "depths" of the ASCB and found what I needed..
>
> /* REXX */
> ascb = C2D(Storage(224,4))
> ascbasid = C2X(Storage(D2X(ascb+36),2))
> Say 'ascbasid='ascbasid
>
> LOL, can't believe it was this easy.
>
> – Vignesh
> Mainframe Infrastructure
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Sankaranarayanan, Vignesh
> Sent: Friday, February 05, 2016 8:46 AM
> To: [email protected]
> Subject: Re: Obtaining current ASID in REXX
>
> Thanks Lizette,
> I believe I'm signed up to that list as well, just forgot I could post
> there!
>
> – Vignesh
> Mainframe Infrastructure
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Lizette Koehler
> Sent: Thursday, February 04, 2016 5:09 PM
> To: [email protected]
> Subject: Re: Obtaining current ASID in REXX
>
> If you were not aware, there is a TSO REXX list that could also be very
> help in all things REXX.
>
> To join, if you have not done so,
> TSO REXX        http://www2.marist.edu/htbin/wlvindex?TSO-REXX
>
> Lizette
>
>
> > -----Original Message-----
> > From: IBM Mainframe Discussion List [mailto:[email protected]]
> > On Behalf Of Sankaranarayanan, Vignesh
> > Sent: Thursday, February 04, 2016 6:00 AM
> > To: [email protected]
> > Subject: Re: Obtaining current ASID in REXX
> >
> > Yup, I can understand that much! But my expertise is way too limited
> > to even try to go chasing after memory addresses.
> >
> > – Vignesh
> > Mainframe Infrastructure
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List [mailto:[email protected]]
> > On Behalf Of Elardus Engelbrecht
> > Sent: Thursday, February 04, 2016 12:56 PM
> > To: [email protected]
> > Subject: Re: Obtaining current ASID in REXX
> >
> > Sankaranarayanan, Vignesh wrote:
> >
> > >Sorry, I don't understand.
> > >I'm looking this up now, hoping it's not an assembler way!
> >
> > You use the REXX functions like C2D and STORAGE, etc. to chase those
> pointers.
> >
> > Groete / Greetings
> > Elardus Engelbrecht
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to [email protected] with the message: INFO IBM-MAIN
> >
> > MARKSANDSPENCER.COM
> > ________________________________
> >  Unless otherwise stated above:
> > Marks and Spencer plc
> > Registered Office:
> > Waterside House
> > 35 North Wharf Road
> > London
> > W2 1NW
> >
> > Registered No. 214436 in England and Wales.
> >
> > Telephone (020) 7935 4422
> > Facsimile (020) 7487 2670
> >
> > www.marksandspencer.com
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to