Buenos días Juan;
Lo mejor es hacerlo de la siguiente forma;
PROCESO
INITIALIZE NOMBREREGISTRO.
MOVE CAMPOCLAVECABECERA TO CLAVEDETALLE
START NOMBREFICHERO KEY NOT LESS EXTERNALLY-DESCRIBED-KEY
INVALID KEY GO TO FINALDELPROCESO.
P01-SEGUIR.
READ NOMBREDEFICHERO NEXT AT END GO TO FINALDELPROCESO.
IF CLAVEDETALLE NOT = CAMPOCLAVECABECERA
GO TO FINALDELPROCESO.
Aquí las instrucciones que precises hacer con los detalles.
GO TO P01-SEGUIR.
FINALDELPROCESO.
Cualquier duda estoy a tu disposición.
Saludos.
De: [email protected]
[mailto:[email protected]] En nombre de JUAN García
Enviado el: dilluns, 14 / juny / 2010 21:22
Para: forum. help400
Asunto: Rutina en cobol para hacer un READE
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.
