tugas

KATA PENGANTAR

Pada kesempatan kali ini kelompok kami merasa bahagia karena dapat menyelesaikan makalah mata kuliah teknik pemrograman terstruktur dengan judul PEMBUATAN DAN PEMAKAIAN TABEL PADA BAHASA PEMROGRAMAN COBOL
Puji dan syukur kami panjatkan kepada ALLAH SWT karena dengan rahmat dan karunianya lah kita bisa hidup di dunia ini dan tidak lupa kepada ibu Lilis ratnasari karena telah memberikan kesempatan kepada kelompok kami untuk menjelaskan pembuatan dan pemakaian table pada program cobol dan juga atas waktunya yang begitu berharga untuk membimbing kami dalam memahami teknik pemrograman terstruktur yang menjadi mata kuliah kami pada semester 3 ini, tak lupa kami ucapkan terima kasih banyak kepada rekan rekan sejawat atas supportnya dan juga atas persahabatan yang tidak ternilai harganya, karena tanpa mereka kami tidak akan bisa menyelesaikan makalah dan juga presentasi tentang pembuatan dan pemakaian table pada bahasa pemrograman cobol.
Mohon maaf jika terjadi banyak kesalahan di makalah ini sesunguhnya kami juga manusia yang tidak sempurna pasti mempunyai kesalahan, karena sempurnaan itu hanya milik ALLAH.SWT dan kebatilan milik kita manusia, semoga ALLAH SWT member keberkahan bagi kita umat nabi Muhammad SAW dalam menuntut ilmu, karena menuntut ilmu hukumnya wajib, ada pepatah mengatakan “ tuntutlah ilmu sampai ke negeri cina” yang menyatakan walupun jauh menuntut ilmu itu wajib. Dan sampai akhir hayat kita harus menuntut ilmu. Terima kasih atas perhatiannya.












DAFTAR ISI


Kata Pengantar v

Daftar Isi vii

Bab I. Pendahuluan 1
1.1 Landasan Materi 1


Bab II. Pembahasan
2.1. Definisi Tabel 2
2.1.1. Tabel Berdimensi Satu 2
2.1.2. Tabel Berdimensi dua 2
2.1.3. Tabel Berdimensi tiga 3
2.2. Penggunaan Tabel Dengan Penggunaan Index 4
2.2.2. Pemakaian dan Penggunaan Tabel Dimensi Satu, Tabel Multi Dimensi 4


Bab III. Penutup 12














BAB I. PENDAHULUAN



I.I LANDASAN MATERI
COBOL atau Common Buisness Oriented Language adalah suatu bahasa komputer tingkat tinggi yang berorientasi langsung pada permasalahan bisnis.
COBOL hampir dapat digunakan pada semua komputer. Diciptakan pada tahun 1959. Pengembangan bahasa COBOL selanjutnya dilakukan oleh suatu grup yang disebut CODASYL, singkatan dari Conference on Data System Language.
Bahasa COBOL pertama diperkenalkan secara formal pada bulan Januari 1960, dan disebut COBOL-60. Karena orientasinya pada suatu masalah, bahasa ini disebut juga dengan istilah Problem Oriented Language.
COBOL dibuat untuk operasi yang mencakup langkah dasar pengolahan data, yaitu membaca data, memproses data, dan kemudian menghasilkan output berupa informasi.
COBOL merupakan bahasa terstruktur, mudah dibaca, dan mudah dipelajari. COBOL terdiri dari empat divisi yaitu IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, dan PROCEDURE DIVISION.
Ada dua bagian utama dalam bahasa COBOL, DATA DIVISION dan PROCEDURE DIVISION. DATA DIVISION memuat dan menggambarkan bentuk dan jenis dari data input dan outputnya. PROCEDURE DIVISION menggambarkan prosedur yang digunakan untuk menyelesaikan permasalahan dengan bentuk dan jenis data yang ada pada DATA DIVISION. Dari apa yang dapat dikerjakan COBOL, konsep COBOL orientasinya pada permasalahan bisnis sebenarnya dapat untuk semua permasalahan yang berhubungan dengan pengolahan data, misalnya pengolahan data mahasiswa.

