[Duda] Buscar un Registro

[dariodr]

Buenas amigos coboleros, una pregunta: como hago para buscar un registro dentro de un archivo.
Tengo este codigo, a veces funciona a veces no, que le falta o que error ven en el codigo.
Saludos.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. prg002.
 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT section.
       FILE-CONTROL.
           SELECT agenda ASSIGN to "agenda.txt"
           ORGANIZATION LINE SEQUENTIAL.
 
       DATA DIVISION.
       FILE SECTION.
       FD  agenda.
       01  agenda-rec.
           03 codigo   PIC 9(5).
           03 nombre   PIC x(10).
           03 salario  pic 9(5)V99.
       WORKING-STORAGE SECTION.
       77  FIN-ARCHIVO   PIC x.
       77  N-NOMBRE    PIC X(10).
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           OPEN INPUT agenda.
           PERFORM proceso UNTIL FIN-ARCHIVO = 'S'.
           CLOSE agenda.
           STOP RUN.
 
       proceso.
           READ agenda
              AT END MOVE 'S' TO FIN-ARCHIVO
              NOT AT END PERFORM BUSCA-REGISTRO
           END-READ.
 
      *Rutina para buscar un registro       
       BUSCA-REGISTRO.
           DISPLAY 'NOMBRE A BUSCAR: ' NO ADVANCING.
           ACCEPT N-NOMBRE.
           IF N-NOMBRE = nombre
               DISPLAY codigo
               DISPLAY salario
           END-IF.
 
 
 
       END PROGRAM prg002.

El contenido es este:

00001Dario 0058421
00002Luis 0078436
00003Pedro 0058725
00004Jorge 0058766

Estoy buscando por nombre.

[JCantero]

@dariodr, Es que pides el nombre con cada read.

Pide el nombre y después comprueba si está.

Así

       IDENTIFICATION DIVISION.
       PROGRAM-ID. prg002.
 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT section.
       FILE-CONTROL.
           SELECT agenda ASSIGN to "agenda.txt"
           ORGANIZATION LINE SEQUENTIAL.
 
       DATA DIVISION.
       FILE SECTION.
       FD  agenda.
       01  agenda-rec.
           03 codigo   PIC 9(5).
           03 nombre   PIC x(10).
           03 salario  pic 9(5)V99.
       WORKING-STORAGE SECTION.
       77  FIN-ARCHIVO   PIC x.
       77  N-NOMBRE    PIC X(10).
 
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
 
           perform aceptar-nombre.
 
 
           OPEN INPUT agenda.
 
           PERFORM proceso UNTIL FIN-ARCHIVO = 'S'.
           CLOSE agenda.
           STOP RUN.
 
       proceso.
           READ agenda
              AT END MOVE 'S' TO FIN-ARCHIVO
              NOT AT END PERFORM BUSCA-REGISTRO
           END-READ.
 
       Aceptar-nombre.
           DISPLAY 'NOMBRE A BUSCAR: ' NO ADVANCING.
           ACCEPT N-NOMBRE.
 
 
 
      *Rutina para buscar un registro       
       BUSCA-REGISTRO.
          
           IF N-NOMBRE = nombre
               DISPLAY codigo
               DISPLAY salario
           END-IF.
 
 
 
       END PROGRAM prg002.