Pengenalan Bahasa Cobol

Listing Program (COBOL)

Nama file : yansen.cob

Listing program :

OutPut Program :

Untuk mengcompile Program Untuk merunning Program

Logika program :

data division.

working-storage section.

01 Data.

02p pic 9 (3)

02 l pic 9 (3)

02 luas pic 9(4).

v Dimulai pada kolom 8 penulisan data yang dibentuk dalam data division dengan penyimpanan data yang diada pada (working-storage section) yaitu data dengan level number utama (01) dan mempunyai anak p = panjang dan l = lebar dan luas dengan level number (02). p & l dideklarasikan oleh “ pic 9” dengan nilai 3 karakter saja dan tidak dibenarkan untuk menginput angka 0, sedangkan luas dideklarasikan dengan “ pic 9” 4 karakter.

procedure division.

mulai.

display 'nilai panjang ='.

accept p.

display 'nilai lebar ='.

accept l.

multiply p by l giving luas.

display 'luas persegi panjang ='.

display luas.

stop run.

v Procedure devision adalah tempat untuk melakukan perintah (cetak, input, dan perhitungan) yang akan dijalankan pada divisi ini. Lalu prosedur atau instruksi akan dimulai dengan mengeluarkan output. “multiply p by l giving luas” Dimana nilai panjang dan nilai lebar dikalikan dan menyimpan hasil perhitungan aritmatika tersebut kedalam luas, lalu tampilkan hasil luas yang telah disimpan pada perhitungan tersebut.

Struktur Program Cobol :

Keterangan :

v Division, merupakan bagian utama dari program COBOL dan selalu diawali dengan judul division; identification division, environment division, data division, procedure division.

v Section, kumpulan dari paragraph yang selalu diawali dengan judul devision.

v Paragraph, grup dari kalimat (sentence) di dalam Procedure Division yang selalu diawali dengan nama/judul paragraph.

v Sentence, kumpulan dari statement-statement yang membentuk sutu kalimat yang biasanya diakhiri dengan tanda titik.

v Statement, kumpulan dari kata-kata yang memiliki arti untuk menjalankan program yang juga merupakan bagian dari entry.

v Phrase, grup kata yang merupakan bagian dari statement atau clause