Re: Subfile Next Changed -- RPG400-L

Hi Bill,

A couple of things to try.

- Try putting the Z-ADD1      #RRN3   in the $VAL3 subroutine on the
line directly above the first READC.

- Where you are using the Write to the control record debug the program
and check the value of #RRN3 before and after the Write (a lot depends
on what SFL indicators are on when you do this Write)

- Looking at the snippet of code, you would have a problem if there were
not any records in the subfile - has the subfile been loaded? Maybe have
a look (in debug) at what is happening in the CLEAR loop.

HTH

Paul

"Hopkins, Bill" wrote:
>
> I thought my problem was the fact I was at rec 998 of subfile
> after updating each with the SFLNXTCHG indicator on for each update.
>  So when I did READC I positioned in subfile below the records
> I had just updated with change on. This had no hit on readc.
>
> So to fix I tryed in debug a z-add 1 to #RRN3 after update.
>
> A          R RC00103S                  SFL
> A  80                                  SFLNXTCHG
>
> A     R RC00103C                  SFLCTL(RC00103S)
> A                                      CF07
> A                                      CF04
> A  51                                  CF05
> A                                      CF11
> A                                      CF09
> A                                      CF01
> A  99                                  ALARM
> A                                      OVERLAY
> A                                      SFLCSRRRN(&S@CRS)
> A  31                                  SFLDSP
> A  30                                  SFLDSPCTL
> A  32                                  SFLCLR
> A  38                                  SFLEND(*MORE)
> A  36                                  SFLDROP(CF11)
> A N36                                  SFLFOLD(CF11)
> A                                      SFLSIZ(1000)
> A                                      SFLPAG(0006)
> A            S@CRS          5S 0H
> A            S@POS          4S 0H      SFLRCDNBR(CURSOR *TOP)
>
> FRC0010D CF  E                    WORKSTN
> F                                        #RRN3 KSFILE RC00103S
>
> C                     CLEARX
> C                     DO   999       X
> C           X         CHAINRC00103S             25
> C           *IN25     IFEQ *OFF
> C                     MOVE *ON       *IN80
> C                     UPDATRC00103S
> C                     ENDIF
> C                     ENDDO
> C                     Z-ADD1         #RRN3            <<<<<<<<<
>
> C                     EXSR $VAL3
> +++++
> C           $VAL3     BEGSR
>  *
> C                     READCRC00103S                 25
>  *
> C           *IN25     DOWEQ*OFF
>  *
> +++++
> Still had problem
> when breaking on *IN25 DOWEQ *OFF *IN25 was on.
>
> So after reading post tryed the following
> Changed Z-ADD 1 #RRN3 to WRITERC00103 ran again and *IN25 DOWEQ *OFF was
> *OFF.
> #RRN3 = 998. READC hit first record changed by update which was record 1 of
> subfile.
>
> I had same thoughts as you on "How it should work" but wasn't.
> Anyone see what's up or can explain please do.
>
> I think because I did not naturally hit the end of subfile when in update
> loop.
> Force of #RRN3 to 1 from 998 before readc really has not happen in the
> background.
> And I think the write of the control record reset things in background so
> change is
> pick up by readc.
>
> Thanks
> Bill H.
>
> -----Original Message-----
> From: Paul Tuohy [mailto:tuohyp@attglobal.net]
> Sent: Thursday, November 07, 2002 3:07 PM
> To: rpg400-l@midrange.com
> Subject: Re: Subfile Next Changed
>
> 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