RE: Indirect addressing in CL

[Jeff Bull <Jeff.Bull@xxxxxxxxxxxxxxx>]

I recall that REXX/400 allows you to create variables on the fly ...
I haven't seen it for years (5-ish), but I'm sure it can do it.

Jeff Bull

-----Original Message-----
From: MBarton@pink.co.uk [mailto:MBarton@pink.co.uk]
Sent: 20 September 2001 16:04
To: midrange-l@midrange.com
Subject: RE: Indirect addressing in CL





>> One thing you can do is change the value of a variable whose
>> name is held in another variable (not quite the same thing)...
>
>In CL?  How do you do that?   (Coffee not kicking in, evidently)
>

You need to put your devious hat on for this one.
(never tried this but should work)

do a STRDBG in your cl program and then do a
CHGPGMVAR PGMVAR(&VARIABLE) VALUE('whatever')

cunning eh :)

Mike



This communication and the information it contains: - (a) Is intended for
the person(s) or organisation(s) named above and for no other person(s) or
organisation(s).  Access to this mail by anyone else is unauthorised.  (b)
Is confidential, and may be legally privileged or otherwise protected in
law. Unauthorised use, circulation, copying or disclosure of any part of
this communication may be unlawful.  (c) May be susceptible to interference,
and should not be assumed that it has come in its original form and/or from
the stated sender or PinkRoccade UK accepts no responsibility for
information, errors or omissions in this e-mail or use or misuse thereof or
any act done or omitted to be done in connection with this communication. If
you are not the intended recipient, please inform postmaster@pink.co.uk
immediately and delete it and all copies from your system.
_____________________________________________________________________
This message has been checked for all known viruses by PinkRoccade delivered
through the MessageLabs Virus Control Centre. For further information visit
http://www.uk.uu.net/products/security/virus/
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


DISCLAIMER

Any opinions expressed in this email are those of the
individual and not necessarily the Company. This email
and any files transmitted with it, including replies and
forwarded copies (which may contain alterations)
subsequently transmitted from the Company, are
confidential and solely for the use of the intended recipient. If you are not 
the intended recipient or the
person responsible for delivering to the intended recipient,
be advised that you have received this email in error and
 that any use is strictly prohibited.

If you have received this email in error please notify the IT
manager by telephone on +44 (0)208 4762000 or via
email to Administrator@itm-group.co.uk, including a copy
of this message. Please then delete this email and
destroy any copies of it.

_____________________________________________________________________
This message has been checked for all known viruses by Star Internet
delivered through the MessageLabs Virus Scanning Service. For further
information visit http://www.star.net.uk/stats.asp or alternatively call
Star Internet for details on the Virus Scanning Service.