Pertama untuk
membuka program cobol, kita terlebih dahulu harus masuk ke Command Prompt.
Kemudian masuk ke folder COBOL dengan cara mengetik “cd cobol” pada disk tempat
penyimpanan COBOL, lalu Enter. Setelah itu buat nama file dengan cara mengetik
“edit namafile.cob” misalnya “edit Hitung.cob”, lalu Enter. Setelah masuk,
ketikan coding seperti Gambar 2.1 dimulai pada kolom 8 dan pada baris ke-11
ketikan coding pada kolom 12.
Gambar 2.1
Jika sudah selesai,
program di simpan. Kemudian Exit. Lalu compile program dengan cara mengetik
“cobol namafile.cob” misalnya program yang disimpan diberi nama “Hitung.cob”
maka ketik “cobol Hitung.cob”, lalu Enter sebanyak 3x dan akan tampil seperti
Gambar 2.2. Program harus “No errors or warnings”, Jika salah 1 maka program
tidak dapat di running. Jika sudah tidak ada yang error, maka running program dengan
cara mengetik “runcobol Hitung.cob”, lalu Enter.
Gambar 2.2
Gambar 2.3
identification division. ==> Divisi ini berguna sebagai identifikasi
program COBOL yang kita buat misalnya “author” dan “program-id”
program-id.
Hitung. ==> Nama program dengan nama
“Hitung”
author. Tri
Sutrisno. ==> Nama pembuat dengan nama “Tri
Sutrisno”
data
division. ==> Divisi ini berguna untuk mendeskripsikan
variable-variabel dan
jenis tipe data yang digunakan dalam
program COBOL
working-storage section. ==> Digunakan untuk mendeklarasikan variabel dan tipe
data yang digunakan dalam program COBOL
77 angka pic
9(5). ==> Level number 77 digunakan untuk
menyatakan variable independent (berdiri sendiri), hanya ada working-storage section. Variabel diberi nama “angka”. “pic 9(5)” digunakan
untuk menyimpan data dalam bentuk numeric. Jumlah karakter pada picture
karakter 9 adalah 5 yang ditempatkan dengan menggunakan tanda kurung “( )”
77 angka2
pic 9(5).
77 hasil pic
9(5).
screen
section. ==> Section ini berguna untuk mengatur bentuk format
dari layar input maupun output.
01 hapus. ==> Level number 01 digunakan
sebagai awal dari record “hapus”
02 blank
screen. ==> Perintah untuk membersihkan
layar
01 masukan. ==> Level number 01 digunakan
sebagai awal dari record “masukan”
02 line
1 column 1 value 'Angka Pertama:'. ==> Level number 02 digunakan
untuk mengisi keterangan dari record pada baris 1 kolom 1 dengan nilai yang
akan ditampilkan dengan nama “Angka Pertama:”
02
column plus 2 pic z(5) to angka. ==> Level number 02 digunakan
untuk mengisi keterangan dari record kolom “Angka Pertama:“ ditambah 2. “pic z(5)” digunakan untuk
menghilangkan nilai 0 di depan bilangan yang digunakan bersama picture karakter
9. Jumlah karakter pada picture karakter z adalah 5 untuk variable “angka”
02 line
2 column 1 value 'Angka Kedua:'.
02
column plus 2 pic z(5) to angka2.
01 keluaran.
02 line
5 column 1 value 'Hasil:'.
02
column plus 2 pic z(5) from hasil.
procedure
division. ==> Divisi ini merupakan inti dari bahasa pemrograman
COBOL karena pada divisi inilah semua statement instruksi dibuat
mulai. ==> Difisi ini digunakan untuk memulai program
display
hapus. ==> Digunakan untuk menampilkan output dari record “hapus”
display
masukan. ==> Digunakan untuk menampilkan output dari record “masukan”
accept
masukan. ==> Digunakan untuk
menerima input dari record “masukan”
compute
hasil = angka + angka2. ==> Digunakan untuk menghitung
hasil dari variabel “angka + angka2”
display
keluaran. ==> Digunakan untuk menampilkan output dari record “keluaran”
stop
run. ==> Digunakan untuk menghentikan proses
program
Postingan
