Wouldn't it be easier to just use interactive sql?
Update FOOBAR set field1=field1
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[
mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James H. H. Lampert
Sent: Wednesday, April 25, 2007 2:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Chalk one up for "The Cycle"
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.
midrange.com
