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 Vázquez
To: 'forum.help400'
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 )
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.
