Contoh Program Cobol Menggunakan File index

       IDENTIFICATION DIVISION.

       PROGRAM-ID. FileIndex.

       ENVIRONMENT DIVISION.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.

           SELECT MHS ASSIGN TO DISK

           ORGANIZATION IS RELATIVE

           ACCESS MODE IS DYNAMIC

           RECORD KEY IS NO-REL

           FILE STATUS IS STATUS-SALAH.

       DATA DIVISION.

       FILE SECTION.

       FD  MHS

           LABEL RECORD IS STANDARD

           VALUE OF FILE-ID IS 'DATA.DAT'

           DATA RECORD IS RECMHS.

       01  RECMHS.

           02  NPM PIC 9(8).

           02  NAMA PIC X(28).

           02  KELAS PIC X(5).

       WORKING-STORAGE SECTION.

       01 TAMBAH-DATA PIC X.

           88 LAGI VALUE 'Y', 'y'.

           88 TDK VALUE 'T', 't'.

       77 STATUS-SALAH PIC XX.

       77 NO-REL PIC 9(8).

       SCREEN SECTION.

       01 HAPUS.

           02 BLANK SCREEN.

       01 MASUKAN.

           02 LINE 10 COLUMN 20 VALUE 'NPM   : '.

           02 COLUMN PLUS 2 PIC X(8) TO NPM.

           02 LINE 12 COLUMN 20 VALUE 'NAMA  : '.

           02 COLUMN PLUS 2 PIC X(28) TO NAMA.

           02 LINE 14 COLUMN 20 VALUE 'KELAS : '.

           02 COLUMN PLUS 2 PIC X(5) TO KELAS.

       PROCEDURE DIVISION.

       BUKA.

           OPEN OUTPUT MHS.

       MULAI.

           DISPLAY HAPUS.

           DISPLAY MASUKAN.

           ACCEPT MASUKAN.

           COMPUTE NO-REL = NPM - 50498000.

           WRITE RECMHS.

           DISPLAY (18, 25) ' MASIH ADA DATA [Y/T] '.

           ACCEPT TAMBAH-DATA.

           IF LAGI GO TO MULAI.

       SELESAI.

           CLOSE MHS.

           STOP RUN.