Using STORAGE Function

angt · New User Joined: 01 Jun 2005 Posts: 17 Location: USA

Hi

I am trying to use STORAGE function of rexx to override a value at given adress but it is returning null string all the times.

Storage(address,,data) , when i remove data from the function it returns first byte at that place but as soon as i put data it returns null string

Please enlightem me if you have any idea about it

thanks
Anurag

dick scherrer · Posted: Wed Aug 27, 2008 1:23 am

Hello,

It will probably help if you post the code. Please use the "Code" tag on the Reply panel.

When you have a question, please start a new topic for your question rather than posting a reply to some inactive topic.

expat · Posted: Wed Aug 27, 2008 11:38 am

Are you trying to update protected storage ?

angt · New User Joined: 01 Jun 2005 Posts: 17 Location: USA

Here is the code

expat · Posted: Wed Aug 27, 2008 7:10 pm

I think that you will find that only APF authorised programs, which are usually under the control of the sysprogs and closely monitored by the security people, are allowed to update storage in flight.

That is what I found out when trying to update a storage location with REXX myself.

angt · New User Joined: 01 Jun 2005 Posts: 17 Location: USA

Thanks Expat,

Can you show me some other examples where I can check that storage works

angt

expat · Posted: Wed Aug 27, 2008 7:37 pm

Not that I know of. Updating storage on the fly isn't really part of my job function, and I only tried it out a few times when there was nothing much else to do.

The function quite happily retrieves data from the given location, but does not update it.

Might have a play with the SAS equivilent of PEEK and POKE, but then again that all depends on time availability.

Pedro · Posted: Wed Aug 27, 2008 10:06 pm

<good Pedro>
You should just submit the job with a correct name! Why would you want to change the name after submitting? You cannot update system control blocks, but should be able to update your private storage.

You can use IPCS to find control blocks in your private storage. And given the addresses, use STORAGE to change it from rexx.
</good Pedro>

<evil Pedro>
You might be able to zap system storage using the TESTAUTH command. But you can easily corrupt system storage, so I do not recommend it. When they find out who crashed the system, they will be upset. TESTAUTH is usually protected from casual use.
</evil Pedro>

dick scherrer · Posted: Thu Aug 28, 2008 2:28 am

Hello,

angt · New User Joined: 01 Jun 2005 Posts: 17 Location: USA

Thanks All for your views

Pedro what is IPCS ?

angt · New User Joined: 01 Jun 2005 Posts: 17 Location: USA

Pedro · Posted: Sat Aug 30, 2008 5:18 am

I suggest your application allocate a control block that includes a character field; perhaps some 8 or 16 character value that should be unique to your application. Many system control blocks typically have an 'ID' field for this purpose.

Then use IPCS to search through storage looking for your 'eyecatcher'. Then you will have the address of your control block. This is sort of a brainstorm session. I have not used IPCS in this fashion, but only surmise that it is possible.