Contoh Program File Sequential Pada COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. CONTOH-FILE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
(ditulis pada kolom delapan)
FILE-CONTROL.
SELECT PEGAWAI ASSIGN TO DISK
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
FILE-STATUS IS STATUS-SALAH.
(ditulis pada kolom 12)
DATA DIVISION.
FILE SECTION.
FD PEGAWAI
(ditulis pada kolom delapan)
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS ‘PEG.DAT’
(ditulis pada kolom 12)
DATA RECORD IS REC-PEG.
01 REC-PEG.
(ditulis pada kolom delapan)
02 NAMA PIC X(10).
02 ALAMAT PIC X(20).
02 UMUR PIC 99.
(ditulis pada kolom 12)
WORKING-STORAGE SECTION.
77 STATUS-SALAH PIC XX.
01 SUDAH-BENAR PIC X.
(ditulis pada kolom delapan)
88 BENAR VALUE ‘y’, ‘Y’.
88 BELUM VALUE ‘T’,’t’.
(ditulis pada kolom 12)
01 MASUKKAN-DATA-LAGI PIC X.
(ditulis pada kolom delapan)
88 LAGI VALUE ‘Y’, ‘y’.
88 TIDAK VALUE ‘T’, ‘t’.
(ditulis pada kolom 12)
SCREEN SECTION.
01 HAPUS-LAYAR.
(ditulis pada kolom delapan)
02 BLANK SCREEN.
(ditulis pada kolom 12)
01 LAYAR-DATA.
(ditulis pada kolom delapan)
02 LINE 4 COLUMN 5 ‘NAMA :’
02 COLUMN PLUS 1 PIC X(10) TO NAMA.
02 LINE 5 COLUMN 5 ‘ALAMAT :’
02 COLUMN PLUS 1 PIC X(25) TO ALAMAT.
02 LINE 6 COLUMN 5 ‘UMUR :’
02 COLUMN PLUS 1 PIC 99 TO UMUR.
(ditulis pada kolom 12)
PROCEDURE DIVISION.
BUKA-FILE.
(ditulis pada kolom delapan)
OPEN OUTPUT PEGAWAI.
(ditulis pada kolom 12)
MULAI.
(ditulis pada kolom delapan)
MOVE SPACE TO SUDAH-BENAR
PERFORM INPUT-DATA UNTIL BENAR
PERFORM REKAM-DATA
PERFORM ADA-LAGI.
(ditulis pada kolom 12)
TANYA-ADA-LAGI.
(ditulis pada kolom delapan)
IF LAGI GO TO MULAI.
(ditulis pada kolom 12)
SELESAI.
(ditulis pada kolom delapan)
CLOSE PEGAWAI.
STOP RUN.
(ditulis pada kolom 12)
INPUT-DATA.
(ditulis pada kolom delapan)
DISPLAY HAPUS-LAYAR
DISPLAY LAYAR-DATA
ACCEPT LAYAR-DATA.
DISPLAY (10, 5) ‘SUDAH BENAR (Y/T) ?’
ACCEPT ( , ) SUDAH-BENAR.
(ditulis pada kolom 12)
REKAM-DATA.
(ditulis pada kolom delapan)
MOVE SPACE TO STATUS-SALAH
WRITE REC-PEG.
PERFORM TANYA-REKAM.
(ditulis pada kolom 12)
ADA-LAGI.
(ditulis pada kolom delapan)
DISPLAY (12, 5) ‘ADA LAGI DATA (Y/T) ? ‘
ACCEPT ( , ) MASUKKAN-DATA-LAGI.
(ditulis pada kolom 12)
TANYA-REKAM.
(ditulis pada kolom delapan)
IF STATUS-SALAH =’34’
DISPLAY (12, 5) ‘DISK FULL’.
————————————********———————————–
NILAI STATUS ORGANISASI FILE URUT
NILAI KETERANGAN
00 TDK TERJADI KESALAHAN
10 EOF
30 FILE NOT FOUND
34 DISK SPACE FULL
91 STRUKTUR FILE RUSAK
Posting Komentar