BAB II. PEMBAHASAN



2.1 DEFINISI TABEL

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.1.1 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.




2.1.2 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.


2.1.3 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.





































2.2 PEMAKAIAN TABEL DENGAN MENGGUNAKAN INDEX

Bila subscript digunakan untuk menunjukan suatu elemen dalam tabel,
maka compiler COBOL harus menghasilkan suatu instruksi bahasa mesin untuk
merubah nilai dari subscript ke alamat memori yang sebenarnya dari elemen tabel
yang dikehendaki.
Suatu index dapat digunakan menggantikan subscript untuk membuat
perhitungan alamat memori sebenarnya dari elemen tabel yang lebih efisien.
Index pada tabel tidak bisa dimanipulasi dengan cara yang sama dengan
menggunakan subscript. Statement khusus yang digunakan pada index ini adalah
SET dan SEARCH.


2.2.2 PEMAKAIAN DAN PENGGUNAAN TABEL DIMENSI SATU, TABEL MULTI DIMENSI
Obyektif :
13. Mengetahui cara pembuatan Tabel satu dimensi
14. Mengetahui cara pembuatan Tabel dua dimensi
15. Dapat membuat program tabel sederhana
1. Pendefinisian Tabel (Tabel 1 dimensi)
Tabel adalah suatu kumpulan data dg tipe sama yg diakses dg menggunakan nama yg 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-siswa
.
02 nilai-siswa PIC 999 OCCURS 5 TIMES.

Menyatakan array nilai-siswa yang menampung 10 data numerik.
Contoh tabel di atas identik dengan :

01 data-nilai-siswa.

02 nilai-siswa-1 PIC 999
.
02 nilai-siswa-2 PIC 999.

02 nilai-siswa-3 PIC 999
.
02 nilai-siswa-4 PIC 999.

02 nilai-siswa-5 PIC 999.

2. Pengisian & Pengaksesan isi Tabe

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 5. 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 ).
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.
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 JUMLAH PENJUMLAHAN
Windy Arwindya 500.000
Alif Susanto 2.100.500
Miko Ariko 1.750.500
Lely Nurlela 5.700.000
Chika 760.000
Ilham 10.000.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 adalah 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 ).
* Contoh Program :
IDENTIFICATION DIVISION.
PROGRAM-ID.
tabel.
*Contoh penggunaan tabel 1 dimensi yg berisi nama salesman
*
dan hasil penjualan
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.

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
PIC 99.
Definisi tabel di atas :
02
cabang
OCCURS 4 TIMES.⇒ Menyatakan bahwa
ada 4 buah cabang
03
bulan OCCURS 3 TIMES.
⇒Menyatakan bahwa setiap
cabang
ada data dalam 3 bulan
jumlah-unit-terjual PIC 99.⇒ 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 )
Contoh Program
IDENTIFICATION DIVISION.
PROGRAM-ID.
tabel2.
*Contoh pemakaian tabel dua dimensi
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,
subscript-bulan).
DISPLAY SPACE.
tampilkan-tabel.
DISPLAY hapus-layar.
DISPLAY ‘ Menampilkan isi tabel berdimensi dua : ‘.
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 = ‘, total-
penjualan-cabang.
MOVE 0 TO total-penjualan-cabang











BAB III. PENUTUP


KATA PENUTUP
Demikian makalah tentang PENGGUNAAN DAN PEMAKAIAN TABEL PADA BAHASA PEMROGRAMAN COBOL kami buat bila ada kesalahan penulisan kata ataupun nama mohon maaf yang sebesar-besarnya dan semoga makalah ini bermanfaat bagi kita semua .













Daftar Pustaka

Ray, Welland, 1983, Methodical Programming in cobol, Pitman Publishing, London: 1020 Plain street, Marshfield, Massachusetts.
Andreas S. Philippakis, 1982, Advanced Cobol, McGraw-hill: United States of Ammerica
http://www.scribd.com/doc/22014064/Cobol-PTA09-10#
http://winartobm90.files.wordpress.com/2009/11/bab-2-struktur-division-pemakaian-tabel-pada-cobol.pdf