Suponiendo que el formato y claves del fichero son así:
A R RREG
A K CAMPO1
A K CAMPO2
A K CAMPO3
Si quisieras acceder por clave parcial, yo lo haría así
MOVE W-CAMPO1 TO CAMPO1.
MOVE W-CAMPO2 TO CAMPO2.
MOVE B"0" TO W-EOF.
START FICHERO KEY = CAMPO1 CAMPO2
INVALID KEY MOVE B"1" TO W-EOF
NOT INVALID KEY READ FICHERO NEXT
END MOVE B"1" TO
W-EOF
END-READ
END-START.
PERFORM UNTIL W-EOF = B"1"
OR W-CAMPO1 NOT = CAMPO1
OR W-CAMPO2 NOT = CAMPO2
---- SENTENCIAS A EJECUTAR
----
----
READ FICHERO NEXT
END MOVE B"1" TO W-EOF
END-READ
END-PERFORM.
El 14 de junio de 2010 21:22, JUAN García <[email protected]> escribió:
> Saludos a todos
>
> Quería que me dijérais cómo puedo implentar una subrutina en COBOL para
> hacer una lectura de un fichero por claves, leyendo los registros que tienen
> la misma clave, en RPG se utiliza READE, cuando cambie la clave se tiene que
> salir del bucle y leer un registro del fichero de cabecera volver a
> posicionarse en el de detalle y volver a leerr los registros que tienen la
> misma clave
>
> 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.
