RE: Reading last record

You want to use READP, the following piece of code will get the last record
by the key of the file being used (assuming the K in the f spec).  I just
tested it to make sure.

     c     *end          setll     pctmst
     c                   readp     pctmst

Scott Mildenberger

> -----Original Message-----
> From: Fisher, Don [mailto:Dfisher@roomstoreeast.com]
> Sent: Friday, June 21, 2002 11:58 AM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Reading last record
>
>
> Now how long has that been there?
>
> If I'm reading the reference manual correctly, using *END in a SETLL
> operation would entail the use of READ and not READP.
>
> However, I've been known to misinterpret manuals.
>
> Donald R. Fisher, III
> Project Manager
> The Roomstore Furniture Company
> (804) 784-7600 extension 2124
> DFisher@roomstoreeast.com
>
> <clip>
>
>      C                 *END            Setll  Trndtal0
>
> <clip>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>