relativeFile

       IDENTIFICATION DIVISION.
       PROGRAM-ID SEQ-REL.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT F1 ASSIGN TO DISK
           ORGANIZATION IS SEQUENTIAL
           ACCESS MODE IS SEQUENTIAL.
           SELECT F2 ASSIGN TO DISK
           ORGANIZATION IS RELATIVE
           ACCESS MODE IS RANDOM
           RELATIVE KEY IS POS.
       DATA DIVISION.
       FILE SECTION.
       FD F1
          VALUE OF FILE-ID IS "SE.TXT"
          LABEL RECORD ARE STANDARD.
       01 REC1.
          02 YEAR PIC 9(4).
          02 POPU PIC X(6).
       FD F2
          VALUE OF FILE-ID IS "REL.TXT"
          LABEL RECORD STANDARD.
       01 REC2 PIC X(10).
       WORKING-STORAGE SECTION.
       01 POS PIC 99.
       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN OUTPUT F1.
           PERFORM INPUT-PARA 3 TIMES.
           CLOSE F1.
           OPEN INPUT F1.
           OPEN OUTPUT F2.
           GO TO READ-PARA.
       INPUT-PARA.
           DISPLAY "ENTER THE YEAR".
           ACCEPT YEAR.
           DISPLAY "ENTER THE POPULATION".
           ACCEPT POPU.
           WRITE REC1.
       READ-PARA.
           READ F1 AT END GO TO DISP-PARA.
           COMPUTE POS = YEAR - 1900
           MOVE REC1 TO REC2
           WRITE REC2.
           GO TO READ-PARA.
       DISP-PARA.
           CLOSE F1 F2.
           OPEN INPUT F2.
           DISPLAY "ENTER THE YEAR FOR POPULATION".
           ACCEPT POS.
           COMPUTE POS = POS - 1900.
       PARA-A.
           READ F2 INVALID KEY GO TO PARA-B.
           DISPLAY REC2.
           GO TO EXIT-PARA.
       PARA-B.
           DISPLAY "RECORD NOT FOUND".
           GO TO EXIT-PARA.
       EXIT-PARA.
           CLOSE F2.
           STOP RUN.