Teori Pemrograman Terstruktur

FILE INDEX PADA COBOL


Nama : Rizawati
Npm : 11108711
Kelas : 2ka04


Logika Program:
file index adalah file yang mempunyai index atau tabel yang berisi kan alamat-alamat dari record pada disk yang disebut dengan control index. control index berfungsi sebagai penunjuk atau pointer pada posisi record tertentu yang berisikan data, sehingga dapat menuju suatu record tertentu dengan cepat.dalam file index bentuk pada data division dan procedure division sama seperti dalam file sequential.file index memiliki nilai status, diantaranya:


00 --> tidak terjadi kesalahan.

01--> EOF

21 --> Nilai kunci tidak urut.

22 --> nilai kunci tidak unik.

23 --> no record found.

24 --> disk space full.

30 -->file not found.

91 --> struktur file rusak.

Program ini menggunakan organisasi file index untuk memudahkan dalam mencari nomor telepon seseorang berdasarkan nama, dengan adanya control index dapat menuju suatu record secara cepat, pada working storage, data-data kita definisikan pada data division, pada working storage kita mebut pilihan YA/TIDAK yang berfungsi untuk menanyakan apakah data yang kita sudah selesai menginput data atau belum.


Coding Program :
IDENTIFICATION DIVISION.
PROGRAM-ID. PHONEBOOK.
AUTHOR. RIZA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PHBK ASSIGN TO DISK.
ORGANIZATION IS INDEXED.
ACCESS MODE IS STANDARD.
RECORD KEY IS NAMA.
DATA DIVISION.
FILE SECTION.
FD PHBK.
LABEL RECORD IS STANDARD.
VALUE OF FILE-ID IS 'C:/IDECobol/DATA.DAT'.
DATA RECORD IS RECPHBK.
01 RECPHBK.
02 N0 PIC 9(2).
02 NAMA PIC A(10).
02 NMRTLP PIC 9(10).
WORKING-STORAGE SECTION.
77 LIN PIC 9(3).
01 RECPHBK-OUT.
02 N0-OUT PIC 9(2).
02 NAMA-OUT PIC A(10).
02 NMRTLP-OUT PIC 9(10).
01 KONDISI PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
01 JUDUL.
02 LINE 1 COLUMN 1 '__________________________________'.
02 LINE 2 COLUMN 1 'NO NAMA TELEPON'.
02 LINE 3 COLUMN 1 '__________________________________'.
01 ISI-DATA.
02 LINE 8 COLUMN 1 'N0 :'.
02 COLUMN PLUS 1 PIC 9(2) TO N0 REQUIRED.
02 LINE 9 COLUMN 1 'NAMA :'.
02 COLUMN PLUS 1 PIC A(10) TO NAMA REQUIRED.
02 LINE 10 COLUMN 1 'TELEPON :'.
02 COLUMN PLUS 1 PIC 9(10) TO NMRTLP REQUIRED.
PROCEDURE DIVISION.
BUKA-FILE.
OPEN INPUT PHBK.
PROSEDUR-UTAMA.
DISPLAY JUDUL.
DISPLAY ISI-DATA.
ACCEPT ISI-DATA.
PERFORM TAMPILKAN-DATA.
INPUT-DATA.
DISPLAY (13,1)'INPUT DATA LAGI [Y/T]?'.
ACCEPT KONDISI.
IF LAGI GO TO PROSEDUR-UTAMA.
GO TO SELESAI.
TAMPILKAN-DATA.
READ PHBK NEXT RECORD AT END GO TO STOP ' '.
MOVE RECPHBK TO RECPHBK-OUT.
DISPLAY (5,1) N0-OUT.
DISPLAY (5,14) NAMA-OUT.
DISPLAY (5,25) NMRTLP-OUT.
ADD 1 TO LIN.
GO TO INPUT-DATA.
SELESAI.
CLOSE PHBK.
STOP RUN.