Re: MAIN and LR -- RPG400-L

Be careful with reset. The way it works is the system makes a copy of
the variables into static storage and then uses that copy to reset the
variables. I had a program that was using a ton of static and couldn't
figure out why. Turned out I was using a reset and it was keeping all
the values to do the reset in static.

On Thu, Sep 27, 2012 at 7:10 AM, Briggs, Trevor (TBriggs2)
<TBriggs2@xxxxxxxxxxx> wrote:

Put all the variables you want to initialize in a data structure and do
a "Reset" at the top of your code. This sets them all back to their
initialized values, does it not?

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert J. Mullis
Sent: Wednesday, September 26, 2012 5:41 PM
To: RPG programming on the IBM i / System i
Subject: Re: MAIN and LR

Is there any real difference or code/time savings by doing a D spec

D fielda 30a automatic

versus

/free
clear fielda
/end-free

in your main procedure.

-----Original Message-----
From: Alan Campin
Sent: Wednesday, September 26, 2012 5:26 PM
To: RPG programming on the IBM i / System i
Subject: Re: MAIN and LR

I like the idea. Provide a keyword AUTOMATIC that could be used only
on a global variable and would initialize every time the program was
called.

On Wed, Sep 26, 2012 at 3:14 PM, Joe Pluta <lists@xxxxxxxxxxxxxxxxx>
wrote:

On 9/26/2012 3:31 PM, Ken Sims wrote:

Hi Alan -

On Wed, 26 Sep 2012 13:54:32 -0600, Alan Campin<alan0307d@xxxxxxxxx>
wrote:

Yes, but only the first time, if the variable is global, that a

given

module or program is called. In my opinion, that is a bug. I think
every time you call a program or module it should execute the
initialize logic for a global variable if the variable has a INZ
keyword on the variable.

Not even!!!

I have many API-type programs that get called repeatedly and return
with *INLR off. If the global variables were reinitialized (even if
it was limited to those with an explicit INZ), many of those programs
would stop working properly.

The rule of the compiler is that global variables are static,
regardless of whether or not there is an explicit INZ. Changing that
rule would be a major issue for many people.

To get your behavior there would need to be an enhancement to allow
global variables to be specified as AUTOMATIC. If that were added, I
would expect those variables to be initialized on every call, even if
they don't have an explicit INZ.

Ken
Opinions expressed are my own and do not necessarily represent the

views

of my employer or anyone in their right mind.

I have to chuckle when I read that sig, Ken. And I agree 100% with

your

assessment about only changing the rules with an AUTOMATIC flag.
However, many might argue that I am not right in my mind, so there you

go.

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

--
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 message originates from Lincare Holdings Inc. It contains information which may be confidential or privileged and is intended only for the individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the contents of this message.
All personal messages express views solely of the sender, which are not to be attributed to Lincare Holdings Inc., and may not be copied or distributed without this disclaimer.
If you received this message in error, please notify us immediately at MailAdmin@xxxxxxxxxxx or (800) 284-2006.
************************************************************************************************************************************************************************************************************

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