Contoh program sederhana pada cobol

Program Bioadata

Identification Division.

Program-Id. Biodata.

Environment Division.

Data Division.

Working-Storage Section.

01 Biodata.

    02 Nama Pic X(30).

    02 Npm Pic X(8).

    02 Kelas Pic X(5).

Screen Section.

01 Hapus.

    02 Blank Screen.

01 Datamasuk.

02 line 9 column 10 value ‘Nama   :’.

02 column plus 2 pic X(30) to Nama.

02 line 10 column 10 value ‘NPM   :’.

02 column plus 2 pic X(8) to Npm.

02 line 11 column 10 value ‘Kelas  :’.

02 column plus 2 pic X(5) to Kelas.

01 Hasil.

02 line 13 column 10 value ‘Nama Anda’.

02 column plus 2 pic X(30) from Nama.

02 line 14 column 10 vlue ‘NPM Anda’.

02 column plus 2 pic X(8) from Npm.

02 line 15 column 10 value ‘Kelas Anda’.

02 ccolumn plus 2 pic X(5) from Kelas.

Procedure Division.

Mulai.

Display Hapus.

Display Datamasuk.

Accept Datamasuk.

Display Hasil.

Selesai.

Stop Run.

 

Logika :

Sebelum kita masuk ke program cobol, pertama-tama yang harus kita buka terlebih dahulu adalah Command Prompt. Dimana kita akan menuliskan source program pada projectnya langsung didalam Commad Prompt dan memberi nama pada project tersebut dengan di tambah extension pada nama file  (.cob), ex : edit biodata.cob maksudnya agar source progam yang sudah kia tulis akan masuk ke program cobolnya secara ototamatis setelah kita save pada command promptnya. Setelah semua source program suda diketik dan di akhiri dengan stop run, save project tesebut, command prompt di close. Kemudian kita masuk ke command prompt yang baru, dengan mengetik :

Cd cobol > untuk masuk ke program cobol > ketik cobol ulan.cob (karna nama project tersebut ulan.cob) > lalu tekan enter 3x, maka akan terlihat berapa banyak error pada program tersebut. Jika tidak error, kita bisa merunning program tersebut dengan mengetik runcobol biodata.cob

Penulisan Program Cobol :

kesemua divisi harus dituliskan semua, dan dimulai pada kolom 8, untuk penulisan judul program kita harus menempatkannya pada PROGRAM-ID. BIODATA.

01 BIOADATA level number untuk mengawali keterangan dari record.

02 NAMA PIC X(30) maksudnya adalah menunjukkan posisi alphanumerik yang disimpan pada field, Bersifat rata kiri. Dalam contoh diatas panjang karakternya adalah 30. maka penulisan nama tidak boleh lebih dari 30 karakter.

02 NPM PIC X(8) batas penulisan NPM sebanyak 8 karakter. Lebih dari itu tidak akan tercetak.

02 KELAS PIC X(5) batas penulisan kelas hanya 5 karakter. Lebih dari itu tidak tercetak.

SCREEN SECTION  digunakan untuk menunjukkan bentuk format layar terminaluntuk menampilkan atau memasukkan data.

02 BLANK SCREEN digunakan untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas (baris1, kolom1).

Demikian contoh program ini, kiranya dapat bermanfaat bagi yang membutuhkan..