How to save an entire record in a Data Structure in Free ILE RPG

Happy Friday All,

I have a file with multiple rows for a KEY field.
My task is to save the first & last rows for the Key-Combo & compare them
later.

My RPG program does SETLL & READE to get the 1st row & SETGT & READPE to
get the last row.

In this RPG-Free code, I3APPTP1 is the File name & fI3APPTP1 is the Record
Format name.

After the program runs, there is nothing in A_Row, nothing in I3A_First &
nothing in I3A_Last.

But through my debug session I can confirm that READE & READPE are
successfully completing the IO & I have seen the values when I lookup (eval
field1 etc) every column of the row.

dcl-F I3APPTP1 Usage(*Input : *Update) Keyed USROPN;

dcl-DS I3A_First ExtName('I3APPTP1') Qualified;
end-DS;

dcl-DS I3A_Last ExtName('I3APPTP1') Qualified;
end-DS;

dcl-DS A_Row LikeRec(fI3APPTP1 : *ALL);

setLL (...) fI3APPTP1;
readE (...) fI3APPTP1;
I3A_First = A_Row;

setGT (...) fI3APPTP1;
readPE (...) fI3APPTP1;
I3A_Last = A_Row;

I am looking for a solution entirely using Free RPG hence not looking for a
SQL solution at this time.

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

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.