1
TABEL Pendefinisian Tabel Berdimensi 1 Tabel adalah suatu kumpulan data dengan tipe sama, yang diakses dengan menggunakan nama yang sama. Pendefinisian Tabel ada pada DATA DIVISION di WORKING-STORAGE SECTION. Contoh pendefinisian tabel : 01 tabel-nilai-siswa. 02 nilai-siswa PIC 999 OCCURS 10 TIMES. Menyatakan array nilai-siswa yang menampung 10 data numerik. Contoh tabel di atas identik dengan : 01 data-nilai-siswa. 02 nilai-siswa-1 02 nilai-siswa-2 02 nilai-siswa-3 02 nilai-siswa-4 02 nilai-siswa-5 02 nilai-siswa-6 02 nilai-siswa-7 02 nilai-siswa-8 02 nilai-siswa-9 02 nilai-siswa-10
PIC 999. PIC 999. PIC 999. PIC 999. PIC 999. PIC 999. PIC 999. PIC 999. PIC 999. PIC 999.
Pengisian dan Pengaksesan Isi Tabel Untuk menunjuk ke masing-masing elemen tabel diperlukan sebuah subscript yg dapat berupa literal numerik (bilangan bulat positif) ataupun suatu identifier yg berisi bilangan bulat positif. Pada contoh tabel-nilai-siswa, nilai subscript adalah antara 1 s/d 10. Subscript 1 menunjukkan elemen tabel yg pertama, subscript 2 menunjukkan elemen tabel yg kedua, dst. Untuk menunjuk atau mengakses elemen ke n pada suatu tabel dengan menyebutkan nama-tabel diikuti dengan nilai subscriptnya diapit tanda kurung. Contoh untuk pengaksesan elemen ke 5 pd tabel-nilai-siswa : nilai-siswa (5). MOVE 75 TO nilai-siswa (5). DISPLAY nilai-siswa (5). Berikut ini adalah potongan program untuk pemasukan data tabel : PERFORM pemasukan-nilai-siswa VARYING i FROM 1 BY 1 UNTIL i > 10. -------------------------------------------------------------pemasukan-nilai-siswa. DISPLAY ( , ) ‘Nilai : ‘. ACCEPT nilai-siswa ( i ).
Algoritma dan Pemrograman 3 – Week 05
2 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 DISPLAY hapus-layar. PERFORM tampilan-nilai-siswa VARYING n FROM 1 BY 1 UNTIL STOP RUN. pemasukan-nilai-siswa. DISPLAY ( , ) ACCEPT ( , ) DISPLAY SPACE.
n n
> >
10. 10.
‘Nilai : ‘. nilai-siswa (n).
tampilan-nilai-siswa. DISPLAY ( , ) ‘Nilai ke ‘, DISPLAY SPACE.
n
,
‘ : ‘
nilai-siswa (n).
Output: Nilai Nilai Nilai Nilai Nilai Nilai Nilai Nilai Nilai Nilai
: : : : : : : : : :
70 65 60 75 50 63 63 75 70 65
Nilai ke 01 Nilai ke 02 Nilai ke 03 Nilai ke 04 Nilai ke 05 Nilai ke 06 Nilai ke 07 Nilai ke 08 Nilai ke 09 Nilai ke 10
: : : : : : : : : :
70 65 60 75 50 63 63 75 70 65
Algoritma dan Pemrograman 3 – Week 05
3
Tabel 1 Dimensi dengan 2 buah kolom Untuk pembuatan tabel yg tiap elemennya mengandung 2 buah data, seperti pd tabel berikut ini: NAMA SALESMAN Windy Arwindya Afif Susanto Miko Ariko Lely Nurlela Chika
JUMLAH PENJUALAN 500.000 2.100.500 1.750.000 5.700.000 760.000
Pendefinisian Tabel dg tiap elemen mengandung 2 data seperti di atas adl sbg berikut : 01 tabel-penjualan. 02 data-penjualan-salesman OCCURS 5 TIMES. 03 nama-salesman PIC X(25). 03 hasil-penjualan PIC 9(6). Untuk mengisikan kelima elemen tabel tersebut adl sbg berikut : PERFORM pemasukan-data-tabel VARYING i FROM 1 BY 1 UNTIL i > 5. ------------------------------------------------------------------pemasukan-data-tabel. DISPLAY ( , ) ‘Nama salesman : ‘. ACCEPT nama-salesman ( i ). DISPLAY SPACE. DISPLAY ( , ) ‘Hasil penjualan : ‘. ACCEPT hasil-penjualan ( i ).
Algoritma dan Pemrograman 3 – Week 05
4 IDENTIFICATION DIVISION. PROGRAM-ID. tabel. ENVIRONMENT DIVISION. CONFIGURATIO SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC 9. 77 garis PIC X(47) VALUE ALL ‘-’. 01 tabel-penjualan. 02 data-penjualan-salesman OCCURS 5 TIMES. 03 nama-salesman PIC X(25). 03 hasil-penjualan PIC 9(8). 01 judul-1 PIC X(20) VALUE ‘ Tabel Penjualan ‘. 01 judul-2. 02 FILLER PIC X(2) VALUE ‘| ‘. 02 FILL PIC X(26) VALUE ‘ NAMA SALESMAN ‘. 02 FILL PIC X(2) VALIE ‘| ‘. 02 FILL PIC X(16) VALUE ‘ HASIL PENJUALAN ‘. 02 FILL PIC X(1) VALUE ‘|’. 01 isi-tabel. 02 FILL PIC X(2) VALUE ‘| ’. 02 lap-nama-salesman PIC x(26). 02 FILL PIC X(2) VALUE ‘| ‘. 02 lap-hasil-penjualan PIC ZZ.ZZZ.ZZZ.ZZZBB. 02 FILL PIC X(1) VALUE ‘|’. SCREEN SECTION. 01 hapus-layar. 02 BLANK SCREEN. PROCEDURE DIVISION. program-utama. PERFORM pemasukan-data-tabel VARYING n FROM 1 BY 1 UNTIL n > 5 PERFORM tampilan-tabel-penjualan VARYING n FROM 1 BY 1 UNTIL n > 5. STOP RUN. pemasukan-data-tabel. DISPLAY ( , ) n, ‘. Nama salesman : ‘. ACCEPT ( , ) nama-salesman (n). DISPLAY SPACE. DISPLAY ( , ) SPACE, ‘ Hasil penjualan : ‘. ACCEPT ( , ) hasil-penjualan (n). DISPLAY SPACE. tampilan-tabel-penjualan. DISPLAY hapus-layar. DISPLAY judul-1. DISPLAY garis. DISPLAY judul-2. DISPLAY garis. PERFORM tampilkan-isi-tabel VARYING n FROM 1 BY 1 UNTIL n > 5. DISPLAY garis. tampilkan-isi-tabel. MOVE nama-salesman (n) TO lap-nama-salesman. MOVE hasil-penjualan (n) TO lap-hasil-penjualan. DISPLAY isi-tabel.
Algoritma dan Pemrograman 3 – Week 05
5
Output: 1. Nama salesman Hasil penjualan 2. Nama salesman Hasil penjualan 3. Nama salesman Hasil penjualan 4. Nama salesman Hasil penjualan 5. Nama salesman Hasil penjualan
: : : : : : : : : :
Windy Arwindya 500.000 Afif Susanto 2.100.500 Miko Ariko 1.750.000 Lely Nurlela 5.700.000 Chika 760.000
NAMA SALESMAN Windy Arwindya Afif Susanto Miko Ariko Lely Nurlela Chika
JUMLAH PENJUALAN 500.000 2.100.500 1.750.000 5.700.000 760.000
Tabel 2 dimensi Pada tabel dimensi 2, mempunyai 2 buah subscript, berbeda dg tabel dimensi satu yg untuk pengaksesannya hanya diperlukan 1 buah subscript. Sebagai contoh dapat dilihat pd tabel berikut : Cabang Medan Semarang Solo Yogya
Jumlah kendaraan terjual Bulan 1 Bulan 2 Bulan 3 21 15 8 32 28 27 12 11 13 4 6 10
Untuk tabel di atas, pendefinisiannya adl sbg berikut : 01 tabel-penjualan-mobil. 02 cabang OCCURS 4 TIMES. 03 bulan OCCURS 3 TIMES. 04 jumlah-unit-terjual Definisi tabel di atas : 02 cabang OCCURS 4 TIMES. 03 bulan OCCURS 3 TIMES. 04 jumlah-unit-terjual PIC 99.
PIC 99.
Menyatakan bahwa ada 4 buah cabang Menyatakan bahwa setiap cabang ada data dalam 3 bulan Menyatakan elemen dari tabel bulan berupa jumlah-unit-terjual , yg bertipe numerik (2 digit).
Untuk mengakses elemen jumlah-unit-terjual , diperlukan pengenal/penunjuk berupa : jumlah-unit-terjual ( subscript-cabang, subscript-bulan ) Contoh : Untuk mengakses data penjualan cabang Medan pada bulan kedua, bentuknya adalah : jumlah-unit-terjual ( 1, 2 ) Algoritma dan Pemrograman 3 – Week 05
6 IDENTIFICATION DIVISION. PROGRAM-ID. tabel2. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 ws-subscript. 02 subscript-cabang PIC 9. 02 subscript-bulan PIC 9. 01 tabel-penjualan-mobil. 02 cabang OCCURS 4 TIMES. 03 bulan OCCURS 3 TIMES. 04 jumlah-unit-terjual PIC 99. 77 total-penjualan-cabang PIC 99 VALUE 0. SCREEN SECTION. 01 hapus-layar. 02 BLANK SCREEN. PROCEDURE DIVISION. program-utama. PERFORM entry-tabel. PERFORM tampilkan-tabel. STOP RUN. entry-tabel. DISPLAY ‘ Pemasukan data ke dalam tabel dimensi dua: PERFORM isi-data-tabel VARYING subscript-cabang FROM 1 BY 1 UNTIL subscript-cabang > 4 AFTER subscript-bulan FROM 1 BY 1 UNTIL subscript-bulan > 3.
‘.
isi-data-tabel. DISPLAY (
,
)
‘Cabang
‘,
subscript-cabang, Bulan
‘,
subscript-bulan, ‘
ACCEPT ( , ) jumlah-unit-terjual (subscript-cabang, DISPLAY SPACE. tampilkan-tabel. DISPLAY hapus-layar. DISPLAY ‘ Menampilkan isi tabel berdimensi dua :
:
‘.
subscript-bulan).
‘.
PERFORM display-data-tabel VARYING subscript-cabang FROM 1 BY 1 UNTIL subscript-cabang > 4 AFTER subscript-bulan FROM 1 BY 1 UNTIL subscript-bulan > 3. display-data-tabel. DISPLAY ( , ) ‘Cabang ‘, subscript-cabang, ‘Bulan ‘, subscript-bulan, ‘ : ‘, jumlah-unit-terjual (subscript-cabang, subscript-bulan). DISPLAY SPACE. ADD jumlah-unit-terjual (subscript-cabang, subscript-bulan) TO total-penjualan-cabang. IF
(subscript-bulan = 3) DISPLAY ‘*** Total penjualan per cabang MOVE 0 TO total-penjualan-cabang.
=
‘,
total-penjualan-cabang.
Algoritma dan Pemrograman 3 – Week 05
7
Output: Pemasukan data ke dalam tabel dimensi dua : Cabang 1 Bulan 1 : 21 Cabang 1 Bulan 2 : 15 Cabang 1 Bulan 3 : 8 Cabang 2 Bulan 1 : 32 Cabang 2 Bulan 2 : 28 Cabang 2 Bulan 3 : 27 Cabang 3 Bulan 1 : 12 Cabang 3 Bulan 2 : 11 Cabang 3 Bulan 3 : 13 Cabang 4 Bulan 1 : 4 Cabang 4 Bulan 2 : 6 Cabang 4 Bulan 3 : 10 Cabang 1 Bulan 1 : 21 Cabang 1 Bulan 2 : 15 Cabang 1 Bulan 3 : 8 *** Total penjualan per cabang Cabang 2 Bulan 1 : 32 Cabang 2 Bulan 2 : 28 Cabang 2 Bulan 3 : 27 *** Total penjualan per cabang Cabang 3 Bulan 1 : 12 Cabang 3 Bulan 2 : 11 Cabang 3 Bulan 3 : 13 *** Total penjualan per cabang Cabang 4 Bulan 1 : 4 Cabang 4 Bulan 2 : 6 Cabang 4 Bulan 3 : 10 *** Total penjualan per cabang
= 44
= 88
= 36
= 20
`
Algoritma dan Pemrograman 3 – Week 05
