Re: status of last chain to file

[Pete Hall <pbhall@xxxxxxxxxx>]

At 15:34 10/21/1999, Max wrote:
>      Hi,
>
>      I have a program that has 10 files in it. All chain's use indicator 90
>      in the no record indicator. So how can i find out if a file i am going
>      to update had the record found on the last chain operation?
>      Thanks for any information on this.

Guessing that this is probably RPG3, immediately after the chain, save the 
status in an indicator field:
        C               MOVE  *OFF      HAVEF1
        C     *IN90     IFEQ  *OFF
        C               MOVE  *ON       HAVEF1
        C               ENDIF
After updating, turn your indicator off so you can't try to update the same 
record twice.

Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---