program OCCURS

IDENTIFICATION DIVISION.
PROGRAM-ID. RECORD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAMA-INPUT.
02 NAMA PIC A(5) OCCURS 5 TIMES.
77 I PIC 9.
77 N PIC 9.
PROCEDURE DIVISION.
MULAI.
DISPLAY (1, 1) 'INPUT DATA (MAX 5 INPUTAN) ? '.
ACCEPT N.
PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL I = N.
IF I > N
PERFORM OUT1.
HASIL.
DISPLAY ( , 1) 'NAMA KE-' I ' : ';
ACCEPT NAMA (I).
OUT.
DISPLAY SPACE
PERFORM GARIS.
DISPLAY ' NAMA'.
PERFORM GARIS.
OUT1.
DISPLAY NAMA (1).
DISPLAY NAMA (2).
DISPLAY NAMA (3).
DISPLAY NAMA (4).
DISPLAY NAMA (5).
GARIS.
DISPLAY '----------'.
AKHIR.
STOP RUN.
PROSES PENGINPUTAN DATA.





LISTING PROGRAM.

Setelah proses penginputan data selesai, maka tekan enter dan hasil output programpun akan muncul.




OUTPUT PROGRAM.






LOGIKA PROGRAM.
Inti dari program OCCURS untuk mendefinisikan matriks atau tabel. DISPLAY (1, 1) 'INPUT DATA (MAX 5 INPUTAN) ? '. untuk menampilkan jumlah inputan yang kita masukan maksimal 5 inputan. Kemudian setelah penginputan selesai maka akan dilakukan perform. Perform digunakan untuk membuat suatu program meloncat ke suatu paragraph tertentu dan mengerjakan seluruh isi paragraph tersebut sampai selesai lalu kembali lagi ke statement setelah statement PERFORM.