Bahasa Pemograman COBOL

Kali ini saya akan akan menjelaskan tentang COBOL langsung ke pembahasan aja nih…

Pengetian COBOL (Common Business Oriented Language) adalah sebuah bahasa pemogramangenerasi ketiga. COBOL dirilis pada tahun 1960 oleh CODASYL (Conference On Data System Language) dan pada tahun 1968-1974 dikembangkan lagi oleh ANSI-COBOL (American National Standart Institute). Bahasa COBOL mempunyai fungsi untuk menyelesaikan masalah yang berhubungan dengan perdagangan, seperti system pengelolaan keuangan, laporan pengeluaran keuangan, laporan pengeluaran sebuah perusahaan dan lain-lain.  

Keuntungan bahasa COBOL adalah :

• Program COBOL dibuat dalam instruksi Bahasa inggris sehingga lebih mudah dipelajari dan dibuat
• Program COBOL sesuai untuk pengeloaan data ynag banyak diterapkan dalam masalah bisnis
• Program COBOL sifatnya standart sehingga dapat digunakan pada computer-komputer yang berbeda tanpa ada perbedaan
• Struktur program COBOL jelas sehingga dapat dimenegerti oleh orang yang hanya mempunyai pengetahuan pengolahan data yang sedikit
• COBOL menyediakan fasilitas listing program
• Mudah didokumentasikan dan dikembangkan bila perlu

Didalam COBOL terdapat kolom-kolom yang mampunyai fungsinya masing-masing, yaitu:

• Kolom 1-6 : terdapat No. urut, sifatnya oprional(boleh dipakai/tidak)

• Kolom 7 : hanya boleh karakter ( - )  Hypen = yang terdapat pada Area B ,( * ) Asterik = Hanya berupa komentar, ( / ) Slash =  hanya berupa komentar, untuk pindah halaman

• Kolom 8-11 (area A) = Judul divisi, judul seksi, nama paragraph, level number 01 dan 77

• Kolom 12-72 (Area B) = Source Program (untuk mengetikkan code program)

• Kolom 73-80 = catatan dokumentasi, sifatnya oprional(boleh dipakai/tidak)

Dalam COBOL terdapat level number yaitu suatu nomor yang menunjukkan jenjang dari data item suatu record. Makin besar levelnya makin rendah jenjang tingkatannya

Macam-macam level number pada COBOL

• Level number 01 untuk mengawali keterangan data record
• Level number 02-49 untuk mengawali keterangan data item
• Level number 66 untuk RENAMES
• Level number 77 untuk mengawali data item yang berdiri sendiri
• Level number 88 untuk mengawali suatu nama kondisi

Picture clause digunakan untuk menerangkan masing-masing data item yang digunakan mengenai ukuran dari field dan memberikan informasi apakah nilai data tersebt berbentuk numerik, alphabetic /alphanumeric serta menerangkan tentang nilai decimal juga tanda yang dikandungnya.

Macam-macam picture clause

• Pic 9 untuk menyimpan nilai numerik, Contoh 77 Nilai PIC 9(6)

• Pic A untuk menyimpan nilai alphabetic, Contoh 77 NAMA-MHS PIC A (20)

• Pic X untuk menunjukkan alphanumeric pada field, Contoh 77 PIC X(5)

Macam-macam picture editing   

• Pic editing Z menghilangkan angka 0 didepan agar tidak tercetak pada output. Contoh Pic Z(6)

• Pic editing $ Menambahkan karakter $ didepan kata/angka pada output. Contoh Pic $Z(6)

• Pic editing “-“ (minus) Menambah tanda minus pada posisi kiri pada output Jika data yang diberikan negative, jika positif akan digantikan dengan blank.

COBOL reserved word adalah kata yang telah didefiiskan yang mempunyai arti dan kegunaan tertentu dalam bahasa COBOL

