RE: Subfile Next Changed

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

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.