No logro que funcione, no entiendo bien como funciona, debo de hacer un desde-nombre, hasta-nombre para recorrer ? Algo estoy pasando de alto, le dejo el bloque de codigo aunque lo modifique muchas veces sin exito
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 AUX-NOMBRE AT LINE 2 COL 14.
MOVE AUX-NOMBRE TO HASTA-NOMBRE
DISPLAY NOMBRE
START REG-LIBROS KEY IS >= NOMBRE
READ REG-LIBROS NEXT RECORD END-READ
PERFORM VARYING N FROM 01 BY 1 UNTIL FIN-REG
OR NOMBRE > HASTA-NOMBRE
READ REG-LIBROS NEXT RECORD END-READ
DISPLAY DATOS-LIBRO AT LINE N COL 1
END-PERFORM
ACCEPT OPC AT LINE 5 COL 1.