Buen dia Foro
Algunos de Uds. tuvieron necesidad de leer un archivo por clave en CLP y
obtener un campo?
Por ejemplo: tengo una tabla de usuario y quiero leer por ID para obtener un
campo X.
RTVJOBA USER(&USERID)
OVRDBF FILE(MYFILE) TOFILE(QS36F/MYFILE) +
POSITION(*KEY 1 USRREC &USRCOD)
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
CLOF OPNID(MYFILE)
DLTOVR FILE(MYFILE)
Mensaje . . . . : myPGM ha recibido CPF4137 en la sentencia 3800. (C D I
R)
Causa . . . . . : El programa de lenguaje de control (CL) MYPGM de la
biblioteca WRKCARLOSP ha detectado un error en la sentencia número 3800. El
texto del mensaje de CPF4137 es: Opción de posición para miembro MYFILE no
válida.
Recuperación . : Este mensaje de consulta se puede evitar cambiando el
programa. Supervise en busca de un error (mandato MONMSG) y lleve a cabo la
recuperación de errores en el programa. Para continuar, elija un valor de
respuesta.
Elecciones posibles de respuesta al mensaje . . . :
C -- Cancelar el programa CL.
Saludos y gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
