@dariodr ya le vas pillando un poco el aire al tema, ánimo que no es difícil
, ahora el problema que tienes es que, si hay más de un registro, te va a "pegar" un pantallazo mostrando los datos y va a ir al siguiente registro, o como es en éste caso, te va a hacer un "scroll" la pantalla, mostrándote un registro tras otro, sin darte tiempo a leerlos, así, hasta que llegues al final del fichero, deberías poner un
ACCEPT en
LEE-SIGUIENTE-REGISTRO, para que se pare a cada lectura y el operador, tenga que pulsar una tecla para ir al siguiente registro, yo incluiría esto
en la
WORKING-STORAGE SECTION
Código COBOL:
01 TECLA PIC X VALUE SPACES.
y después de
END-READ, (al final de
LEE-SIGUIENTE-REGISTRO),
Código COBOL:
DISPLAY "Pulse 'F' para terminar, otra tecla para continuar ... " WITH NO ADVANCING.
ACCEPT TECLA.
DISPLAY " ". *> Éste DSIPLAY, es para que haya una línea de separación entre registros
IF TECLA = "F" OR TECLA = "f"
MOVE "S" TO LEE-TODO
ELSE
MOVE SPACES TO TECLA LEE-TODO
END-IF.
Un salu2.-