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.
