Contoh Program Operasi File Indeks Pada Cobol

Assalamualaikjum Wr. Wb.

Pada sebelumnya saya sudah post bagaimana program operasi file Sequensial pada Cobol, kali ini lanjut akan membahas operasi file Indeks pada Cobol. Software yang saya gunakan adalah IDECobol.

• Ketik / coppy kode dibawah ini :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. INDEKS.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           ORGANIZATION IS INDEXED
           ACCESS MODE IS SEQUENTIAL
           RECORD KEY IS KODE-BARANG
           FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG2.DAT'
           DATA RECORD IS RECBARANG.
       01 RECBARANG.
           02 NAMA-BARANG PIC A(25).
           02 KODE-BARANG PIC 9(3).
           02 ALAMAT-BARANG PIC X(25).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC 99.
       01 SUDAH-BENAR PIC X.
           88 BENAR VALUE 'Y', 'y'.
           88 BELUM VALUE 'T', 't'.
       01 TAMBAH-DATA PIC X.
           88 YA VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       01 RECBARANG-MASUK.
           02 NAMA-BARANG-MASUK PIC X(25).
           02 KODE-BARANG-MASUK PIC 9(3).
           02 ALAMAT-BARANG-MASUK PIC X(25).
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 INPUT-DATA.
           02 LINE 4 COLUMN 8 VALUE 'NAMA BARANG   : '.
           02 COLUMN PLUS 2 PIC A(25) TO NAMA-BARANG-MASUK.
           02 LINE 6 COLUMN 8 VALUE 'KODE BARANG   : '.
           02 COLUMN PLUS 2 PIC 9(3) TO KODE-BARANG-MASUK REQUIRED.
           02 LINE 8 COLUMN 8 VALUE 'ALAMAT TUJUAN : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG-MASUK.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT BARANG.
       MULAI.
           MOVE SPACE TO SUDAH-BENAR.
           PERFORM MASUKAN-DATA UNTIL BENAR.
           PERFORM REKAM-DATA.
           PERFORM ADA-LAGI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

       MASUKAN-DATA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           DISPLAY (13, 8) 'DATA SUDAH BENAR [Y/T] ?'.
           ACCEPT SUDAH-BENAR.
       REKAM-DATA.
           WRITE BARANG.
       ADA-LAGI.
           DISPLAY (15, 8) 'TAMBAH DATA LAGI [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.

• Pada saat mengetik, sebaiknya diperhatikan cara penulisan pada Cobol
• Tekan F9 untuk Run

Hasilnya sebagai berikut :

Sekian pembahasannya, semoga bermanfaat buat teman-teman / pembaca.

Wassalamualaikum Wr. Wb.