Faltaba compilar con el OVRDBF activo. Saludos,
Javier From: Javier Baca Sent: miércoles, 18 de octubre de 2017 12:44 To: [email protected] Subject: HERRAMIENTA PARA LEER FUENTES Buenos días : Estamos intentando hacer una herramienta en rpg/ile para que lea fuentes de programa y modifique ciertas cosas pero nos encontramos con que ya ni nos compila, os explicamos : H DATEDIT(*YMD) * FQRPGSRC UF F 92 DISK * D LINDES DS D NUML 1 6 D AAMMDD 7 12 D A36TF 18 18 D WCOM 19 19 D TEXTO 20 20 D TEXTO2 40 61 D INMA 66 67 D INME 68 69 D INIG 70 71 D WCOM2 83 83 D LINEA 1 92 * IQRPGSRC NS 01 I 1 92 LINEA C***************************************************************** C* Programa principal C***************************************************************** * C READ QRPGSRC * C *IN30 DOWEQ *OFF * C MOVE 'ABC' TEXTO2 C UPDATE QRPGSRC * C READ QRPGSRC * C ENDDO * C SETON LR El CL de llamado es así : PGM DCL VAR(&BIB) TYPE(*CHAR) LEN(10) DCL VAR(&FUE) TYPE(*CHAR) LEN(10) CHGVAR VAR(&BIB) VALUE('JAVI') CHGVAR VAR(&FUE) VALUE('BARRA') OVRDBF FILE(QRPGSRC) TOFILE(&BIB/QRPGSRC) MBR(&FUE) CALL PGM(JAVI/LEERPGILE) DLTOVR FILE(*ALL) ENDPGM El compilador dá este error, en la línea del "UPDATE" : "*RNF5191 30 1 El Campo de Resultado no es una estructura de datos cuando el Factor 2 es un nombre de archivo." Un saludo y gracias por anticipado, Javier
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
