KATA
PENGANTAR
Puji syukur kehadirat Tuhan
Yang Maha Esa. Atas rahmat dan anugrahnya, maka makalah ini dapat disusun oleh
kelompok kami sebagai mana mestinya.
File index merupakan suatu jenis file
yang banyak dipakai dalam program aplikasi, terutama pada bahasa pemrograman
cobol.
Isi makalah ini tersusun dari berbagai
sumber buku dan referensi dari
beberapa website. Dalam pembuatan makalah ini kelompok kami sangat
memahami banyak nya kesalahan didalam makalah ini mohon dimaklumi atas
kesalahan yang terjadi. Jelas bahwa makalah ini sangat jauh dari kata
sempurna karena itu kelompok kami mengharapkan kritik dan saran yang membangun. Mudah-mudahan makalah ini
bisa bermanfaat bagi kita semua.
Depok, November 2012
Penyusun
BAB I
PENDAHULUAN
Latar Belakang
COBOL
(Common Business Oriented Language) adalah suatu bahasa komputer awam ( High
Level Language) yang berorientasi langsung pada permasalahan bisnis. COBOL
hampir dapat digunakan pada semua komputer bila terdapat compiler COBOL-nya.
Diciptakan pada tahun 1959 dan dikembangkan oleh suatu grup bernama CODASYL
(Conference on Data System Language).
Didalam
bahasa pemograman Cobol terdapat 3 organisaisi file, yaitu file sequential, file
indeks, dan file relatif. Dari ketiga file tersebut ada satu file yang sering
dipakai dalam program aplikasi yaitu file indeks, Karena file indeks mempunyai
kelebihan, antara lain :
1. Pembacaan data dapat dilakukan dengan cepat
2. Data dapat diurutkan secara ascending berdasarkan sebuah
field atau sejumblah field
3. Isi field dapat dimodifikasi atau di hapus dengan cepet
tanpa harus mengakses record-record lain.
Rumusan Masalah
1. Apakah operasi file indeks?
2. Bagaimana pendeklarasian pada environment division?
3. Bagaimana nilai status kesalahan statement pada procedure division?
Tujuan
1. Menjelaskan operasi file indeks.
2. Menjelaskan pendeklarasian pada environment division.
3. Menjelaskan nilai status kesalahan statement pada procedure division.
BAB
II
PEMBAHASAN
File
indeks
Organisasi file secara
indeks adalah jika file tersebut mempunyai indeks atau table yang berisi daftar
alamat-alamat dari record di disc, yang disebut dengan control index. Control
index berfungsi sebagai penunjuk/pointer dari posisi record tertentu yang
berisi data, sehingga memungkinkan untuk menuju kesuatu lokasi record tertentu
dengan cepat.
File indeks ini disimpan
terpisah dari file datanya. Pada cobol organisasi file indeks akan menciptakan
2 file, yaitu file data (yang berisikan data tersimpan) dan file kunci(yang
berisikan control indeks). Agar kedua file tersebut saling berhubungan, maka
harus dihubungkan dengan suatufield kunci yang ada pada file data. Field kunci
ini ditentukan sendiri oleh pemrogram dan harus unik (setiap data dipastikan
mempuyai nilai yang berbeda). Hal ini dideklarasikan pada record key clause
didalam file-control section.
File indeks merupakan suatu jenis file yang
banyak dipakai dalam program aplikasi.
Dengan menggunakan file index memiliki banyak
kelebihan, antara lain :
1.
Pembacaan data dapat dilakukan dengan cepat.
2.
Data dapat diurutkan secara ascending berdasarkan sebuah field atau
sejumlah field.
3.
Isi file dapat dimodifikasi atau dihapus dengan cepat tanpa harus
mengakses record-record lain.
Pengaksesan
pada file index dapat dilakukan dengan cepat disebabkan adanya kunci (key). Pada MS-Cobol, key dari record
disimpan dalam file yang terpisah dengan file data record. File key mempunyai
extention berupa .KEY.
Kunci utama dari record pada file index
bersifat unik yang artinya setiap kunci record memiliki nilai yang berlainan.
Definisi
Environment Division Pada File Indeks
Definisi awal dari
semua jenis file terletak pada ENVIRONMENT DIVISION dalam paragraf FILE CONTROL
sama seperti file sequential.
FILE-CONTROL
SELECT nama-file-1
ASSIGN TO DISK
ORGANIZATION IS
INDEXED
ACCESS MODE IS {
SEQUENTIAL / RANDOM / DYNAMIC }
RECORD KEY IS nama-data-1
[FILE STATUS IS nama-data-3]
File index ditentukan
oleh statement entri : ORGANIZATION IS INDEXED.
Untuk
akses mode yang digunakan adalah :
1. SEQUENTIAL, menyatakan bahwa
pengaksesan secara berurut.
2. RANDOM, menyatakan pengaksesan record
hanya dapat dilakukan
secara random, yaitu dengan cara mengisikan nilai kunci record.
3. DYNAMIC, memungkinkan pengaksesan
secara random dan
sequential.
Klausa RECORD KEY
digunakan untuk menyatakan nama data yang menjadi kunci record.
Klausa FILE STATUS
digunakan untuk menyatakan nama data guna menampung status dari operasi pada
file index. Misalnya untuk mengetahui ada tidaknya file pada disk, melihat
keberhasilan penulisan ke disk dan sebagainya.
Definisi
Data Division Pada File Sequential
Data Division
pada file urut harus mengandung file description entry (fd) sebagai berikut :
FD
nama-file-1
LABEL { RECORD {ARE/IS} } {STANDARD}
VALUE
OF FILE-ID IS { nama-data-1 }
Statement
Untuk Operasi File Indeks
Statement untuk operasi File Indeks adalah :
1. Pernyataan OPEN
1. OPEN INPUT digunakan untuk membuka
file yang isinya
hendak dibaca.
2. OPEN OUTPUT digunakan untuk
menciptakan file baru.
3. OPEN I-O memungkinkan data record di
dalam file diperbaharui.
INPUT nama-file-1…….
OPEN OUTPUT nama-file-2……
I-O nama-file-3……
2. Pernyataan CLOSE
Pernyataan ini digunakan untuk menutup file
atau mengakhiri pemrosesan pada
file.
CLOSE { nama-file-1 } …
3. Pernyataan Write
Pernyataan ini berguna untuk merekamkan
data pada record tertentu di file
yang telah dibuka.
WRITE
nama-record-1 [ FROM nama-data-1 ]
4. Pernyataan Read
Pernyataan ini digunakan untuk membaca
record yang ada di file.
Bentuk 1 :
READ
nama-file [ next ] RECORD [ into nama-data ]
[ AT END
statement-imperatip ]
READ
nama-file [ next ] RECORD [ into nama-data-1 ]
[ KEY is nama-data-2
]
[ INVALID KEY
statement-imperatip ]
5. Pernyataan START
Statement start digunakan untuk menempatkan
pembacaan record mulai pada
record yang mengandung nilai field kunci tertentu.
Bentuk umumnya :
is EQUAL to
|
is
=
|
is
GREATHER THAN
KEY is
>
is
NT LESS THAN
is
NOT >
[ INVALID KEY statement-imperatip ]
File Status
Status file biasa dipakai dalam program untuk
mendeteksi keberhasilan
operasi pada file. Misalnya pada operasi OPEN
INPUT keberadaan file yang
dibuka bisa diperiksa melalui nilai pada file
status.
KODE FILE STATUS :
00 :
Operasi berhasil
10 :
Akhir file
30 :
File tidak ada
34 :
Disk penuh
39 :
Deskripsi antara file aktual dan program tidak sama
91 :
Struktur rusak
Contoh
Program Cobol Menggunakan File index
IDENTIFICATION DIVISION.
PROGRAM-ID. FileIndex.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MHS ASSIGN TO DISK
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC
RECORD KEY IS NO-REL
FILE STATUS IS STATUS-SALAH.
DATA DIVISION.
FILE SECTION.
FD
MHS
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS 'DATA.DAT'
DATA RECORD IS RECMHS.
01
RECMHS.
02
NPM PIC 9(8).
02
NAMA PIC X(28).
02
KELAS PIC X(5).
WORKING-STORAGE SECTION.
01 TAMBAH-DATA PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TDK VALUE 'T', 't'.
77 STATUS-SALAH PIC XX.
77 NO-REL PIC 9(8).
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
01 MASUKAN.
02 LINE 10 COLUMN 20 VALUE 'NPM : '.
02 COLUMN PLUS 2 PIC X(8) TO NPM.
02 LINE 12 COLUMN 20 VALUE
'NAMA : '.
02 COLUMN PLUS 2 PIC X(28) TO NAMA.
02 LINE 14 COLUMN 20 VALUE 'KELAS :
'.
02 COLUMN PLUS 2 PIC X(5) TO KELAS.
PROCEDURE DIVISION.
BUKA.
OPEN OUTPUT MHS.
MULAI.
DISPLAY HAPUS.
DISPLAY MASUKAN.
ACCEPT MASUKAN.
COMPUTE NO-REL = NPM - 50498000.
WRITE RECMHS.
DISPLAY (18, 25) ' MASIH ADA DATA
[Y/T] '.
ACCEPT TAMBAH-DATA.
IF LAGI GO TO MULAI.
SELESAI.
CLOSE MHS.
STOP RUN.
BAB
III
PENUTUP
Kesimpulan
Organisasi
file secara indeks adalah jika file tersebut mempunyai indeks atau table yang
berisi daftar alamat-alamat dari record di disc, yang disebut dengan control
index. File indeks merupakan suatu jenis file yang banyak dipakai dalam program
aplikasi. Dengan menggunakan file index memiliki banyak kelebihan, yang
pertama adalah pembacaan data dapat dilakukan
dengan cepat,, laulu yang ke dua data dapat diurutkan secara ascending
berdasarkan sebuah field atau sejumblah field, dan yang terakhir Isi field
dapat dimodifikasi atau di hapus dengan cepet tanpa harus mengakses
record-record lain.
DAFTAR
PUSTAKA
http://rani_push.staff.gunadarma.ac.id/Downloads/folder/0.1
http://journal.mercubuana.ac.id/data/Pertemuan%2012%20Cobol.doc
http://fitri.staff.jak-stik.ac.id/files/download[1].doc
http://keyropisabatian.blogspot.com/2012/01/contoh-program-cobol-menggunakan-file.html
Post a Comment