Asi lo tengo ahora:
Código COBOL:
BUSCAR-NOMBRE.
PERFORM LIMPIAR-PANTALLA.
PERFORM ABRIR-ARCHIVO-INPUT.
MOVE SPACES TO DATOS-LIBRO
DISPLAY "Titulo: " AT LINE 2 COL 1 WITH REVERSE-VIDEO
DISPLAY "---------------------------------------------------"
AT LINE 3 COL 1.
DISPLAY
"ID |TITULO |EDITORIAL |ESTADO "
WITH REVERSE-VIDEO AT LINE 3 COL 1.
ACCEPT DESDE-NOMBRE AT LINE 2 COL 14.
MOVE DESDE-NOMBRE TO NOMBRE.
MOVE NOMBRE TO HASTA-NOMBRE.
START REG-LIBROS KEY IS >= NOMBRE END-START.
READ REG-LIBROS NEXT RECORD END-READ.
PERFORM VARYING N FROM 01 BY 1 UNTIL FIN-REG OR
NOMBRE > HASTA-NOMBRE
DISPLAY DATOS-LIBRO AT LINE 4 COL 1
READ REG-LIBROS NEXT RECORD END-READ
END-PERFORM.
ACCEPT OPC AT LINE 10 COL 1.
PERFORM CERRAR-ARCHIVO.
Te adjunto 3 capturas de pantallas:
Estas dos primeras son con "READ REG-LIBROS END-READ" en la linea 16
[ATTACH=CONFIG]918[/ATTACH]
[ATTACH=CONFIG]919[/ATTACH]
Muestra registros erroneos o simplemente espacios vacios, creo que los campos estan en sus valores por default.
Esta tercera es con "READ REG-LIBROS NEXT RECORD END-READ" tambien en la linea 16[ATTACH=CONFIG]917[/ATTACH]
Aca, me muestra todo espacios vacios no importa cual registro sea.