The CHGVAR command can be used to retrieve and to change the local data
area also.
For example, the following commands blank out 10 bytes of the local data
area and retrieve part of the local data area:
CHGVAR %SST(*LDA 1 10) ' '
CHGVAR &A %SST(*LDA 1 10)
Page 178 of the
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rbam6/rbam6.
pdf manual
Michael
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Friday, June 27, 2008 1:09 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Setting value of a CL variable
Don Cavaiani wrote:
Is it possible to change the value of a CL variable to the value of
certain bytes in the *LDA?
At some point in time, the CHGVAR was enhanced to enable access
directly to the *LDA for both set and get [using the %substring builtin
function]. I do not see any *LDA support in ADDRESS() parameter of the
DCL [declare variable], so I do not know if\what data type capabilities
CHGVAR could give beyond enabling using CHGVAR; i.e. simply removes the
requirement to use RTVDTAARA, and the same substring issue remains. It
would be possible to declare typed data directly over the storage using
a BASPTR [basing pointer] if the CHGVAR could use the %ADDR() to get an
address to the *LDA. Presumably not possible, neither by CHGVAR &PTR
%ADDR(%SST(*LDA 1 1)) nor %ADDR(*LDA) since %ADDRESS() builtin function
apparently only supports a CL variable name.
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rbam6/rbam6.
pdf
Documented for %sst it is suggested that one may "code *LDA in place of
the character variable name to indicate that the substring function is
performed on the contents of the local data area."
The above on\by v5r4. I am not sure about any more on 6.1
Regards, Chuck
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
______________
The information contained in this message is proprietary and/or confidential. If you are not the
intended recipient, please: (i) delete the message and all copies; (ii) do not disclose,
distribute or use the message in any manner; and (iii) notify the sender immediately. In addition,
please be aware that any message addressed to our domain is subject to archiving and review by
persons other than the intended recipient. Thank you.
_____________
midrange.com
