Re: Subfile Next Changed

Hi Bill,

Before the READC simply Eval RRN = 1. This is the equivelent of doing a
*LOVAL SETLL on the subfile. You do not need to re-write the subfile
control record or any such - SFLNXTCHG is a subfile record keyword.

HTH

Paul Tuohy

"Hopkins, Bill" wrote:
>
> Hi All,
>
> Do not ask why, but this subfile is TRYING to be totally control/edited by
> the program before any writes/update to PF.
> About 3 thousand plus lines.
>
> Force change to subfile records?
>
>  C                     CLEARX
>  C                     DO   999       X
>  C           X         CHAINRC00103S             25
>  C           *IN25     IFEQ *OFF
>  C                     MOVE *ON       *IN80             <<<<<< SFLNXTCHG
>  C                     UPDATRC00103S
>  C                     ENDIF
>  C                     ENDDO
>
> Skip code(nothing touching subfile) then the following:
>
> C                     READCRC00103S                 25
>  *
> C           *IN25     DOWEQ*OFF                           <<<<< 25 is on. On
> first readc
>
> Is this *ON because control rec(RC00103C) to subfile not written or exfmt
> before READC? Or RRN to subfile at bottom?
> Why READC not seeing it as changed?
>
> Mind fried trying to find.
> Thanks
>
> Bill H
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.