Re: What bugs you about KLISTs in RPG IV?

["Scott Klement" <infosys@xxxxxxxxxxxx>]

boldt@ca.ibm.com wrote:
(SNIP)
>
> keys directly in the CHAIN opcode.  Imagine for a moment:
>
>      cf   chain (custno: acctno: date) mastfile
>
> or even:
>
>      cf  chain (prodno: 'X' + subcode(n+14)) mastfile
>
> In other words, full expressions coded directly as key fields
> for the keyed I/O operations!
>
> So todays questions are:  Would you take advantage of this if
> available?  Would you still use KLISTs?
>
> Cheers!  Hans
>
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
>

Hans,

I'd prefer this method as well (if I'm every lucky enough to get off
of this CISC box, that is...)

While you're at it, can you make the free-format chain op-code
return a value to indicate success or failure?

It seems to me that this would improve the chain operation even
more...

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