Contoh Laporan Akhir Array pada COBOL

Cobol memiliki 4 divisi, yaitu :

1. identification Division : yang berfungsi untuk membuat nama program, tanggal program, nama pembuat program

2. environment division : untuk input & output program, dan configuration section

3. data division : untuk variabel variabel yang akan diolah

4. procedure division : untuk proses.   

02 NILAI X OCCURS 2 TIMES

03 NILAI PIC 9 OCCURS 2 TIMES

Variabel nilai x bertipe data numerik dan OCCURS 2 TIMES untuk melakukan perulangan sebanyak 2 kali.

77 I pic 9.

77 J pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Pada codingan ini MULAI berfungsi untuk memulai program. Lalu DISPLAY untuk menampilkan tulisan pada layar. Varying I FROM 1 BY 1 UNTIL I > 2 untuk melakukan looping sebanyak I satu demi satu sampai dengan I > 5 , setelah looping sampai sama dengan nilai variable I maka program akan berhenti sendiri. AFTER J FROM 1 BY 1 UNTIL J > 2 untuk melakukan perulangan setelah J dari 1 by 1 sampai J lebih besar dari 2. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

DISPLAY ( , ) NILAI untuk mencetak Nilai. IF J = 2 DISPLAY SPACE maksudnya adalah jika J sama dengan 2 maka akan membuat baris baru.

I dimulai dari 1,       I = 2 SPACE (Baris Baru)

I	J	CETAK (baris dan kolom)
1	1	(01, 01)
	2	(01, 02)
	3	-

Output