Re: Operation Code Extender (E) not working ?

[Russell Conerly <rconerly@xxxxxxxxxxx>]

Replace the %found with %EOF.  That should do it.

Regards,
Russell Conerly




>
>Anyone having the same problem ?
>
>Sample code:
>
>WWMFAC    SetLL          IWML03                               0101 (LOEQ)
>WWMFAC    ReadE(E)       IWML03
>
>          If        not %Found
>          ......
>          EndIf
>
>IWML03 is keyed and not Joined. If WWMFAC is not on the file, my logic tells me
>that the "If" must be executed. Debugging shows me that it is not.
>
>Going back to RPG IV code:
>
>WWMFAC    SetLL          IWML03                               0101 (LOEQ)
>WWMFAC    ReadE          IWML03              01 (Error)
>
>          If        *In01
>          ......
>          EndIf
>
>This executes the "If".
>
>The Chain(E), ReadC(E), Read(E) is working !
>
>What am I doing wrong ?
>
>We're currently on V4R4 with the latest Qum. PTF loaded.
>
>Thnx.
>
>Kobie
>
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---