Re: Subfile Next Changed

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Bob,

You should not need the write of the subfile control record. An update
of a subfile record with SFLNXTCHG on sets the "changed flag". Setting
RRN to 1 and issuing a READC should read the "changed record".

As to the RRN of 998 - are you sure there are actually 1000 records in
the subfile (as opposed to a size of 1000). At the end of your loop, X
would be 999 but RRN would be 998 if there were only 998 record in the
subfile.

HTH

Paul Tuohy

"Hopkins, Bill" wrote:
>
> Write of control record allowed readc to work
> after subfile next change update of all subfile records.
> z-add 1 to subfile rrn reset it to top.
>
> Will look for why RRN at 998 of 1000 next.
>
> Thanks All
> Bill H.
>
> -----Original Message-----
> From: Paul Tuohy [mailto:tuohyp@attglobal.net]
> Sent: Thursday, November 07, 2002 12:43 PM
> To: rpg400-l@midrange.com
> Subject: 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.
>
> _______________________________________________
> 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.
> _______________________________________________
> 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.