RE: Hidden feature or bug

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Carel,

Double check that indicator 97 is in the proper column.  My guess is that it
is in the wrong spot.  Or better yet, use the %found bif instead of the
indicator.

Scott Mildenberger

> -----Original Message-----
> From: Carel Teijgeler [mailto:COTeijgeler@chello.nl]
> Sent: Saturday, September 08, 2001 9:06 AM
> To: RPG400-L@midrange.com
> Subject: Hidden feature or bug
>
>
> --
> All,
>
> since August we have moved to V4R5M0, coming from V3R2M0. So
> I think our
> PTF our almost uptodate.
>
> In a new RPG programme we have got the following code:
>
>
> FFileA          IF           F   1024            Disk
> FFileB          UF          E                K   Disk
> I FileA       AA     01
> I                                                        5
> 17  OrderID
> C                                    Read                  FileA
>                                 98
> C                                    DoW                  *IN98 = *OFF
> C           OrderID              Chain                 FileB
>                       97
> C                                    DoW                  *IN97 = *OFF
>      etc.
> C           OrderID              ReadE                FileB
>                            97
> C                                    EndDo
> C                                    Read                  FileA
>                                 98
> C                                    EndDo
> C                                    Move                  *ON
>        *INLR
>
> The OrderID field contains the value '50000'. This value does
> not exist in
> the OrderID field in FileB. So you expect *IN97 to be turned
> *ON at the CHAIN.
>
> This is NOT the case, however. *IN97 remains *OFF after the CHAIN and
> enters the second DoW-loop, resulting in a endless looping programme.
>
> This also happens, when FileB is completely empty.
>
> In debug we have changed the value of *IN97 to *ON before the
> CHAIN, but
> after the CHAIN the indicator was *OFF again.
>
> Replacing the CHAIN with SETLL, READE worked OK.
>
> What is wrong with this piece of code?
>
> TIA,
>
> Carel Teijgeler
> --
>
>
> _______________________________________________
> 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.
>