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

[Marco Facchinetti <marco.facchinetti@xxxxxxxxx>]

Try with: readE (...) fI3APPTP1 A_Row

HTH;
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco


Il giorno ven 6 feb 2026 alle ore 19:12 Mohan Eashver <mohankva@xxxxxxxxx>
ha scritto:

> 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: 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.