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

Istilah region , sentence , statement dan phrase / option dig pada PROCEDURE DIVISION, sedangkan entry dan clause digunakan pada ke 3 divisi lainnya.

•    Division   Adalah bagian utama dari suatu program COBOL dan harus diawali dengan suatu judul divisi.
•    Region     Adalah kumpulan bagian tertentu di dalam Procedure.
•    Section    Adalah satu kumpulan dari paragraph atau entry.
•    Paragraph  adalah suatu group dari kalimat (sentences) didalam Procedure Division dan harus diawali dengan nama-paragraph atau judul paragraph. 
•    Entry   adalah suatu yang harus dituliskan pada tempat-tempat tertentu di dalam suatu program COBOL.
•    Sentence  adalah suatu kumpulan dari satu atau lebih statement (pernyataan).
•    Clause Adalah kumpulan dari kata (word) yang membentuk suatu arti. Clause adalah bagian dari entry.
•    Statement   adalah perintah pengerjaan untuk komputer.
•    Phrase adalah suatu group kata yang merupakan bagian dari statement atau clause.
•    Option atau Optional   Adalah sesuatu yang boleh disertakan, boleh juga tidak.

Langkah Dasar

Membaca data lalu memproses data dan menghasilkan output informasi.

Ada 2 divisi yang UTAMA yaitu :

1. DATA DIVISION
    Menggambarkan bentuk dan jenis dari data input serta data outputnya.
 
2. PROCEDURE DIVISION
Menggambarkan prosedur yang digunakan untuk menyelesaikan permasalahan dalam bentuk dan jenis data yang ada pada DATA DIVISION dan menghasilkan hasil output informasi sesuai yang ada dalam DATA DIVISION.

Mengolah data dengan prosedur – prosedur tertentu yang ada di dalam PROCEDURE DIVISION, data yang diolah dan bentuk hasil pengolahan ada didalam DATA DIVISION.

HIGH LEVEL LANGUAGE

Orientasi masalah yang dihadapi oleh programmer atau problem oriented language.

Contoh : Pascal, Fortran, Cobol, Bahasa C, Basic

LANGKAH PEMBUATAN PROGRAM  COBOL :

1.     Memahami masalah yang akan di programkan

2.     Menggunakan FlowChart

3.     Menulis program di coding form

4.     Membuat source program, extension .COB

5.     Mencompile program :

       Source Program à Object Program

6.    Membuat Excecutable program, extension EXE.

7.    EXE program dapat dijalankan.

KONSEP DASAR ORGANISASI DATA

File atau bussiness file

Adalah kumpulan dari record – record yang behubungan.

File dibedakan menjadi 2 bagian yaitu :

1. PROGRAM FILE yaitu file yang berisi program komputer.
2. DATA FILE yaitu file yang berisi kumpulan klasifikasi data secara keseluruhan.

Setiap file harus diberi nama supaya unik à file nama

Syarat – Syarat pemberian nama file :

1. Maksimum 30 karakter ( A...Z,a...z,0...9,-)

2. Minimum mengandung 1 huruf ( alphabetik )

3. Tidak boleh mengandung :

o   Special karakter

o   Blank / spasi

o   COBOL reseved Word

4. Tanda hypen diletakkan ditengah – tengah nama. Tidak boleh diletakkan pada posisi awal atau akhir.

RECORD

Adalah kumpulan dari field atau data item yang berisi suatu informasi tertentu.

Kumpulan dari RECORD membentuk file

FIELD atau DATA ITEM

Adalah bagian terkecil dari record, yang merupakan kumpulan dari karakter – karakter yang membentuk sebuah informasi.

Data item dapat terdiri dari :

a. Numerik ( numeric ) terdiri dari 0 s/d 9, + , -

b. Alphabetik ( Alphabetic ) terdiri dari A s/d Z , spasi

c.  Alphanumerik ( Alphanumeric ) terdiri dari numeric dan alphanumeric

Kumpulan data item tertentu membentuk record.

COBOL RESERVED WORD DAN USER DEFINED WORD

              Cobol Reserved Word

Adalah kata yang telah didefinisikan yang mempunyai arti dan kegunaan tertentu dalam bahasa COBOL. Kata tersebut tidak boleh dipergunakan oleh programmer untuk nama-data dll kecuali dalam bentuk yang telah ditentukan oleh bahasa COBOL itu sendiri.

Contoh : ACCEPT, ADD, AND, BY, AFTER, dsb.

              User Defined Word

