Perdón me equivoque con los nombres,
mejor quedaria así:
MOVE W-CAMPO1 TO CLAVE1.
MOVE W-CAMPO2 TO CLAVE2.
MOVE W-CAMPO3 TO CLAVE3.
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 19 de junio de 2010 08:38, Raul Bascones <[email protected]> escribió:
> 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.
