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.
