Access the Control blocks
Posted: Tue May 27, 2014 12:02 am
Hi all,
How do we develop the art of reading the control blocks
I was able to understand the above code in parts like what each and every line of code does seperately
But what I do not understand is
How is PSAOLD related to ASCBASXB which is related to ACEE and ACEEUNAM
How does one know or develop this knowledge or does it come by experience or does it have a quickref
like if you want to get a user name you need to get this , this and this
Pointers and suggesions will be very much helpful
How do we develop the art of reading the control blocks
Code: Select all
/*REXX*/
ascb = storage(224,4) /* psaaold */
asxb = storage(d2x(c2d(ascb)+108),4) /* ascbasxb */
acee = storage(d2x(c2d(asxb)+200),4) /* acee */
unam = storage(d2x(c2d(acee)+100),4) /* aceeunam */
user_name=strip(storage(d2x(c2d(unam)+1),24))
say user_name
exit
But what I do not understand is
How is PSAOLD related to ASCBASXB which is related to ACEE and ACEEUNAM
How does one know or develop this knowledge or does it come by experience or does it have a quickref
like if you want to get a user name you need to get this , this and this
Pointers and suggesions will be very much helpful