Gracias a todos por las respuestas
El 16 de junio de 2010 12:40, Raul Bascones <[email protected]> escribió: > 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. >
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
