FILE CONCEPT IN COBOL

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE1.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT TEL-FILE ASSIGN TO DISK.
       DATA DIVISION.
       FILE SECTION.
       FD TEL-FILE.
           LABEL RECORD IS STANDARD.
           VALUE OF FILE-ID IS "ABC.TXT".
           DATA RECORD IS TEL-RECORD.
       01 TEL-RECORD.
           02 NAME PIC X(30).
           02 TEL-NO PIC 9(10).
           02 ADDRESS PIC X(40).
       WORKING-STORAGE SECTION.
           01 S-TEL-NO PIC 9(10).
           01 CHOICE PIC A.
       PROCEDURE DIVISION.
       START-PARA.
           PERFORM OPEN-PARA.
           PERFORM TAKE-INPUT-PARA.
           PERFORM CL-IN-PARA.
           PERFORM SEARCH-PARA.
           PERFORM SEARCH1-PARA.
           DISPLAY "WANT TO ENTER MORE RECORD Y/N: ".
           ACCEPT CHOICE.
           IF CHOICE IS EQUAL TO "Y" OR "y"
              GO TO TAKE-INPUT-PARA.

       CL-IN-PARA.
           CLOSE TEL-FILE.
           OPEN INPUT TEL-FILE.

       OPEN-PARA.
           OPEN OUTPUT TEL-FILE.

       TAKE-INPUT-PARA.
           DISPLAY "ENTER NAME: ".
           ACCEPT NAME.
           DISPLAY "ENTER TELEPHONE NO.: ".
           ACCEPT TEL-NO.
           DISPLAY "ENTER ADDRESS: ".
           ACCEPT ADDRESS.
           WRITE TEL-RECORD.

       SEARCH-PARA.
           READ TEL-FILE RECORD AT END GO TO CLOSE-PARA.
           IF TEL-NO IS NOT EQUAL TO S-TEL-NO
              GO TO SEARCH1-PARA.
           DISPLAY "NAME IS: ", NAME.

       CLOSE-PARA.
           CLOSE TEL FILE.
           STOP RUN.