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