Si lo que quieres es leer únicamente determinados registros iguales a una clave, que le pasas por parámetro, leerlos todos y comparar puede ser muy ineficiente.
Si es ese el caso, otra forma de hacerlo creo que podría ser abrir primero el archivo con OPNQRYF, de modo que selecciones solo los registros a procesar.
Saludos Jesus Busquets
[EMAIL PROTECTED] escribió:
LEE1: RCVF RCDFMT(TPLANF) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN)) -> TE INDICA FIN DE FICHERO
IF COND( ) THEN DO()
--- --- --- ENDDO
GOTO CMDLBL(LEE1)
FIN: ENDPGM _____________________________________________ Jose Luis Aguilera Analista Ediciones Rueda JM, S.A. Los Mesejo, 15 28007 Madrid Tfno:914 343 883 / 914 343 860 Ext: 166 Fax: 915 518 161
"Juan Gutierrez Ruiz" <juan_gutierrez_r Para [EMAIL PROTECTED]> "AS400EZ" <[EMAIL PROTECTED]>, Enviado por: "AS400_ES" forum.help400-req <[EMAIL PROTECTED]>, "AS400" [EMAIL PROTECTED] <[EMAIL PROTECTED]> cc 30/11/04 16:22 Asunto como leer una base de datos dentro de un cl Por favor, responda a [EMAIL PROTECTED] bios.es
Foro , buenos dias, nesecito leer una base de datos que tienes clave y nombre pero dentro de un cl se que se puede definir con, INICIO: DCLF FILE(ADAMFA/TPLAN) RCDFMT(TPLANF)
Y LUEGOP LO PONGO EN UN DO
COMO LEO EL CAMPO CLAVE PARA PASARLO COMO PARAMETRO Y COMO DETECTO EL FIN DE ARCHIVO , AUTOMATICO, SOLO SON 15 CLAVES SI ALGUIEN TIENE UN EJEMPLO SE LOS AGRADECERE
_____________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
_____________________________________________________________________ Mensaje analizado y protegido, tecnologia antivirus www.trendmicro.es
_____________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]