Totalmente de acuerdo . En especial cuando trabajas en istalaciones con mucho mantenimiento y tienes que trabajar con programas de otros los IFXX y los DOXX te pueden volver loco.
En esto me comprenderán aquellos que han vivido en Argentina en las épocas de las devaluaciones diarias y los cambios de monedas Igualmente sería una pena que este foro que sirve de ayuda , de actualización y para compartir conocimientos y soluciones muy útiles , a mi la primera, se convirtiera en un debate sobre que es mejor ó quién lo hace mejor Un saludo Elvira _____ De: [email protected] [mailto:[email protected]] En nombre de Josep Sanchez Enviado el: sábado, 19 de junio de 2010 12:20 Para: forum.help400 Asunto: Re: Chain en COBOL Pues a mi el GO TO me ayuda para no tener que anidar tanto, que luego si se te descuadran los IFxx, DOxx, cuesta mucho encontrar el problema... Yo pongo algunos TAGs muy concretos que señalan final de proceso, reinicio, etc. y de entrada por ejemplo al inicio de programa si no se cumplen todas las condiciones para que el programa se ejecute me voy al final con un GOTO, esto por ejemplo me evita tener que anidar sea con subrutinas o como sea y para mi lo hace mas legible.... Bueno es solo una opinión.... Saludos J.Sanchez ----- Original Message ----- From: Elvira <mailto:[email protected]> Vázquez To: 'forum.help400' <mailto:[email protected]> Sent: Saturday, June 19, 2010 10:13 AM Subject: RE: Chain en COBOL Tampoco es para cortarse las venas Llevo 35 años programando y he hecho de todo y he pasado por todo A veces para explicar algo claramente es mejor asi Si utilizas programación estructurada pura el GO TO esta prohibido pero no hay que ser tan estricto en especial si estás dando un ejemplo Luego cada uno que lo adapte a su estilo Un saludo Elvira _____ De: [email protected] [mailto:[email protected]] En nombre de Rafa Vidal Enviado el: viernes, 18 de junio de 2010 19:25 Para: 'forum.help400' Asunto: RE: Chain en COBOL Importancia: Alta 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.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
