Contoh Program Cobol 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.