Re: READE EOF Handling/Repositioning

Hello Nick,

Am 04.03.2020 um 17:09 schrieb Nick <nicola.brion@xxxxxxxxxxxx>:

Wait. If you need to read from a *Specific* point inside the key, you

have to use 2 keys, one for setgt and one for the readp (or a single key
specifiying number of filed to use). If you just need to read all record
that have that key, just use a single one.

A 'classic' example with orders row:

Setgt (OrdNum) OrdRow
Readpe (OrdNum) OrdRow

will read all order's row for the given order, while:

Setgt (OrdNum:100) OrdRow
Readpe (OrdNum) OrdRow

will read from highest row less or equal 100, and then down to lower one.

I don't think that works with V4R5 RPG, since there's no "free" and I
can't remember to have additional arguments for SETGT allowed. Yes, really
classic. :-)

Aside, the goal is after READE sets EOF, I want to to a SETGT on the last
record, so I can properly READPE backwards. READ(P)E should be done with
just one key field to only pick out the needed records, and set BOF/EOF
when this subset of records is exhausted. But for repositioning at EOF, I
need *HIVAL for a second order key. SETLL with just the first order key
already places me at BOF (for the given record set).

Niels brought me on the right track. :-)

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE - https://www.pocnet.net/poc-key.asc


--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com