Re: Leer registro por clave en CL

Fri, 23 Sep 2016 07:03:59 -0700

Pues no, la verdad, en este tipo de casos siempre hemos utilizado un programa (rpg) que simplemente reciba como parámetro la  clave y devuelva el resultado necesario.



El 23/09/2016 a las 15:37, Carlos C. escribió:

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.

--

Jesús Busquets

Dir. T.I.

[email protected]

Grespania, S.A.

Facebook Pinterest Youtube RIBA Facebook

Este mensaje se dirige exclusivamente a su destinatario y puede contener información privilegiada o confidencial. Si no es Vd. el destinatario indicado, queda notificado de que la utilización, divulgación y/o copia sin autorización está prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción.

 



____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a