COBOL

COBOL atau Common Bussiness Oriented Language adalah bahasa pemrograman computer, yang dirancang untuk menyelesaikan persoalan bisnis dan merupakan program terstruktur.

PERKEMBANGAN COBOL

* Tahun 1958 : Pertama kali diciptakan oleh CODASYL

* Tahun 1960 : Versi COBOL – 60 , versi pertama

* Tahun 1968 : ANSI COBOL gunakan standart ANSI

* Tahun 1974 : ANSI COBOL 1974

* Tahun 1985 : ANSI COBOL 1985

MS.COBOL versi 2.2 mengikuti ANSI COBOL 1974

MS.COBOL versi 3.0 mengikuti ANSI COBOL 1985 di luncurkan tahun 1988.

Keuntungan Bahasa COBOL :

* Program dibuat dalam bahasa inggris sehingga lebih mudah dipelajari dan dibuat

* Sangat sesuai untuk pengolahan data, banyak diterapkan untuk masalah bisnis

* Struktur program COBOL jelas

* Program bersifat standar à fleksibel di komputer yang berbeda.

* COBOL menyediakan fasilitas listing program. Program ini mudah didokumentasikan dan dikembangkan.

Struktur Utama dari suatu program COBOL terdiri dari 4 DIVISI , yaitu :

* IDENTIFICATION DIVISION

* ENVIRONMENT DIVISION

* DATA DIVISION

* PROCEDURE DIVISION

Dari ke-4 divisi tersebut terdapat susunan hirarki :

* Division.

* Region.

* Section.

* Paragraph.

* Sentence/Entry.

* Statement/Clause.

* Phrase/Option.

ATURAN PENULISAN SOURCE PROGRAM.

Kolom yang tersedia untuk menulis program Cobol (1-80) :

Kolom 1-6 : Untuk nomor urut bila diperlukan (optional) dan nomor yang diberikan harus urut ascending.

Kolom 7 : Untuk tanda hypen (-), baris sambungannya dimulai di area B. Bila diisi dengan tanda *, maka baris tersebut dianggap sebagai komentar.Bila diisi dengan slash (/), maka baris tersebut dianggap sebagai komentar dan akan dicetak mulai halaman baru teratas.

Kolom 8-11 : Disebut area A. Tempat menuliskan 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 area B.Tempat penulisan semua elemen program selain yang ditulis diarea A ditulis pada area B.

Kolom 73-80 : Untuk komentar atau 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.

ATURAN 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.

Ada 3 bentuk data konstanta yg dipakai pd PROCEDURE DIVISION dalam COBOL :

1. NUMERIC

Untuk Operasi aritmatika. Aturan penggunaannya :

a. Maksimum panjang 18 digit

b.Boleh ada plus dan minus, dgn syarat letaknya pada posisi paling kiri tanpa ada spasi dgn angka pertama. Bila tidak bertanda berarti bernilai positif.

c. Boleh ada titik desimal dimana saja kecuali yg terkanan

Contoh :

BENAR SALAH

555 73.

-15.16 – 16

18260 25,5

-.80 $5

2. NON NUMERIC

Bukan untuk operasi aritmatika. Aturan penggunaannya :

a. Maksimum panjang 120 karakter

b. Boleh terdiri dari kumpulan karakter, kecuali karakter petik.

c. Harus dibatasi dengan tanda petik pada awal dan akhir.

Contoh :

BENAR SALAH

'Nilai IPS' Nilai IPS

'23-12-94' 'neraca 'IP"

3. FIGURATIVE CONSTANT

Termasuk dalam reserved words yang namanya sudah dikenal oleh compiler

Contoh : ZERO,ZEROS,ZEROES (artinya nol)

SPACE,SPACES( artinya blank / spasi)

QUOTE,QUOTES(artinya tanda petik)

ALL literal

CONTOH PROGRAM :

IDENTIFICATION DIVISION.

PROGRAM-ID . TES.

AUTHOR . IWAN .

ENVIRONMENT DIVISION.

DATA DIVISION .

WORKING-STORAGE SECTION.

01. DATA1.

02 NAMA PIC A(10).

02 KELAS PIC X(5).

02 NILAI PIC 99V99.

01 NAMA-EDIT.

02 NAMA-OUT PIC A(5)BA(5).

02 KELAS-OUT PIC XXXXX.

02 NILAI-OUT PIC 99V99.

PROCEDURE DIVISION.

MULAI.

DISPLAY ' =====PROGRAM SEDERHANA ====='.

DISPLAY ' MASUKKAN NAMA ANDA = '. ACCEPT NAMA.

DISPLAY ' MASUKKAN KELAS ANDA = '. ACCEPT KELAS.

DISPLAY ' MASUKKAN NILAI ANDA = '. ACCEPT NILAI.

DISPLAY ' NAMA ANDA = ', NAMA.

DISPLAY ' KELAS ANDA = ', KELAS.

DISPLAY ' NILAI ANDA = ', NILAI.

DISPLAY ' SELESAI '.

DISPLAY ' SELAMAT MENCOBA '.

SELESAI.

STOP RUN.