RE: RPG IV value as var

Also, the /Free must start in column 7, not 6, not 8. Very picky.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Tuesday, June 23, 2009 9:24 AM
To: RPG programming on the IBM i / System i
Subject: Re: RPG IV value as var

RPGLE source type, right?

On Tue, Jun 23, 2009 at 9:58 AM, PEPITOVADECURT <pepitovadecurt@xxxxxxxxx>wrote:

Hi, when I introduce a line D, message appears, not permited line D (The
type isn't E,F...).
Not permited /FREE

What I need to install?



Pete Hall escribió:

PEPITOVADECURT wrote:

Is posible to assign a content from variable to a variable name?

It's not what you asked for, but this is about as close as you can get
with RPG. Of course the variable name is not "variable", but you can
assign a previously defined name to a storage location:

D MyVar S 10 Inz('MyValue')
D Pointer S * Inz(*NULL)
D MyNewVar S 10 Based(Pointer)
/FREE
// Here variable MyNewVar exists, but is undefined.
// any attempt to use it will produce an error.
Pointer = %Addr(MyVar);
// Here MyNewVar contains the value 'MyValue', and can be used
// just like any other variable.
/END-FREE

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.