RE: What bugs you about KLISTs in RPG IV?

I can see that the issue of the klist in a free from is very polar, but why
not allow it both ways....

One way it might work is to do this...

   c         OldKeyList     Klist
   c                              Kfld             custno
   c                              Kfld             acctno
   c                              Kfld             date
   c                  
   cf   if %chain(OldKeyList:mastfile)
   c    ... record found
   c   else
   c   %error() = whats wrong here
   c   endif

OR at the chain level...

   cf   if %chain(custno,acctno,date:mastfile)
   c   ... record found
   c   else
   c   %error() = whats wrong here
   c   endif

or as it would be today (a found record is equal to a '0')
   cf   if NOT %chain(OldKeyList:mastfile)
   c   ... record found
   c   else
   c   %error() = whats wrong here
   c   endif
Or for Random Access Lookups, us the Relative Record .
   cf   %chain(RelativeRecord#:Mastfile)

of course you would have similar features to all the other I/O commands.

Just a few ideas, where I think everybody could win, just have the SHOPS
define there own standards about klist....

Also I have a question about code/400 does it support change dates at the
source line level????

But I also agree, it would be nice to debug the value of a klist, plus I
would like to be able debug the values of the %found,%equal expressions....

Plus, I have one big problem with the debug tool, that is the fault of
myself, and I was hoping someone might have an idea....Lets say I'm
debugging a program, and I have stepped a gazzilion times, and I decide to
get lazy and I add a few break points and hit f12 to resume the program,
somehow I set the breakpoint in the wrong place and my program will never
break back to the debugger, is there any way to force it back, if i'm
sitting at a interactive screen.... or something......I suppose I could
started a service job on another session, but I was just wondering if anyone
else had any ideas...

Thanks,  Tim


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