CONTOH PROGRAM COBOL

Program sederhana COBOL (MENU : NAMA, BIODATA, dan NILAI AKHIR) :

Di bawah ini adalah kodingannya :

Dan di bawah ini logika programnya : 

IDENTIFICATION DIVISION. : Yaitu sebuah divisi yang pertama, berfungsi untuk memberikan keterangan pada program yang akan kita buat,

PROGRAM-ID. MENU. : yaitu sebuah judul data pada program yang akan dibuat.

AUTHOR. MAHARDIKA SETIAWAN. :  yaitu menunjukkan bahwa penulis data diatas adalah MAHARDIKA SETIAWAN.

ENVIRONTMENT DIVISION. : Yaitu divisi yang kedua, berfungsi untuk memberikan sebuah dokumentasi informasi mengenai peralatan yang akan kita digunakan.

DATA DIVISION. : Yaitu berfungsi untuk memberikan semua keterangan record dan juga memberikan bentuk format yang digunakan pada procedure division.

WORKING-STORAGE DIVISION. : Yaitu merupakan section pada data division,

merupakan output program yang akan menampilkan pada baris ke-9.

01 AWAL. : Pada bagian ini kita membuat judul program awal.

02  NAMA PIC X(30). Pada bagian ini berfungsi untuk menentukan Type data karakter yang sudah di deklarasikan di data devision pada cobol.

02  NPM PIC X(8). Pada bagian ini berfungsi untuk menentukan Type data karakter dan numerik yang sudah di deklarasikan di data devision pada cobol.

02  KELAS PIC X(8). Pada bagian ini berfungsi untuk  menentukan Type data karakter dan numerik yang sudah di deklarasikan di data devision pada cobol.

01 KEDUA. Pada bagian ini kita membuat judul program yang kedua.

02 PANJANG PIC 9(3). Pada bagian ini berfungsi untuk  menentukan Type data karakter yaitu PANJANG dan numerik yang sudah di deklarasikan di data devision pada cobol.

02 LEBAR PIC 9(3). Pada bagian ini berfungsi untuk  menentukan Type data karakter yaitu LEBAR  dan numerik yang sudah di deklarasikan di data devision pada cobol.

02 TINGGI PIC 9(3). Pada bagian ini berfungsi untuk  menentukan Type data karakter yaitu TINGGI dan numerik yang sudah di deklarasikan di data devision pada cobol.

02 LUAS PIC ZZZ. Pada bagian ini berfungsi untuk  menentukan Type data karakter yaitu LUAS dan numerik yang sudah di deklarasikan di data devision pada cobol.

01 KETIGA. Pada bagian ini kita membuat judul program yang ketiga.

01 UTS PIC 9(3). : Yaitu menunjukkan sebuah judul awal yang akan kita buat, dan 9 merupakan output program yang menampilkan pada baris ke-9.
01 UAS PIC 9(3). : Yaitu merupakan sebuah level number 1 yang digunakan, jika pemrograman membutuhkan catatan dan angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

01 HASIL PIC 9(3). : Yaitu output program dari nilai UAS dan UTS, angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

01 TANYA PIC X(1). Pada bagian ini statement untuk menanyakan.

88 LAGI VALUE 'Y', 'y'. Yaitu bagian ini untuk menanyakan “Y” jika ingin mengulangi ke MENU lagi

88 TIDAK VALUE 'T', 't'. Yaitu bagian ini untuk menanyakan “T” jika ingin mengulangi ke MENU lagi.

SCREEN SECTION. : Yaitu merupakan section pada sebuah data division,

01 HAPUS. Dan 02 BLANK SCREEN. : Yaitu level number yang berfungsi untuk  membersihkan layar pada COBOL,

PROCEDURE DIVISION. : Yaitu yang berisi semua instruksi-instruksi yang kita tulis tadi,

MULAI. : Yaitu berfungsi untuk memulai suatu divisi atau memproses data yang akan kita.

DISPLAY HAPUS. Yaitu Untuk membersihkan pada layar,

DISPLAY (4, 10) '*****MENU*****'. Yaitu utk menampilkan bentuk MENU di baris 4 kolom 10

DISPLAY (5, 10) '1. BIODATA'. Yaitu utk menampilkan bentuk 1. BIODATA di baris 5 kolom 10

DISPLAY (6, 10) '2. LUAS'. Yaitu utk menampilkan bentuk 2. LUAS di baris 6 kolom 10

DISPLAY (7, 10) '3. NILAI AKHIR'. Yaitu utk menampilkan bentuk 1. BIODATA di baris 7 kolom 10

DISPLAY (8, 10) 'MASUKAN PILIHAN 1..3'. Yaitu utk menampilkan bentuk MASUKKAN PILIHAN 1...3 di baris 8 kolom 10

ACCEPT PIL. Yaitu untuk memasukkan data-data statement pada pilihan MENU.

 GO TO PIL1, PIL2, PIL3 DEPENDING ON PIL. Yaitu mengulang ke statement PIL1, PIL2, PIL3 sesuai yang nanti kita pilih menu nya,

 DISPLAY (16, 10) 'MAAF TIDAK ADA PILIHAN LAIN HANYA[1..3]='. Yaitu utk menampilkan bentuk tulisan “MAAF TIDAK ADA PILIHAN HANYA[1...3]” saat tidak ada pilihan yang sesuai dari menu pilihan 1 sampai pilihan 3 di baris 16 kolom 10

 GO TO MULAI. Yaitu mengulang ke statement MULAI.

