× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Hi Elbert
On a READPE use %eof instead

for example
Order# = 561329; // 561329 is the highest value, and also the
physically
last record in the file
SETGT Order# MyFile;
READPE Order# MyFile;
If not %eof(MyFile);

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



"Elbert Cook"
<elbert@cmfurnitu
re.com> To
Sent by: "'RPG programming on the IBM i /
rpg400-l-bounces@ System i'" <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
01/25/2011 01:23 Help with SETGT
PM


Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>






I guess I need help with SETGT

I have a physical file keyed unique by order number.

I do the following.

Order# = 561329; // 561329 is the highest value, and also the
physically
last record in the file
SETGT Order# MyFile;
READPE Order# MyFile;
If %found(MyFile);

I don't get a Hit, %found evaluates to false.
Any other value give a Hit. But I don't get a Hit using the highest value
(also being the last physical record) in the file?

Is this the correct behavior for SETGT?


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


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