Contoh Program Sederhana COBOL

Berikut adalah contoh pemrograman COBOL beserta logikanya :    

       

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgFile.
AUTHOR. DEDE ANGGRIAWAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8).
03 TUNJANGAN PIC 9(8).
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1)'NAMA ANDA :'.
ACCEPT NAMA.
DISPLAY (2,1) 'GAJI POKOK :Rp.'.
ACCEPT GAJI-POKOK.
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'.
ACCEPT TUNJANGAN.
HITUNG-GAJI.
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN.
CETAK-HASIL. 
DISPLAY HAPUS-LAYAR.
DISPLAY '********** GAJI ANDA UNTUK BULAN INI **********'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA.
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK.
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN.
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'.
ACCEPT TANYA.
IF LAGI GO TO MASUKKAN-DATA.
SELESAI.
STOP RUN.

Logika :

IDENTIFICATION DIVISION adalah merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana. Pada divisi ini berisi keterangan mengenai AUTHOR (nama programmer),AUTHOR pada program ini adalah DEDE ANGGRIAWAN.

PROGRAM-ID. PROGFILE adalah merupakan divisi yang menjelaskan Program apa yang sedang dijalankan, disini Program yang digunakan adalah progfile.

ENVIRONMENT DIVISION dalam program cobol sebagai divisi ke-2. Berisi dokumentasi informasi mengenai peralatan yang dipergunakan. 

DATA DIVISON, divisi ini menjelaskan tentang input & output data yang digunakan serta semua keterangan tentang file, record, nama data serta bentuk format yg akan digunakan dalam PROCEDURE DIVISION.

WORKING-STORAGE SECTION. Merupakan section yang berisi tentang record-description-entri yaitu penjelasan tentang record program yang digunakan ,

01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8). 
03 TUNJANGAN PIC 9(8). record-description-entri
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.


SCREEN SECTION. Merupakan salah satu Section dalam Data division, yang berfungsi sebagai penghapus, ataupun pembersih layar
01 HAPUS-LAYAR.
02 BLANK SCREEN. Screen-description-entri 

PROCEDURE DIVISION merupakan gambaran logika yg digunakan untuk menyelesaikan masalah, sehingga divisi ini merupakan inti dari program COBOL. Di dalam PROCEDURE DIVISION ini terdapat keterangan :
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR. Untuk menghapus layar/membersihkan layar 
DISPLAY (1,1)'NAMA ANDA :'. Menambahkan statement “NAMA ANDA”
ACCEPT NAMA. Untuk menginput nama
DISPLAY (2,1) 'GAJI POKOK :Rp.'. Menambahkan statement “GAJI POKOK”
ACCEPT GAJI-POKOK. menginput GAJI-POKOK
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'. statement “BESARNYA TUNJANGAN”
ACCEPT TUNJANGAN. menginput tunjangan
HITUNG-GAJI. statement yang digunakan untuk mendeklarasian perhitungan 
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN. menhitung data yang telah diinput
CETAK-HASIL. 
DISPLAY HAPUS-LAYAR.
DISPLAY ********** GAJI ANDA UNTUK BULAN INI **********'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA. Paragraf ini adalah untuk 
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK. membuat output yang akan 
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN. muncul di layar
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'. paragraf ini adalah 
ACCEPT TANYA. pertanyaan yang mengunakan 
IF LAGI GO TO MASUKKAN-DATA. fungsi logika
SELESAI.
STOP RUN. Untuk Menghentikan program.