No es que quiera abrir un debate pero ¿Todavía usáis GO TO ?
Ya es el 2º ejemplo que leo con GO TO y después de las malas experiencias que he tenido cada vez que veo esta instrucción me da telele ;-) Un saludo, Rafa De: [email protected] [mailto:[email protected]] En nombre de Elvira Vázquez Enviado el: viernes, 18 de junio de 2010 18:42 Para: 'forum.help400' Asunto: RE: Chain en COBOL Hola Si el fichero no tiene definidas estas claves tendrías que definir un fichero logico con ellas (LF). En la PROCEDURE harías 1.- START FICHERO KEY NOT LESS CAMPO1 CAMPO 2 CAMPO3. LEER. READ FICHERO NEXT AT END GO TO FINAL. IF ESTADO NOT EQUAL ZEROES GO TO FINAL. IF CAMPO1 GREATER .. La rutina depende de lo que quieres hacer y contra que lo compares. Esto es un ejemplo de un read secuencial a partir de una clave 2.- Si quieres un acceso directo sería MOVE XXXXXe TO CAMPO1. MOVE YYYY TO CAMPO2. MOVE ZZZZ TO CAMPO3. READ FICHERO. IF ESTADO NOT EQUAL ZEROES Rutina- de- error GOBACK. Aquí iría el proceso al encontrar los datos _____ De: [email protected] [mailto:[email protected]] En nombre de JUAN García Enviado el: viernes, 18 de junio de 2010 18:27 Para: forum.help400 Asunto: Re: Chain en COBOL Hola Creo que no me he explicado bien, lo que necesito es un ejemplo de una subrutina en COBOL para acceder a un registro de un fichero de base de datos por clave, es decir tengo un fichero como este: R REG01 K CLAVE1 K CLAVE2 K CLAVE3 En RPG el acceso se haría así (hay otras formas) KEYREG KLIST KFLD CAMPO1 KFLD CAMPO2 KFLD CAMPO3 Z-ADD CAMPO1 CLAVE1 Z-ADD CAMPO2 CLAVE2 Z-ADD CAMPO3 CLAVE3 KEYREG CHAIN REG01 59 Pues lo que quiero es este mismo ejemplo en COBOL/400 Gracias y un saludo El 18 de junio de 2010 16:25, <[email protected]> escribió: Cambia el fichero con WAITRCD(1), has el CHAIN monitoreando los errores, si hay error anuncialo... Saludos ^^^ Ing. Armando Luengas Mendoza Jafra Cosmetics International IT México ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ From: JUAN García <[email protected]> To: "forum. help400" <[email protected]> Date: 18/06/2010 05:32 a.m. Subject: Chain en COBOL Sent by: [email protected] _____ Saludos a todos ¿Tenéis alguna rutina en COBOL para hacer un acceso a un registro de un fichero de base de datos? como en RPG hace el CHAIN, sin GO TO Gracias____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( <http://bit.ly/db68dd> http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
