Buenos días:
En el foro encontre la sentencia CPYFRMQRYF y la probe. Exactamente el OPNQRYF lo hace correctamente, pero a la hora de tratar la información en el programa, en el caso del RPG me lo hace correctamente y en el caso del RPGILE no. No se si habrá que definirlo de alguna manera en especial. También he probado ha abrir el fichero manualmente. Para hacer las pruebas estoy haciendo un debug del programa RPGILE.
Mi programa de pruebas es el siguiente:
PGM
DCL VAR(&FDC) TYPE(*CHAR) LEN(8)
DCL VAR(&FHC) TYPE(*CHAR) LEN(8)
CHGVAR VAR(&FDC) VALUE('20091101')
CHGVAR VAR(&FHC) VALUE('20100430')
OVRDBF FILE(PDCOZLB) SHARE(*YES)
OPNQRYF FILE((PDCOZLB)) QRYSLT('OZFALT *EQ %RANGE(' +
*CAT &FDC *CAT ' ' *CAT &FHC *CAT ') ') +
KEYFLD((OZART) (OZFCH))
CPYFRMQRYF FROMOPNID(PDCOZLB) TOFILE(PRISO/KAIXO) +
CRTFILE(*YES)
CALL PGM(PRV490C) /* RPG */
CALL PGM(PRV490B) /* RPGILE */
CLOF PDCOZLB
DLTOVR *ALL
ENDPGM
* ------------------------------------------------------------------
H DEBUG DECEDIT('0,') DATEDIT(*DMY.)
* ------------------------------------------------------------------
FPDCOZLB IF E K DISK
* ------------------------------------------------------------------
** 1ª Lectura de PDCOZ
*
C READ RGPDCOZ 73
*
C SETON LR
*
Muchas gracias por la colaboración.
Un saludo
Izaskun