Shouldn't that be:


D FirstRun                    s                 n            INZ(*ON)

 /free
   If FirstRun;
     // Do INZSR crap here
    FirstRun = *off;
   EndIf;

   Return;
/end-free

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Holden Tommy
Sent: Tuesday, November 29, 2005 9:42 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: To ride The Cycle or not to ride (was Re: INZSR weirdness)

1)  
D FirstRun                    s                 n            INZ(*ON)

 /free
   If FirstRun;
     // Do INZSR crap here
    EndIf;

   Return;
/end-free

2) if you are not using a primary file then you are NOT using the logic
cycle, you are controlling the file I/O in your code.

3) RPG IS my primary programming language, while I also use CL, VB, light
java, etc.  Just because it's there doesn't mean you have to use it...<tic> 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx] On
Behalf Of James H H Lampert
Sent: Tuesday, November 29, 2005 9:33 AM
To: RPG programming on the AS400 / iSeries
Subject: To ride The Cycle or not to ride (was Re: INZSR weirdness)

"Holden Tommy" wrote:
. . .
> Since we should all be avoiding the logic cycle (IMO) *INZSR is a 
> relic that isn't necessary.
. . .

In the first place, one of the major features of OS/400 is the ability to
return from a called program without destroying its activation, then quickly
and with little cost call it again. But such a program will almost certainly
have costly initializations that need to be done on the first call, but
should not (in some cases MUST not) be done again. How do you propose to do
this without an INZSR?

In the second place, using The Cycle does not in any way require the use of
a primary file, nor does it in any way preclude the exclusive use of full
procedural files.

In the third place, if you believe you should avoid The Cycle at all costs,
then I say you should avoid RPG at all costs. If AS/400 programmers had
always used languages other than RPG for programs that made no use of The
Cycle, then we'd probably have a lot more languages on the AS/400. I am sick
and tired of people learning exactly one programming language, and calling
themselves programmers. 
And if you perchance have a University degree in computer science, but
haven't managed to learn more than one programming language, you ought to go
to the computer science department of your alma mater, and demand a refund
for your tuition, because they never should have allowed you to become so
overspecialized.

Finally, I'm not opposed to the evolution of programming languages, but I AM
opposed to taking languages that have evolved into something else beyond
recognition, losing the distinguishing characteristics of their parent
languages, and calling them by the names of parent languages they evolved
from, but are no longer recognizable as. For example, I refuse to call any
of the QBASICs or TBASICs or VBASICs "BASIC," because they have less in
common with BASIC (whether you're talking Old Dartmouth, VS-BASIC, or
Applesloth, or GW-BASIC) than they have with PL/I. 
Likewise, "RPG/Free" ought to be called something completely different from
RPG, because it, too, has more in common with PL/I than with RPG. (Actually,
in the latter case, as far as I'm concerned, it would have been a better use
of resources for IBM to have turned OPM PL/I into a fully-supported
ILE-based full implementation of the language, than to have done as they
did, and stuck bits and pieces of it into RPG and called it "/Free.") When
Sun decided to develop a platform-independent, web-safe language derived
from C++, they did NOT call it 
C++-- (although the wags did); they called it something
completely different (albeit something that showed the world they were
drinking entirely too much coffee): They called it Java.

--
JHHL
--
This is the RPG programming on the AS400 / iSeries (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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.