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 Tri.cob”, lalu Enter. Setelah masuk, ketikan
coding seperti Gambar 1.1 dimulai pada kolom 8 dan pada baris ke-13 ketikan
coding pada kolom 12.
Gambar 1.1
Jika sudah selesai,
program disimpan. Kemudian Exit. Lalu compile program dengan cara mengetik
“cobol namafile.cob” misalnya program yang disimpan diberi nama “Tri.cob” maka
ketik “cobol Tri.cob”, lalu Enter sebanyak 3x dan akan tampil seperti Gambar
1.2. Program harus “No errors or warnings”. Jika ada yang salah, maka program
tidak dapat di running. Jika sudah tidak ada yang error, maka running program
dengan cara mengetik “runcobol Tri.cob”, lalu Enter.
Gambar 1.2
Gambar 1.3
identification
division. ==> Divisi ini berguna sebagai
identifikasi program COBOL yang kita buat misalnya “author” dan “program-id”
program-id. Tri. ==> Nama program dengan nama “Tri”
author.
Tri Sutrisno. ==> Nama pembuat dengan nama “Tri Sutrisno”
environment division. ==> Divisi ini berguna untuk
memberikan informasi peralatan yang digunakan dalam program
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 nama1 pic a(30). ==> Level number 77 digunakan
untuk menyatakan variable independent (berdiri sendiri), hanya ada working-storage section. Variabel diberi nama “nama1”. “pic a(30)”
digunakan untuk menyimpan data dalam bentuk alphabetic dan bersifat rata kiri.
Jumlah karakter pada picture karakter a adalah 30 yang ditempatkan dengan
menggunakan tanda kurung “( )”
77
nama2 pic a(30).
77
nama3 pic a(30).
77 nama4 pic a(30).
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
masukkan. ==> Level number 01 digunakan sebagai awal dari record
“masukkan”
02 line 1 column 8 value 'Nama Pengurus'. ==> Level number 02 digunakan
untuk mengisi keterangan dari record pada baris 1 kolom 8 dengan nilai yang
akan ditampilkan dengan nama “Nama Pengurus”
02
line 2 column 1 value 'Ketua: '. ==> Level number 02 digunakan
untuk mengisi keterangan dari record pada baris 2 kolom 1 dengan nilai yang
akan ditampilkan dengan nama “Ketua: ”
02
column plus 2 pic a(30) to nama1. ==> Level number 02 digunakan
untuk mengisi keterangan dari record kolom “Ketua: “ ditambah 2 dengan picture
karakter a adalah 30 untuk variable “nama1”
02 line 3 column 1 value 'Wakil: '.
02
column plus 2 pic a(30) to nama2.
02
line 4 column 1 value 'Sekretaris: '.
02
column plus 2 pic a(30) to nama3.
02
line 5 column 1 value 'Bendahara: '.
02
column plus 2 pic a(30) to nama4.
01 keluaran. ==> Level number 01 digunakan
sebagai awal dari record “keluaran”
02 line 10 column 8 value 'Susunan
Panitia'.
02
line 13 column 12 value 'Ketua'.
02 line
plus 1 column 8 pic a(30) from nama1.
02 line 16 column 12 value 'Wakil'.
02
line plus 1 column 8 pic a(30) from nama2.
02 line 19 column 1 value 'Sekretaris'.
02 line plus 1 column 3 pic a(30) from nama3.
02
line 19 column 20 value 'Bendahara'.
02 line plus 1 column 21 pic a(30) from
nama4.
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
masukkan. ==> Digunakan untuk menampilkan output
dari record “masukkan”
accept masukkan. ==> Digunakan untuk
menerima input dari record “masukkan”
display keluaran. ==> Digunakan untuk
menampilkan output dari record “keluaran”
stop run. ==> Digunakan untuk
menghentikan proses program
Postingan
