Re: finding a suitable key

[chronus@xxxxxxxxxxxx]

> FFil    UF A E       K DISK
> DKey    S                4S 0
> C             DoW     *In40 = *Off
> C             Add     1               Key
> C     Key     Chain   Fil_Rec                         40
> C             EndDo
> C             Move    Key             Fil_Key
> C             Move    Data            Fil_Dta
> C             Write   Fil_Rec


I guess my main concern here is that you're creating a loop here 
when you can just do a *LOVAL SETLL and READ the last record.  Your 
file is already keyed.  Why are you chaining to every record in your 
file?   (Very costly performance wise, particularly if you have a 
large number of records in this file later on.)   If I understand the 
intent of your programme (and I guess I'm not understanding 
completely why you would want to do this...), you only need the last 
record in the keyed physical.   

Ian 
 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *