Juan:
Hoy te envie una pantalla de AS400 con la rutina que pedis.
move CAMPO1 to CLAVE1
move CAMPO2 to CLAVE2
move CAMPO3 to CLAVE3
read ARCHIVO
invalid key
compute A = A / Z
stop run
not invalid key
move MAETAB-DESCRIPCION to DEMPRE
end-read
Donde por not invalid key es el N59 de tu ejemplo RPG
JOSE LUIS
_____
De: [email protected]
[mailto:[email protected]] En nombre de JUAN García
Enviado el: Viernes, 18 de Junio de 2010 01:27 p.m.
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.