User defined word adalah kata-kata yang dapat dibuat dan telah didefiniskan oleh programmer

Struktur program COBOL

• IDENTIFICATION DIVISION sebagai identifikasi program COBOL terdapat Nama program, pembuat/author, tanggal

• ENVIRONMENT DIVISION untuk memberikan indormasi peralatan yang digunakan dalam program, dibagi menjadi 2 section configuration section dan input-output section

• DATA DIVISION untuk mendeskripsikan variable-variable dan jenis data yang digunakan dalam program COBOL terdapat file section, Working-strorage section, screen section, linkage section, report section

• PROCEDURE DIVISION merupakan inti dari Bahasa pemograman COBOL karena didalamnya berisi instruksi-instruksi yang akan kita buat

Contoh program COBOL

MEMBUAT PROGRAM BIODATA DAN NILAI PADA COBOL

Dalam devisi ini menjelaskan tentang ID program yang akan buat, dan Menjelaskan peralatan yang akan dibutuhkan dalam program

Ini adalah devisi yang berguna untuk mendeklarasikan data input maupun output, tentang jenis data yang akan digunakan dan sifat data tersebut. Pada gambar diatas dibagi menjadi 2 section yaitu working-storage section yang berguna untuk tempat mendeklarasikan variable yang akan digunakan nanti, yang kedua adalah screen section berguna untuk mengatur bentuk format dari layar input maupun output. Pada working-storage section dideklarasikan 7 variabel yaitu, NAMA dengan tipe data alphabetic yang mempunyai panjang krakter 20, NPM dengan tipe data alphanumeric dengan panjang karakter sebanyak 8, KELAS dengan tipe data alphanumeric dengan panjang karakter sebanyak 5, JURUSAN dengan panjang karakter sebanyak 20, UTS dengan tipe data numeric dengan panjang karakter sebanyak 3, UAS dengan tipe data numeric dengan panjang karakter sebanyak 3, dan NILAI dengan tipe data editing untuk menghilangkan angka 0 didepan saat outputnya nanti.

Devisi ini merupakan devisi inti dariprogram cobol, dimana pada devisi ini berisi semua statement instruksi program yang dibuat. Dan MULAI untuk mengawali pembuata program. Sama seperti pada PASCAL

Bagian ini, akan menampilkan karakter ‘=========’,  ‘PROGRAM BIODATA SEDERHANA’,  ‘MASUKKAN NAMA ANDA : ‘, ‘'MASUKKAN NPM ANDA : ', 'MASUKKAN KELAS ANDA : ', 'MASUKKAN KELAS ANDA : ', 'MASUKKAN JURUSAN ANDA : ', 'MASUKKAN NILAI UTS : ', 'MASUKKAN NILAI UAS : ’, program akan menerima inputan dari user dengan ACCEPT NAMA, ACCEPT NPM, ACCEPT KELAS, ACCEPT JURUSAN, ACCEPT UTS,  ACCEPT UAS. Yang nantinya variable tersebut akan ditampung inputan berupa NAMA, NPM, KELAS, JURUSAN, UTS, UAS.

COMPUTE NILAI = (UTS * 0.7) + (UAS * 0.3). ini untuk menghitung nilai UTS dan UAS yang kita inputkan lalu hasil perhitungannya akan ditampung pada variable NILAI.

Yang terkakhir untuk menampilkan NAMA, NPM, KELAS, JURUSAN, NILAI. Yang sebelumnya sudah kita inputkan dibagian awal dengan ACCEPT, dan diakhiri dengan dengan STOP RUN. Untuk menghentikan program.

Outputnya :

referensi :
https://zikriimam.wordpress.com/2009/12/19/picture-clause-dan-editing-pada-cobol/
http://uzi-online.blogspot.com/2010/10/program-sederhana-cobol.html
http://rangga-dwid.blogspot.com/2010/11/struktur-program-cobol.html
https://id.wikipedia.org/wiki/COBOL