• Subject: Re: status of last chain to file
  • From: Pete Hall <pbhall@xxxxxxxxxx>
  • Date: Sun, 24 Oct 1999 20:40:23 -0500

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

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact [javascript protected email address].