Re: Chalk one up for "The Cycle"

Joe,

No, I think what he ment was that he needed the trigger to run on every
record - just as a one-time fix. I don't think the 2 line program was
the trigger program - it just triggered the trigger program.


Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





"Tony Carolla" <carolla@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/25/2007 02:32 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Chalk one up for "The Cycle"






Let me see if I understand. You have a program that operates on every
record in a particular file, which you coded as a trigger program (not
sure
why), and then you accomplished running the program by invoking the
trigger
on every record? Using the cycle? Why not just write the program as a
non-trigger program, and tell it to operate on every record in the file?

On 4/25/07, James H. H. Lampert <jamesl@xxxxxxxxxxx> wrote:

World's shortest RPG program:

It seems that I had a problem with a trigger, used for
data propagation. I was able to fix the trigger in such a
way that to correct any given erroneous "target" record, I
merely had to trip the trigger on the corresponding source
record, and since the trigger would go on a "no-change"
update operation, I didn't even have to do anything to the
source record.

Unfortunately, there were 192 affected records. And
backtracking from an erroneous "target" record to the
"source" record would take several minutes.

Solution: a Cycle program (the names have been changed to
protect the innocent):

FFOOBAR UP AE DISK
C UPDATE FOOBARREC

That's all. Nothing else. Just two lines. And it rides
through the file in a matter of seconds.

Ain't The Cycle wonderful?

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