PEMBUATAN TABEL DIMENSI C o b o l

PEMBUATAN TABEL DIMENSI C o b o l

OCCURS CLAUSE

·         Digunakan untuk tujuan mengulang data item di dalam suatu record beberapa kali, yaitu membentuk tabel.

·         Bentuk umumnya OCCURS integer TIMES

TABEL DIMENSI SATU

·         Tabel adalah suatu kumpulan data dengang tipe sama yg diakses dg menggunakan nama yang sama, serta disimpan di memori secara berurutan (disebut juga array).

·         Pendefinisian Tabel ada pada DATA DIVISION di WORKING-STORAGE SECTION.

Ø  Contoh pendefinisian tabel :

01       tabel-nilai.

02  nilai-siswa PIC 99 OCCURS 5 TIMES.

·         Menyatakan array nilai-siswa yang menampung 5 data numerik.

·         01 tabel-nilai.

02  nilai-siswa PIC 99 OCCURS 5 TIMES

·         Identik dengan data berikut:

01       data-nilai-siswa.

02  nilai-siswa-1 PIC 99.

02  nilai-siswa-2 PIC 99.

02  nilai-siswa-3 PIC 99.

02  nilai-siswa-4 PIC 99.

02  nilai-siswa-5 PIC 99

CONTOH PROGRAM

·         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-siswaVARYING  n

·         FROM 1 BY 1 UNTIL n >10.

·         STOP RUN.

·         pemasukan-nilai-siswa.

·         DISPLAY (  ,  )  'Nilai ke ', n, ':  '.  

·         ACCEPT  (  ,  )  nilai-siswa (n).

·         DISPLAY SPACE.

·         tampilan-nilai-siswa.

·         DISPLAY (  ,  ) 'Nilai ke ',  n  ,  ' : '  nilai-siswa ( n ).

·         DISPLAY SPACE.

TABEL DIMENSI DUA

·         Adalah sekumpulan nilai data yang berbentuk tabel, yang elemen masing-masing data ditunjukan oleh dua buah subscript.

·         Tabel dua dimensi biasanya berbentuk matrik dimana salah satu subscriptnya menunjukan posisi kolom, dan subscript yang satunya menunjukan posisi barisnya

OCCURS ….DEPENDING ON CLAUSE

·         Jumlah elemen didalam tabel bervariasi jumlahnya

·         Bila menggunakan OCCURS berarti nilainya akan tetap sejumlah times nya

·         Dengan depending on jumlah bisa dibuat bervariasi tergantung dari suatu nilai nama-data

·         Bentuk umumnya

OCCURS integer1 TO integer2 TIMES

DEPENDING ON nama-data

CONTOH

·         01 record-mhs.

02 jumlah pic 9(2).

02 nilai occurs 1 to 100 times depending on jumlah.

03 nama pic a(20).

03 alamat pic a(30).

OUTPUT 1

OUTPUT 2