Re: EOFW not resume

["Richard ECUYER" <recuyer@xxxxxxx>]

if a new record is inserted (depend on the other keys) you mus make a setll
before the read.
----- Original Message -----
From: "Michael" <mckhmail-web@xxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, November 29, 2004 3:42 AM
Subject: EOFW not resume


> Background:
> ===========
>
> *** Physical file
> contains record with different status (e.g. OS, ER, SD...).
>
> *** Logical file
> selects only records which status='OS' from the physical file.
>
> *** RPG program
> monitors logical file for records status='OS' continuously.  I am
> using EOFW for this purpose.
>
> Code:
> =====
> C*  Read the logical file GWRQCTL1
> C                   READ      GWRQCTL1
> C                   DOW       NOT %EOF(GWRQCTL1)
> C*
> C*  Handle special record used to terminate the program
> C                   IF        GCWFRF = *ALL'Z'
> C                   DELETE    GWRQCTL1
> C                   FEOD      GWRQCTL1
> C*
> C*  Handle record which status='OS'
> C                   ELSE
> C*  do something ...
> C                   ENDIF
> C*
> C                   READ      GWRQCTL1
> C                   ENDDO
>
> Question:
> =========
> The RPG program resume from EOFW when I insert a new record into the
> physical file which status='OS'.  But the problem is that, the
> program does not resume when I change the status of an existing
> record from other values to 'OS'.
>
> In the view of the logical file, there is a new record if a message's
> status is changed from other values to 'OS' in the physical file.
>
> Any mistake in my method?  Any method to fix it?  Thank you!
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>