RE: Subfile Next Changed

["Hopkins, Bill" <BHopkins@xxxxxxxxxxxxx>]

Way it was explain to me in earlier post. It never reach the end of SUBSIZ
of 1000 on update. So readc did not find anything because it started from
that point. I ran in STRISDB with z-add SUBFIL RRN to 1 before readc still
no hit.
I removed and ran again with write of rc00103c control rec after update of
998 of the subfile records and it worked. Added back in the z-add 1 to RRN
so it would be at being in a future loop.

Thanks Again

-----Original Message-----
From: Paul Tuohy [mailto:tuohyp@attglobal.net]
Sent: Thursday, November 07, 2002 2:01 PM
To: rpg400-l@midrange.com
Subject: Re: Subfile Next Changed


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.
_______________________________________________
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.