Contoh Program Operasi File Relatif Pada Cobol

Assalamualaikum Wr. Wb.

Pada pertemuan sebelumnya, saya sudah membahas bagaimana contoh file Sequensial dan file Indeks. Pada kali ini saya akan membahas contoh program operasi file Relatif pada Cobol. Software yang saya gunakan adalah IDECobol.

• Ketik / coppy kode berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RELATIF.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           ORGANIZATION IS RELATIVE
           ACCESS MODE IS DYNAMIC
           RELATIVE KEY IS KODE-BARANG
           FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG3.DAT'
           DATA RECORD IS RECBARANG.
       01 RECBARANG.
           02 NAMA-BARANG PIC A(25).
           02 ALAMAT-BARANG PIC X(25).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC 99.
       77 KODE-BARANG PIC 9(5).
       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 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 8 COLUMN 8 VALUE 'ALAMAT BARANG : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG-MASUK.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT BARANG.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           MOVE 128 TO KODE-BARANG.
           WRITE RECBARANG FROM RECBARANG-MASUK.
           DISPLAY (12, 8) 'TAMBAH LAGI DATA [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

• Perlu diperhatikan cara penulisan bahasa Cobol
• Tekan F9 untuk Run

Hasilnya / output :

Sekian pembahasannya, semoga bermanfaat buat teman-teman yang lagi belajar :)

Wassalamualaikum Wr. Wb.