Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
REXX and MVS Data Areas

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
sujesh_prasannan
Currently Banned

New User


Joined: 01 Aug 2007
Posts: 6
Location: chennai

PostPosted: Tue Nov 20, 2007 4:26 pm    Post subject: REXX and MVS Data Areas
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Tue Nov 20, 2007 4:37 pm    Post subject: Reply to: Doubt in a program.
Reply with quote

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
View user's profile Send private message
sujesh_prasannan
Currently Banned

New User


Joined: 01 Aug 2007
Posts: 6
Location: chennai

PostPosted: Tue Nov 20, 2007 4:49 pm    Post subject: Reply to: Doubt in a program.
Reply with quote

Thanks enrico.... can you please say from where i can get the information regarding the control blocks.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Nov 20, 2007 4:57 pm    Post subject:
Reply with quote

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
View user's profile Send private message
sujesh_prasannan
Currently Banned

New User


Joined: 01 Aug 2007
Posts: 6
Location: chennai

PostPosted: Tue Nov 20, 2007 5:04 pm    Post subject: Reply to: Doubt in a program.
Reply with quote

thanks.............
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us