Re: reading a sfl twice

["Justin Kiteley" <justin@xxxxxxxxxx>]

   Here is a short code snippet that I use for all subfile reads when 1
input select field is used for additions changes deletes etc.  It's nice as
it processes multiple and different options at the same time with no
problems.  Just make sure to clear and rebuild the subfile after running
this subroutine.  If you want to read the subfile twice you could just run
this subroutine two times.  Depending on what you are doing would determine
whether you cleared and rebuilt the subfile in between reads.  HTH


C     RRN01  IFNE 0
  *
C                    Z-ADD1         X       40
C     X            CHAINWHD880S1             81
C     *IN81     DOWEQ*OFF
   *
C                   SELEC
C     @S1SEL    WHEQ 'A'
C                   EXSR $ADD
   *
C     @S1SEL    WHEQ 'C'
C                   EXSR $CHANG
   *
C     @S1SEL    WHEQ 'D'
C                   EXSR $DELET
   *
C                   ENDSL
   *
C                   CLEAR@S1SEL
C                   UPDATWHD880S1
C                   ADD  1         X
 *
C       X         CHAINWHD880S1             81
C                   ENDDO
 *
C                   ENDIF



Justin Kiteley












----- Original Message -----
From: <saustad@deltadentalwi.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, April 19, 2001 2:00 PM
Subject: reading a sfl twice


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