|
View previous topic :: View next topic
|
| Author |
Message |
sujesh_prasannan
Currently Banned
New User
Joined: 01 Aug 2007
Posts: 6
Location: chennai
|
|
|
|
Hi,
I got this code (to display the user name) from this forum, but iam not able to undertand few terms in this can any any one helpme in this.
Code:
/* nombre del usuario */
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
Doubts:
1) What does storage(224,4) reffer to?
2) what does this line do --> storage(d2x(c2d(ascb)+108),4) ?
Can any one help me in this.
Title changed from 'Doubt in a program' |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| got this code (to display the user name) from this forum, but iam not able to undertand few terms in this can any any one helpme in this. |
That' s what happens when using posted code...
the rexx is chasing some mvs control blocks,
the comment on the right is the name of the field used ,
also IBM tries, sometimes without success, to use in its naming
some kind of wart to identify the control block to whom the field belongs..
look at the following control block for explanation
PSA, ASCB, ASXB, ACEE |
|
| Back to top |
|
|
sujesh_prasannan
Currently Banned
New User
Joined: 01 Aug 2007
Posts: 6
Location: chennai
|
|
|
|
| Thanks enrico.... can you please say from where i can get the information regarding the control blocks. |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Well, the formal term is Data Areas, and you can read about them here.
To learn more about the STORAGE function, please refer to the fine manual.
O. |
|
| Back to top |
|
|
sujesh_prasannan
Currently Banned
New User
Joined: 01 Aug 2007
Posts: 6
Location: chennai
|
|
|
|
| thanks............. |
|
| Back to top |
|
|
|
|
