Re: Subfile Next Changed -- RPG400-L

Hi Bill,

Ain't subfiles fun? :-)

There has to be something else in here because you definitely do not
need to do anything with the subfile control record.

This is how READC should work.

Every subfile record has a "modified indicator".
Typing something into a field on the subfile sets on the "modified
indicator".
Updating the subfile record with SFLNXTCHG enabled sets on the "modified
indicator".
A READC will read the NEXT record (i.e. from where the current pointer
is, that pointer being the RRN field for the subfile) with a "modified
indicator" on.
The process of inputing a subfile record sets OFF the "modified
indicator".

No subfile control record required.

So, if subfile records have been updated with SFLNXTCHG enabled then.

 C                     Z-ADD1              RRN
 C                     READCRC00103S                 25

should read the first subfile record that has it's "modified indicator"
on.

HTH

Paul Tuohy

"Hopkins, Bill" wrote:
>
> 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