Re: reading a sfl twice

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Assuming that:-

    You want to read thru the subfile twice, using READC.
    The rrn field for the subfile is called RRN.
    SFLNXTCHG is conditioned by indicator 54.

1st pass
        Eval        RRN = 0
        Eval        *In54 = *On
        ReadC    Subfile
        Dow        Not %EOF

        (Do your stuff)

        Update    Subfile
        ReadC    Subfile
        EndDo
        Eval        *In54 = *Off

2nd Pass

        Eval        RRN = 0
        ReadC    Subfile
        Dow        Not %EOF

        (Do your stuff)

        ReadC    Subfile
        EndDo

Updating the subfile record with SFLNXTCHG enabled ensures that the subfile
record stays flagged as changed and therefor accessible on following READCs. 
Sett
ing the RRN field to 0 is the equivelent of a *Loval SetLL on the subfile.

HTH

Paul Tuohy



saustad@deltadentalwi.com wrote:

> Is there a method for reading thru a sfl twice using READC?  We have a
> situation where after we EXFMT, we need to "READC" thru the sfl twice.
> I was thinking of using the SFLNXTCHG without an indicator.  We checked the
> midrange archives, and there was something about doing a WRITE to the
> sfl control rcd fmt between the two READC loops to reposition the sfl to
> the beginning.  I'm having difficulty getting this to work.
> Thanks for any help.
>
> +---
> | 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
> +---


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