array dalam cobol

Array dapat dideklarasikan dalam COBOL menggunakan klausa TERJADI.

Syntax is, Sintaks adalah,

For one dimensional array, Untuk satu array dimensi,

01 Arrays. 01 Arrays.
   05 Var1   PIC X(10) Occurs 10 times. 05 var1 PIC X (10) Terjadi 10 kali.


For two dimensional array, Selama dua array dimensi,

01 Arrays. 01 Arrays.
   03 AAA Occurs 10 times 03 AAA Terjadi 10 kali
      05 BBB Occurs 10 times 05 BBB Terjadi 10 kali
         07 Value PIC 9(3). Nilai 07 PIC 9 (3). 

 01 ARRAYNAME
 05 ARRAY-RECDFORMAT OCCURS 20 TIMES 05 FORMAT ARRAY-RECD TERJADI 20 KALI
  10 ARRAYNAME-FIELDNAME1 PIC X(20) 10 ARRAYNAME- FIELDNAME1 PIC X (20)
  10 ARRAYNAME-FIELDNAME2 PIC X(30) 10 ARRAYNAME- FIELDNAME2 PIC X (30)

AND WE CAN ACCESS THIS ARRAY BY USING SUBSCRIPT... DAN KAMI BISA AKSES INI DENGAN MENGGUNAKAN ARRAY subscript ...
LIKE DISPLAY ARRAY-NAME(I) SEPERTI NAMA DISPLAY-ARRAY (I)
AND ALSO INDIVIDUAL FIELD: DISPLAY ARRAYNAME-FIELD1(I) DAN JUGA INDIVIDU LAPANGAN: DISPLAY ARRAYNAME-FIELD1 (I) 

 kita menyatakan tabel sebagai
01 SALES-OF-YEAR-2010 OCCURS 12 TIMES indexed by YY. 01 SALES-OF-Y EAR-2010 TERJADI 12 KALI diindeks oleh YY.
    02 MONTH PIC A(10). 02 BULAN PIC A (10).
    02 NUM-OF-UNITS PIC 9(7). 02 TS NUM-OF-UNI PIC 9 (7).
    02 PRICE-OF-UNIT PIC 9(5). 02 NIT PRICE-OF-U PIC 9 (5).

and we can call table elemnts as follows dan kita dapat memanggil elemnts tabel sebagai berikut

procedure division. prosedur divisi.
    ....... .......
    ....... .......
    MOVE 1 TO YY. PINDAHKAN 1 KE YY.
    DISPLAY MONTH(YY). DISPLAY BULAN (YY).