Pemakaian Tabel Pada COBOL

OCCURS Clause

Digunakan untuk tujuan mengulang data item didalam record beberapa kali, yang akan membentuk table. Bentuk Umum :

 

 

• OCCURS Clause tidak boleh digunakan pada level number 01 atau 77. Digunakan pada
  FILE SECTION, WORKING-STORAGE SECTION, atau LINKAGE SECTION.
• Integer TIMES, menunjukkan berapa kali data-item akan diulang dalam suatu record
• ASENDING atau DECENDING, menunjukkan bagaimana data tersebut diatur tergantung
  dari nilainya
• KEY IS dan INDEXED BY, menunjukkan nama kunci yang dipergunakan untuk statemenr
  SEARCH.

TABEL DIMENSI SATU
Mempunyai nilai-nilai data yang bertipe sama berbentuk array. Misal :
             01 TABEL-GAJI.
                     02 GAJI OCCURS 5 TIMES PIC 9(5)V99.
Maka akan terbentuk table dimensi satu yang bila di ilustrasikan
TABEL-GAJI

TABEL DIMENSI DUA
Merupakan sekumpulan data yang membentuk tabel, yang elemen masing-masing data ditunjukkan oleh dua buah subscipt. Misal :
       01 TABEL-PENJUALAN.
             02 SALESMAN OCCURS 3 TIMES.
                   03 BULAN OCCURS 3 TIMES PIC 9(6).

Total data yang di berikan ada 3*3 = 9 data.

TABEL DIMENSI TIGA
Merupakan sekumpulan data yang membentuk tabel, yang elemen masing-masing data ditunjukkan oleh tiga buah subscipt. Misal :
       01 TABEL-MAHASISWA.
            02 FAKULTAS OCCURS 5 TIMES
                 03 JURUSAN OCCURS 4 TIMES.
                      04 NAMA OCCURS 10 TIMES PIC X(15).

Total data yang di berikan ada 5*4*10 = 200 data NAMA.