Hidden feature or bug

[Carel Teijgeler <COTeijgeler@xxxxxxxxx>]

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