Con la estructura de fichero que tu envias, sería así:
MOVE W-CAMPO1 TO CAMPO1.
MOVE W-CAMPO2 TO CAMPO2.
MOVE W-CAMPO3 TO CAMPO3.
MOVE B"0" TO IND(59).
READ FICHERO
INVALID KEY MOVE B"1" TO IND(59).
IF IND(59) = B"1"
THEN DISPLAY "REGISTRO NO EXISTE".
Un saludo.
El 18 de junio de 2010 18:26, JUAN García <[email protected]> escribió:
> 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.
