Pemrograman Cobol

BAHASA PEMROGRAMAN COBOL


Pendahuluan
COBOL (Common Business Oriented Language) adalah suatu bahasa komputer awam ( High Level Language) yang berorientasi langsung pada permasalahan bisnis. COBOL hampir dapat digunakan pada semua komputer bila terdapat compiler COBOL-nya. Diciptakan pada tahun 1959 dan dikembangkan oleh suatu grup bernama CODASYL (Conference on Data System Language).
Diperkenalkan pertama kali secara formal pada bulan Januari 1960. COBOL mempunyai banyak versi, sehingga untuk mempermudah penggunanya COBOL terus dikembangkan dan distandarisasi pada tahun 1968 dan 1974, diberi nama ANSI COBOL (American National Standard Institute COBOL)


Struktur Program COBOL

Program COBOL dibagi kedalam 4 bagian yang disebut dengan Division. Masing-masing divisi dimulai dengan judul divisi dengan urutan sbb:

IDENTIFICATION DIVISION
ENVIRONMENT DIVISION
DATA DIVISION
PROCEDURE DIVISION\

Syarat Pemberian nama :

1. Gabungan dari huruf A-Z atau a-z, angka 0-9, Hypen (-).
2. Panjang maksimum 30 karakter.
3. Paling sedikit harus mengandung 1 huruf.
4. tidak boleh mengandung karakter khusus kecuali hypen yang diletakkan ditengah-tengah,
tidak boleh diawal atau diakhir.
5. Tidak boleh mengandung COBOL reserved word.
6. Tidak boleh ada blank atau spasi.

ATURAN PENULISAN SOURCE PROGRAM
Kolom yang tersedia untuk menuliskan program COBOL adal kolom 1- 80, dengan ketentuan :

Kolom 1 – 6 :Digunakan untuk nomor urut bilamana diperlukan, sifatnya optional, dan nomor
yang diberikan harus urut ascending.

Kolom 7 :a.Tanda baris sambung dari baris sebelumnya dengan memberikan tanda hypen (-),
baris sambungannya dimulai dari Area B.
b.Bila kolom ini di sis dengan karakter “*” , maka apa yang ditulis pada baris
ini akan dianggap sebagai komentar.
c.Bila kolom ini diisi dengan slash (/), maka baris yang ada tanda ini dianggap
sebagai komentar dan akan dicetak mulai halaman baru teratas, bila source
program dicetak di printer.
d.Bila kolom ini di isi dengan karakter “D” , baris ini juga dianggap sebagai
komentar, tetapi bila pada ENVIRONMENT DIVISION dalam paragraph SOURCE-
COMPUTER disebutkan WITH DEBUGGING MODE, maka akan berguna untuk tujuan
debugging.

Kolom 8 – 11 : Disebut dengan area A, semua judul divisi,judul seksi, nama paragraph, judul
file description (FD), level number 01 dan level number 77 ditulis mulai kolom
ke-8.

Kolom 12 – 72 :Disebut dengan area B, semua elemen program selain yang ditulis di area A
ditulis pada area B.

Kolom 73 – 80 :Merupakan kolom yang tidak diproses oleh komputer, jadi jika diisi dengan
catatan-catatan apa saja hanya untuk dokumentasi program.


LEVEL NUMBER
Level number atau nomor jenjang adalah suatu nomor yang menunjukkan jenjang dari data item dalam suatu record.
Level number yang digunakan:
a.01 Untuk mengawali keterangan dari record (record description).

b.02 – 49 Digunakan untuk mengawali keterangan dari data item.

c.66 Digunakan untuk RENAMES

d.77 Digunakan untuk mengawali data item yang berdiri sendiri. Hanya boleh
terdapat pada WORKING-STORAGE SECTION.

e.88 Digunakan untuk mengawali suatu nama kondisi.

PICTURE CLAUSE
Picture clause digunakan untuk menerangkan masing-masing data-item yang digunakan, mengenai ukuran dari field dan memberikan informasi dari nilai data tersebut, juga mengatur bentuk data dimemori.

Macam-macam picture clause:
1.Picture karakter 9 : Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-
nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya
karakter 9 yang digunakan. Bersifat right justified.
2. Picture karakter V : Menunjukkan lengkap anggapan dari titik desimal. Anggapan disini
maksudnya adalah titik desimal tersebut tidak ditulis di memori,
sehingga tidak termasuk sebagai panjang field.
3.Picture karakter P : Digunakan dengan gabungan Picture karakter V, yang digunakan untuk
menimbulkan angka 0.
4.Picture karakter S : Digunakan untuk menyimpan tanda dari nilai data, dan tidak dihitung
sebagai panjang field.
5. Picture karakter A :Digunakan untuk menyimpan nilai data huruf(alphabetic).Bersifat left
justified.
6.Picture karakter X : Digunakan untuk menyimpan nilai data alphanumerik, dapat berupa
gabungan angka, huruf, ataupun karakter khusus.

PICTURE EDITING

Berguna untuk perubahan bentuk data dari data yang telah tersimpan distorage (memori). Dengan adanya editing (perubahan), data yang dicetak pada output akan tampak lebih mudah dibaca, mudah dimengerti dan mempunyai susunan yang lebih baik dibandingkan dengan bentuk data asli yang tersimpan di storage.
Macam-macam picture editing :

1.Picture editing Z : digunakan untuk menggantika angka 0 diawal agar tidak tampak pada
waktu pencetakan.

2.Picture editing $ : pada saat pencetakan karakter $ akan tampak pada ujung paling kiri.

3.Picture editing “.” : digunakan untuk menunjukkan letak posisi dari titik desimal pada pencetakan, hanya boleh dipergunaka 1 saja.

4.Picture editing “,” : digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1.

5.Picture editing “-“ : Jika data asli bernilai minus maka penggunaan tanda minus di awal atau diakhir akan menyebabkan tanda

minus muncul pada saat pencetakan, sedangkan bila data positif akan digantikan dengan blank.

6.Picture editing “+” :jika tanda plus digunakan diawal atau diakhir data maka akan tampak pada pencetakan bila data bernilai positif, jika data negatif akan muncul tanda minus, jika tidak bertanda dianggap positif.

7.Picture editing B :digunakan untuk mengedit nilai data bukan numerik.Blank akan disisipkan pada posisi dinama karakter B ditempatkan.

8.Picture editing “*” :digunakan untuk menggantikan nilai nol pada nilai data disebelah kanan dengan tanda *.

9.Picture editing 0(nol):digunakan untuk menyisipkan angka 0 pada posisi dimana karakter 0 ditempatkan.

10.Picture editing “/” :digunakan untuk menyisipkan karakter “/” diposisi dimana karakter tersebut ditempatkan.

11. Picture editing DB dan CR :Sering digunakan pada aplikasi akuntansi. Ditulis mulai ujung sebelah kanan dari picture, dan hasilnya hanya tampak pada hasil edit bila nilai datanya negatif