Minggu, 23 November 2014

File Index (COBOL)

A.      Apa itu File Indeks?

Pada kesempatan kali ini sebelum membuat program, saya ingin menjelaskan sedikit tentang File Indeks. Berikut penjelasan mengenai File Indeks :

·         Merupakan file yang mempunyai indeks atau tabel yang berisi daftar alamat-alamat (addresses) dari record di disk yang biasa disebut dengan Control Index.
·         Control Index memiliki fungsi sebagai penunjuk/pointer dari posisi record tertentu yang berisi data, sehingga memungkinkan untuk menuju ke suatu lokasi record tertentu dengan cepat.
·         Bentuk pada DATA DIVISION dan PROCEDURE DIVISION sama seperti Organisasi file sequential.

B.      Program Input Data

Setelah mengetahui apa itu File Indeks. Kita akan membuat program pada bahasa pemrograman COBOL yaitu program untuk menginput data. Berikut listing programnya :

       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 'NAMA : '.
           02 COLUMN PLUS 2 PIC X(28) TO NAMA.
           02 LINE 12 COLUMN 20 VALUE 'NPM   : '.
           02 COLUMN PLUS 2 PIC X(8) TO NPM.
           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.

C.      Output

Compile terlebih dahulu program tersebut (gambar 1.1). Jika tidak terjadi kesalahan atau tidak ada error, kemudian run program (gambar 1.2 & 1.3) :

Gambar 1.1

Gambar 1.2

Gambar 1.3

Pada gambar 1.3 terdapat statement, MASIH ADA DATA [Y/T], jika anda memasukkan huruf Y kemudian menekan enter, maka akan muncul kembali tampilan seperti pada gambar 1.2. Tapi jika anda memasukkan huruf T, maka program akan langsung berhenti.



0 komentar:

Posting Komentar

Copyright © Muhammad Ahsan Fuady | Powered by Blogger