Belajar COBOL

Apa itu COBOL?

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

Contoh Program

Berikut adalah listing code untuk program kalkulator dengan menggunakan Bahasa Pemrograman COBOL.

       IDENTIFICATION DIVISION.

       PROGRAM-ID. IFSTAT.
       AUTHOR. INDERA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 P PIC 9.
       77 B1 PIC 9(5).
       77 B2 PIC 9(5).
       77 H PIC -Z(10).99.
       77 U PIC A.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           PERFORM MENU.
           PERFORM PILIHAN.
           IF P > 5 PERFORM PILIHAN UNTIL P < 6.
           IF P < 5 PERFORM MASUKKAN-BILANGAN.
           PERFORM KALKULATOR.
           IF P = 5 PERFORM SELESAI.
           DISPLAY 'HASIL = ', H.
           DISPLAY 'ULANGI ? (Y/T) : '.
           ACCEPT U.
           IF U = 'Y' GO TO MULAI.
           PERFORM SELESAI.
       MENU.
           DISPLAY '=====MENU====='.
           DISPLAY '1. PENJUMLAHAN'.
           DISPLAY '2. PENGURANGAN'.
           DISPLAY '3. PERKALIAN'.
           DISPLAY '4. PEMBAGIAN'.
           DISPLAY '5. EXIT'.
       PILIHAN.    
           DISPLAY 'PILIHAN : '.
           ACCEPT P.
       MASUKKAN-BILANGAN.
           DISPLAY 'BILANGAN PERTAMA : '.
           ACCEPT B1.
           DISPLAY 'BILANGAN KEDUA : '.
           ACCEPT B2.
       KALKULATOR.
           IF P = 1 PERFORM PENJUMLAHAN.
           IF P = 2 PERFORM PENGURANGAN.
           IF P = 3 PERFORM PERKALIAN.
           IF P = 4 PERFORM PEMBAGIAN.
       PENJUMLAHAN.
           COMPUTE H = B1 + B2.
       PENGURANGAN.
           COMPUTE H = B1 - B2.
       PERKALIAN.
           COMPUTE H = B1 * B2.
       PEMBAGIAN.
           COMPUTE H = B1 / B2.
       SELESAI.
           DISPLAY 'TERIMA KASIH'.
           STOP RUN.

Namun, program tersebut belumlah sempurna karena masih sangat sederhana dan masih ada kekurangan, karna hanya dapat menghitung maksimal 5 digit angka saja.

Mohon masukannya. Terima kasih dan selamat mencoba.