RE: RPG IV value as var

/Copy and /Include can be at any position >= 7 within the /Free - /End-Free

Duane


--


Duane Christen
Senior Software Engineer
(319) 790-7162
Duane.Christen@xxxxxxxxxx

Visit PAETEC.COM


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

Jerry

Very picky but not a new thing - same as all the other compiler "slash"
directives, like /copy, /title, /eject, /space, /copy, /include, and our favorite, /exec-sql

Anyone have a blast from the past looking at that list?

All the conditional directives also start in column 7.

Vern

Jerry Adams wrote:

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.

--
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.