RE: What bugs you about KLISTs in RPG IV?

["Hatzenbeler, Tim" <thatzenbeler@xxxxxxxxxxxxx>]

        snip.... 
> Something like:
> 
> cf    if chain(FILE: key1: key2) = -1
> cf  .... handle "not found" or "error" here...
> cf    else
> cf  ...  normal processing here ...
> cf    endif
> 
> I know that you can do something similar with BIFs, but this would
> (in my opinion) be even more elegant.
> 
> Scott Klement
> Information Systems Manager
> Klement's Sausage Co, Inc.
> 
        -----

        I agree with this suggestion 100% and and would even go as far as to
say....
        cf    if chain(FILE: key1: key2) 
        cf  ..... we found the record
        cf    else
        cf  ...  record not found..
        cf    endif

        change the result of the 'found chain' into a TRUE value....
        Tim Hatzenbeler


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *