COBOL LANGUAGE PROGRAMING

Bahasa Cobol adalah bahasa pemrograman computer yang dirancang untuk menyelesaikan persoalan bisnis. Cobol adalah singkata dari Common Bussiness Oriented Language. Program Cobol merupakan program terstruktur dan merupakan bahasa tingkat tinggi.

aturan penulisan program cobol :

• Kolom 1-6

Digunakan untuk nomor urut bila diperlukan, nomor harus urut dari kecil ke besar.

• Kolom 7
1. Untuk tanda Hypen(-), baris sambungannya berada di area B
2. Bila diisi dengan tanda *, maka baris tersebut dianggap sebagai komentar.
3. Bila diisi dengan tanda /, maka baris tersebut dianggap sebagai komentar dan akan dicetak mulai halaman baru.
4. Bila diisi dengan karakter D, maka dianggap sebagai komentar. Tapi bila pada Environment Division dalam paragraph Source-komputer disebutkan with debugging mode, maka kan berguna untuk 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.

• Kolom 12-72

Disebut area B. semua elemen program selain ditulis di area A ditulis di area B

• Kolom 73-80

Merupakan kolom yang tidak diproses oleh computer, jadi bila diisi dengan catatan-catatan apa saja, hanya untuk dokumentasi program.

struktur program Cobol

1. Dibagi menjadi 4 divisi

- Identification Division

- Environment Division

- Data Division

- Procedure Division

2. Terdapat susunan hirarki dari ke-4 divisi tersebut

• Division
• Region
• Section
• Paragraf
• Sentence / entry
• Statement clause
• Phrase / option

Contoh Program COBOL sederhana untuk Menghitung nilai total :
IDENTIFICATION DIVISION.
PROGRAM-ID. KONDISI.
AUTHOR. MAMAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN.
02 NAMA PIC X(20).
02 NPM PIC 9(8).
02 UTS PIC 9(2).
02 UAS PIC 9(2).
02 TOTAL PIC 9(2).
02 HASILOUT PIC ZZZZ.
PROCEDURE DIVISION.
HITUNG.
DISPLAY (6, 20) 'NAMA:'.
ACCEPT ( , ) NAMA.
DISPLAY (8, 20) 'NPM:'.
ACCEPT ( , ) NPM.
DISPLAY (10, 20) 'NILAI UTS :'.
ACCEPT ( , ) UTS.
DISPLAY (12, 20) 'NILAI UAS :'.
ACCEPT ( , ) UAS.
COMPUTE TOTAL = ( UTS + UAS ) / 2.
MOVE TOTAL TO HASILOUT.
DISPLAY (16, 20) 'TOTAL :' HASILOUT.
STOP RUN.

Outputnya :
NAMA : NANDA
NPM : 0403024566
NILAI UTS : 80
NILAIi UAS : 80
TOTAL : 80