LP AP3 PERTEMUAN 3 (2IA19) LAB J2

Kamis, 27 Oktober 2011
Shift 3 (11:30-13:30)
PJ : Iyan Risdo
MATERI : Percabangan pada COBOL
SOAL:
—————————————————————————–

1. Apa yang kalian ketahui tentang tabel dalam COBOL !
2. Sebutkan & jelaskan macam-macam tabel dalam COBOL beserta bentuk umumnya !
3. Buat contoh program sederhana dengan menggunakan tabel ! Jawabannya :

1. Tabel adalah sekumpulan nilai data yang membentuk suatu set,
kumpulan nilai data ini akan menempati di storage yang membentuk
suatu tabel dihubungkan dengan sebuah nama data.
OCCURS Clause digunakan untuk mengulang data item di dalam suatu
record beberapa kali, yang membentuk suatu tabel.
Bentuk Umum :
[ ; OCCURS integer TIMES
ASCENDING
Key is nama_data_1 [, nama_data_2 ] …
DESCENDING
[ INDEXED BY nama_index_1 [ nama_index_2 ] …]

2. TABEL BERDIMENSI SATU

Tabel berdimensi satu (one-dimensional table) adalah tabel yang
mempunyai dimensi sebuah, yang berisi nilai-nilai data berbentuk larik (array).
Contoh :
TABEL_GAJI.
Gaji OCCURS 5 TIMES PIC 9(5)V99
Maksudnya: akan dibuat suatu tabel, yang berisi 5 elemen data_item.




TABEL BERDIMENSI DUA

Tabel berdimensi dua (two -dimensional table ) adalah sekumpulan nilai
data yang membentuk tabel, yang elemen masing-masing data ditunjukkan oleh 2
subscript. Tabel ini membentuk sebuah matrik.
Contoh :
01 PENJUALAN
02 SALESMAN OCCURS 4 TIMES
03 BULAN OCCURS 3 TIMES PIC 9( V )
Maksudnya: akan dibuat tabel penjualan, yang berisi 4 data salesman dan 3 data
bulan.


TABEL BERDIMENSI TIGA

Tabel berdimensi tiga ( three dimensional table ) menyangkut tiga buah subscript.
Contohnya :
01 MAHASISWA
02 FAKULTAS OCCURS 3 TIMES
03 ANGKATAN OCCURS 10 TIMES
04 JENIS KELAMIN OCCURS 2 TIMES PIC 9( 2 )
Maksudnya: akan dibuat tabel mahasiswa, yang berisi 3 data fakultas, 10 data
angkatan dan 2 data jenis kelamin.

3. pemasukan-nilai-siswa.
DISPLAY ( , ) ‘Nilai : ‘.
ACCEPT nilai-siswa ( i ).
Contoh program :
IDENTIFICATION DIVISION.
PROGRAM-ID. tabel1.
*Contoh penggunaan TABEL untuk pemasukan dan
*menampilkan sejumlah nilai siswa
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 > na10.
STOP RUN.
pemasukan-nilai-siswa.
DISPLAY ( , ) ‘Nilai : ‘.
ACCEPT ( , ) nilai-siswa (n).
DISPLAY SPACE.
tampilan-nilai-siswa.
DISPLAY ( , ) ‘Nilai ke ‘, n , ‘ : ‘ nilai-siswa ( n ).
DISPLAY SPACE.

Kalau ada yang salah mohon dikomen ya

Sumber : http://anjarpras.blogspot.com