Kata-kata yang dapat dibuat dan telah didefinisikan oleh programmer untuk : Nama-program, Nama-alat, Nama-file, Nama-record, Nama-data, Nama-indek dan nama-data-indek, Nama-kondisi, Nama-prosedure, Nama-seksi, Nama-kualifikasi.

1.                 Nama-program (program-name) adalah suatu nama yang diberikan untuk menunjukkan identitas dari program yang dibuat, dituliskan pada paragraph PROGRAM-ID dalam IDENTIFICATION DIVISION.

2.                 Nama-alat (mnemonic-name) adalah nama yang dibuat oleh programmer untuk menunjukkan suatu alat tertentu. Dibentuk pada paragraph SPECIAL-NAMES dalam ENVIRONMENTDIVISION.

3.                 Nama-file (file-name) adalah nama yang dibuat untuk menunjukkan suatu file tertentu yang dipergunakan dalam program. Dibentuk pada paragraph FD (File Description) dalam DATA DIVISION atau pada statement CLOSE< OPEN< READ dalam PROCEDURE DIVISION.

4.                 Nama-record, pada COBOL, record harus diberi nama-record (Record-name) pada DATA RECORD clause dan pada record description entry dalam DATA DIVISION.

5.                 Nama-data (data-name) adalah nama yang dibuat untuk menunjukkan suatu data item yang dipergunakan dalam program. Dibentuk pada FILE SECTION di record description entry  dalam DATA DIVISION dan pada WORKING-STORAGE SECTION.

6.                 Nama-indek dan nama-data-indek, digunakan untuk data pada tabel yang di-indek. Dibentuk secara implisit dengan OCCURS dan INDEXED BY clause. Nama-data-indek didefinisikan dengan mengunakan USAGE IS INDEX dalam DATA DIVISION.

7.                 Nama-kondisi (condition-name) adalah nama data yang dihubungkan dengan suatu nilai tertentu. Didefinisikan dalam DATA DIVISION dengan level number 88 dan dioperasikan dalam PROCEDURE DIVISION pada statement IF.

8.                 Nama-prosedur (procedure-name) atau nama-paragraph (paragraph-name) adalah nama yang menunjukkan suatu paragraph dalam PROCEDURE DIVISION. Nama-paragraph diperlukan bila proses akan melompat ke paragraph tertentu dengan menggunakan statement GO TO dan PERFORM dalam PROCEDURE DIVISION.

9.                 Nama-seksi , pada PROCEDURE DIVISION, dapat dibuat menjadi beberapa seksi dan tiap seksi dapat dibentuk dengan dimulai judul seksinya yang disebut dengan Section-name.

10.            Nama-kualifikasi bila nama-data atau nama-kondisi tidak unik (ada yang sama satu dengan yang lain), untuk menentukan yang mana yang akan digunakan, dapat digunakan qualifie

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.

BENTUK DATA

DATA VARIABEL

Adalah data yang nilainya dapat berubah didalam program.

Contoh : ACCEPT jam-kerja

Statemen ACCEPT digunakan utk memasukkan nilai data ke suatu lokasi storage yg diwakili oleh suatu nama-data. Isi dari jam-kerja tergantung dari masukkan, jadi selalu berubah-ubah.

DATA KONSTANTA

Adalah data yang nilainya tidak bergantung dari input yang dibaca.

Contoh : MULTIPLY jam-kerja BY 5000 GIVING gaji-o 5000 adalah data konstanta.

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 penggunaan :

MOVE ZERO TO jumlah MOVE SPACES TO jarak

DISPLAY QUOTE 'PT AKU ' QUOTE

MOVE ALL 'A' TO HEADER

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. Bila source program  dicetak di printer

§  Bila diisi dengan karakter D, maka akan 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 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.

OPERATOR  ARITMATIKA

Adalah Simbol yg digunakan untuk membentuk suatu ungkapan aritmatika

Operator	Maksud	Jenjang
**	Pemangkatan	1
*	Perkalian	2
/	Pembagian	2
+	Penjumlahan	3
-	Pengurangan	3

UNGKAPAN ARITMATIKA

Adalah Kombinasi dari literal numerik , nama data, operator aritmatika dan kurung buka , kurung tutup.

KETERANGAN :

1. Penulisan  Statement  COMPUTE  untuk  setiap  elemen  harus dipisahkan

    dengan  blank  dan  digunakan  OPERATOR  ARITMATIKA  ( Bab  5.6 )

2. Penulisan  Aperative  Arithmetic   harus  diperhatikan  jenjangnya.