RE: RPG IV value as var

[Jerry Adams <Jerry@xxxxxxxxxxxxxxx>]

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.