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