PROGRAM SEDERHANA COBOL

contoh program cobol sederhana yang mengeluarkan output gaji dan sebagainya

A. Coding Program Level Number :
IDENTIFICATION DIVISION.
PROGRAM-ID. LEVEL-NUMBER.
AUTHOR. KELOMPOKMAMAN.
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'xxxxxxxx GAJI ANDA UNTUK BULAN INI xxxxxxxxx'.
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.








B. OUTPUT PROGRAM LEVEL NUMBER




Setelah kita selesai mengisi Data tersebut , tekan enter, dan program akan memunculkan Hasilnya Seperti dibawah ini.



Jika Kita ingin menghitung gaji yang lain, tekan Y pada keyboard.



C. LOGIKA PROGRAM
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 KELOMPOKMAMAN.

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

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'xxxxxxxx GAJI ANDA UNTUK BULAN INI xxxxxxxxx'.
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 memberhentikan program



Setelah program di save as pada hardisk lalu di compiler dengan menekan F8 pada keyboard selanjutnya program ini di jalankan dengan menekan F9,

Program ini akan menyuruh kita untuk menginput Nama, Gaji pokok, tunjangan, Setelah kita menginput semuanya , program akan menjumlahkan total gaji, dan menanyakan kembali apakah kita ingin menghitung gaji lainnya.

sumber : http://dwibayu.blogspot.com