RE: Subfile Next Changed -- RPG400-L

I check indicator *IN25 and it was on prior to READC     25.
 But pretty sure READC would reset it. But just to be safe cut it off "Z-ADD
*OFF *IN25"
just before readc and of course it set it back on. This was without the
writerc00103C or Z-add1 #RRN3

Thanks
Bill H.

-----Original Message-----
From: Booth Martin [mailto:Booth@martinvt.com]
Sent: Friday, November 08, 2002 8:27 AM
To: rpg400-l@midrange.com
Subject: RE: Subfile Next Changed



Of course *IN25 isn't be set on in some other place or way?




---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Friday, November 08, 2002 08:09:51 AM
To: 'rpg400-l@midrange.com'
Subject: RE: Subfile Next Changed

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