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.
