Contoh Program Operasi File Sequensial Pada Cobol

Assalamualaikum Wr. Wb.

Postingan ini adalah sebenarnya tugas kuliah saya (sudah lama). saya post ke blog semoga bisa bermanfaat buat teman-teman yang sedang belajar pemrograman khususnya Cobol. software yang saya gunakan disini adalah IDECobol

• Ketik / copy kode berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SEQUENSIAL.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           FILE STATUS IS STATUS-SALAH
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG.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 TAMBAH-DATA PIC X.
           88 YA VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 INPUT-DATA.
           02 LINE 5 COLUMN 8 VALUE 'NAMA BARANG   : '.
           02 COLUMN PLUS 2 PIC A(25) TO NAMA-BARANG.
           02 LINE 7 COLUMN 8 VALUE 'KODE BARANG    : '.
           02 COLUMN PLUS 2 PIC 9(3) TO KODE-BARANG.
           02 LINE 9 COLUMN 8 VALUE 'ALAMAT TUJUAN : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN INPUT BARANG.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           WRITE BARANG.
           DISPLAY (14, 8) 'TAMBAH LAGI DATA [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

• Jangan asal ketik tapi ikuti aturan penulisan Cobol
• Tekan F9 untuk Run

Hasilnya sebagai berikut :

Sekian pembahasannya, semoga bisa bermanfaat.

Wassalamualaikum Wr. Wb.