PIL1. Yaitu masuk ke statement untuk menu pilihan BIODATA.

 DISPLAY HAPUS. Yaitu Untuk membersihkan pada layar,

 DISPLAY (9, 10) 'MASUKAN NAMA= '. Pada bagian ini artinya untuk menampilkan “NAMA”  pada baris ke 9 kolom ke 10.

 ACCEPT NAMA. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 DISPLAY (10, 10) 'MASUKAN NPM= '. Pada bagian ini artinya untuk menampilkan “NPM”  pada baris ke 10 kolom ke 10.

 ACCEPT NPM. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 DISPLAY (11, 10) 'MASUKAN KELAS= '. Pada bagian ini artinya untuk menampilkan “KELAS”  pada baris ke 11 kolom ke 10.

 ACCEPT KELAS. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 GO TO HAY. Yaitu untuk mengulang ke menu hay.

PIL2. Yaitu masuk ke statement untuk menu pilihan LUAS.

DISPLAY HAPUS. Yaitu Untuk membersihkan pada layar,

DISPLAY (12, 10) 'MASUKAN PANJANG = '. Pada bagian ini artinya untuk menampilkan “MASUKAN PANJANG”  pada baris ke 12 kolom ke 10.

 ACCEPT PANJANG. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 DISPLAY (13, 10) 'MASUKAN LEBAR = '. Pada bagian ini artinya untuk menampilkan “MASUKAN LEBAR”  pada baris ke 12 kolom ke 10.

 ACCEPT LEBAR. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 DISPLAY (14, 10) 'MASUKAN TINGGI = '. Pada bagian ini artinya untuk menampilkan “MASUKAN TINGGI”  pada baris ke 12 kolom ke 10.

 ACCEPT TINGGI. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 COMPUTE LUAS = PANJANG * LEBAR * TINGGI. Yaitu yang akan menampilkan rumus fungsi, dan rumus fungsi compute yang digunakan untuk menghitung hasil dari data masukkan panjang kali lebar kali tinggi yang tadi kita masukkan.

 DISPLAY (15, 10) 'LUAS PERSEGI PANJANG ' , LUAS. Pada bagian ini artinya untuk menampilkan “LUAS PERSEGI PANJANG”  pada baris ke 15 kolom ke 10.

 GO TO HAY. Yaitu untuk mengulang ke menu hay.

 PIL3. Yaitu masuk ke statement untuk menu pilihan NILAI AKHIR.

DISPLAY HAPUS. Yaitu Untuk membersihkan pada layar,

DISPLAY (16, 10) 'MASUKAN UTS = '. Pada bagian ini artinya untuk menampilkan “MASUKAN UTS”  pada baris ke 16 kolom ke 10.

ACCEPT UTS. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

DISPLAY (17, 10) 'MASUKAN UAS = '. Pada bagian ini artinya untuk menampilkan “MASUKAN UAS”  pada baris ke 17 kolom ke 10.

 ACCEPT UAS. Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

COMPUTE HASIL = UTS * 0.7 + UAS * 0.3. Yaitu yang akan menampilkan rumus fungsi, dan rumus fungsi compute yang digunakan untuk menghitung hasil dari data masukkan UTS kali 0.7 tambah UAS kali 0.3 ,

 DISPLAY (18, 10) 'NILAI ANDA ADALAH ', HASIL. Pada bagian ini artinya untuk menampilkan “NILAI ANDA ADALAH”  pada baris ke 18 kolom ke 10.

IF HASIL >50 DISPLAY (19, 10) 'ANDA LULUS'. Yaitu jika hasil dari total nilai UAS dan UTS lebih dari 50 maka tercetak “ANDA LULUS” pada baris ke 19 kolom ke 10.

IF HASIL <49 10="10" display="display" lulus="lulus" span="span" tidak="tidak">Yaitu jika hasil dari total nilai UAS dan UTS lebih dari 50 maka tercetak “ANDA TIDAK LULUS” pada baris ke 20 kolom ke 10.

 GO TO HAY. Yaitu untuk mengulang ke menu hay.

PIL4. Yaitu masuk ke statement untuk menu pilihan akhir program.

DISPLAY HAPUS. Yaitu Untuk membersihkan pada layar,

DISPLAY (21, 10) 'TERIMA KASIH'. Yaitu akan menampilkan “TERIMA KASIH” pada baris ke 21 kolom ke 10.

GO TO SELESAI. Yaitu mengulang ke statement selesai.

HAY. Yaitu menu statement pada program yaitu menu hay.

 DISPLAY (21, 10) 'KEMBALI KE MENU Y/T= '. Yaitu akan menampilkan “KEMBALI KE MENU Y/T” pada baris ke 21 kolom ke 10.

 ACCEPT TANYA.  Pada bagian ini artinya untuk memasukan data lewat layar sewaktu program tersebut dijalankan(running).

 IF LAGI GO TO MULAI ELSE GO TO PIL4. Yaitu jika kita memilih menu “Y” makan mengulang ke menu awal dan jika memilih “T” maka akan ke statemnt PIL4.

 SELESAI. Yaitu menu statement pada program yaitu menu hay.

 STOP RUN. Yaitu mengakhiri seluruh program data dari data diatas yang telah kita buat.