R: RPG Indicators

Try to do that... It'll be work Ok

> dow field1=0
> exfmt something
> readc sfl
> if %found(sfl)
> exsr ChkSubroutine
> endif
> enddo
>
> ChkSubroutine begsr
> ...
>      key1     chain somefile
> ...
>               endsr


 -----Messaggio originale-----
Da:     Bryan Yates [mailto:srprog3@co.collin.tx.us] 
Inviato:        giovedì 13 aprile 2000 18.18
A:      RPG400-L@midrange.com
Oggetto:        Re: RPG Indicators

 << File: Card for Bryan Yates >> 

Andrew Sereda wrote:

>
>
> I fell into a trap with "%Found" after readc of a subfile that was
> in dow cycle.
>
> dow field1=0
> exfmt something
> readc sfl
> if %found
> exsr ChkSubroutine
> endif
> enddo
>
> ChkSubroutine begsr
> ...
>      key1     chain somefile
> ...
>               endsr
> If "chain" is not succes in subroutine  there was not %found after
> readc.
> I come back to indicators.
> What do you think about this?
>

Andrew,
According to the ILE RPG Reference page 381,

%Found is valid only for the following operations

Chain, Delete, Setgt, Setll, Check, Checkr, Scan and Lookup

You should probably be using "Not %EOF" test for your subfile read
operation
instead of %Found

Bryan Yates
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---