Re: Debug %found and other BIFs

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

You could set an indicator variable to the value...

D MyInd                        N

 /Free

  Chain Key File;
  MyInd = %Found(File);
  If %Found(File);
    // do something...
  EndIf;

/End-Free

On 4/14/06, BSchwar@xxxxxxxx <BSchwar@xxxxxxxx> wrote:
>
> Is there a way to view the results of %found or other BIFs when debugging.
> For example ...
> eval *in21
> returns a '0' or '1'
>
> Bob Schwartz
> Systems Analyst
> Information Systems
> Southeast Georgia Health System, Brunswick Campus
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>