How to directly address memory in rexx ?



IBM's Command List programming language & Restructured Extended Executor

How to directly address memory in rexx ?

Postby parthiban » Mon Jan 18, 2010 11:06 pm

How to directly address memory in rexx ? can any one explain me with an example.it would helpful for me to learn










Thanks in advance!
Parthibanj
Parthiban jayaraman
mainframe rexxer,
Banglore
parthiban
 
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Location: Bangalore-India
Has thanked: 0 time
Been thanked: 0 time

Re: How to directly address memory in rexx ?

Postby Bill Dennis » Tue Jan 19, 2010 3:57 am

Here is a simple one to look thru control blocks in memory and locate the SYSTEM ID
/* REXX                                                     
 | NAME: SYSID                                               
 */                                                         
                                                             
MTYPE = ADDRESS()                                           
                                                             
        CVT    = STORAGE(10,4)                               
        DCVT   = C2D(CVT)                                   
        SMCA   = STORAGE(C2X(D2C(DCVT+X2D(C5))),3)           
        DSMCA  = C2D(SMCA)                                   
        SYSTEMID = STORAGE(C2X(D2C(DSMCA+X2D(10))),4)       
     SAY SYSTEMID                                           
Regards,

Bill Dennis

Disclaimer: My comments on this forum are my own and do not represent the opinions or suggestions of any other person or business entity.
Bill Dennis
 
Posts: 278
Joined: Thu May 15, 2008 9:45 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post