Hello
I got a CLLE OVRDBF + OPNQRY file
OVRDBF FILE(FILE) OVRSCOPE(*CALLLVL) SHARE(*YES) SEQONLY(*NO)
OPNQRYF FILE((FILE)) OPTION(*INP) FORMAT(FILE) +
QRYSLT(' FIELD1 < 0 *AND FIELD2 *LT (' +
*CAT &VAR1 *CAT ') +
KEYFLD((FILE3)) OPNSCOPE(*ACTGRP)
In the RPGLE
I GOT
C read(e) rfile
C dow not %eof
C* Do something
C call PGMA
C* If condicion A
C If cond = 'A'
C* Update the record
C call PGMB
C endif
C read(e) rfile
C end
When the record goes to PGMB, the read(e) is reading the same record, why?
I got a CLLE OVRDBF + OPNQRY file
OVRDBF FILE(FILE) OVRSCOPE(*CALLLVL) SHARE(*YES) SEQONLY(*NO)
OPNQRYF FILE((FILE)) OPTION(*INP) FORMAT(FILE) +
QRYSLT(' FIELD1 < 0 *AND FIELD2 *LT (' +
*CAT &VAR1 *CAT ') +
KEYFLD((FILE3)) OPNSCOPE(*ACTGRP)
In the RPGLE
I GOT
C read(e) rfile
C dow not %eof
C* Do something
C call PGMA
C* If condicion A
C If cond = 'A'
C* Update the record
C call PGMB
C endif
C read(e) rfile
C end
When the record goes to PGMB, the read(e) is reading the same record, why?
Comment