Array Satu Dimensi Cobol

Array adalah Sekumpulan data yang berjenis sama (integer) atau homogen.

Bentuk Umum Array :

Array dalam cobol dapat dilakukan dengan perintah atau statement OCCURS pada bagian deklarasi datanya.

Contoh program array satu dimensi :

    IDENTIFICATION DIVISION.
    PROGRAM-ID. TABEL1.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    77 n PIC 99.
    01 TABEL-NILAI-SISWA.
        02 NILAI-SISWA PIC 999 OCCURS 10 TIMES.
    SCREEN SECTION.
    01 HAPUS-LAYAR.
        02 BLANK SCREEN.
    PROCEDURE DIVISION.
    PROGRAM UTAMA.
        PERFORM PEMASUKAN-NILAI-SISWA
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        DISPLAY hapus-layar.
        PERFORM TAMPILAN-NILAI-SISWA
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        STOP RUN.
    PEMASUKAN-NILAI-SISWA.
        DISPLAY ( , ) ‘MASUKAN NILAI SISWA : ‘.
        ACCEPT ( , ) NILAI-SISWA (n).
        DISPLAY SPACE.
    TAMPILAN-NILAI-SISWA.
        DISPLAY ( , ) ‘NILAI KE ‘, n , ‘ : ‘ NILAI-SISWA(n).
        DISPLAY SPACE.