ah, what a wonderful application for the RPG cycle!

Forget the SET command, just use InputPrimary, leave off the K and race
through the file doing  If date > testfield.   If the numbers indicate few
deletions, then leave the K there, by date, and stop or start doing
something when the date threshold is crossed.

It'd be 3 or 4 lines of c-specs, max, plus the sub-routine for what is to be
done?

Without the K and using IP, performance can be astonishly fast.


---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: midrange-l@midrange.com
Date: Saturday, December 08, 2001 01:18:54 AM
To: midrange-l@midrange.com
Subject: RPG/400 SETLL

Dumb Question

I still process some files via RPG READ loop after *LOVAL SETLL

I want to access a file by descending key & would you believe I have never
done that before via READ* variants?
I have got a logical of the records in descending sequence & I am not sure
if
my logic would be same pattern
ie. *LOVAL SETLL file then READ loop ("forwards" through the records)
or if I should *HIVAL SETHH at begeinning because I'm going to be reading
backwards.

Reason for this is I want to flag the oldest entries for deletion & I
thought
I would start at the beginning of the point I want to keep.

MacWheel99@aol.com (Alister Wm Macintyre) (Al Mac)
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2022 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.