RE: SFLNXTCHG head-scratcher

But the READC is already past that record so it won't read it again until you EXFMT(write/read) the subfile. At least I never got it to work without doing that. 

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Carel Teijgeler
Sent: Wednesday, May 13, 2015 11:20 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: SFLNXTCHG head-scratcher

Dan,

The right order is:

READC
SFLNXTCHG = *ON
UPDATE SFL
SFLNXTCHG = *OFF


Regards,
Carel Teijgeler

On 13-5-2015 17:17, Dan wrote:
> It's been several years... meh, a decade since I last worked with 
> subfiles prior to this job I started a few months ago.
>
> Have a situation where SFLNXTCHG is not working as I expect it to.
>
> DSPF:
>       A          R MAPTRA1S                  SFL
>       A  39                                  SFLNXTCHG
>
> RPGLE:
>       FMAPTRADF  CF   E             WORKSTN INFDS(INFDS)
>       F                                     SFILE(MAPTRA1S:RRNSF1)
>       F                                     INDDS(DS@INDDS)
> ...
>       D DS@INDDS        DS
>       d SflNxtChg              39     39n
> ...
>        *** A field defined in the subfile record is updated by the 
> program, then...
>       c                   Eval      SflNxtChg =
> *on                              SFLNXTCHG (for READC
>       C                   UPDATE    MAPTRA1S
>       c                   Eval      SflNxtChg =
> *off                             SFLNXTCHG reset
>
> --->  At this point, should a READC pick up the record that was just
> updated?  In the program I'm modifying, the next I/O operation on the 
> workstation file is a READC on the subfile.  Does there need to be an 
> intervening EXFMT / WRITE of the subfile control record?  I tried a "1 
> SETLL  MAPTRA1S" after the update above, but the compiler isn't buying it.
> (Also tried *LOVAL in factor 1.) Here is the code with the EOF test:
>
>       C                   READC(E)  UGLTRA1S
>       C                   DOW       %EOF = *OFF
>
> Given the earlier code, I would have expected the READC to find the 
> updated record, but debug is showing that %EOF is *on, and is skipping 
> the DOW group.
>
> Ideas, advice appreciated!
>
> - Dan
>
--
This is the RPG programming on the IBM i (AS/400 and 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.