Beranda > Computer, Tulisan > File Sequential (1) pada Cobol

File Sequential (1) pada Cobol

Dalam tugas kali ini saya disuruh untuk membuat program File Sequential:


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

Kategori:Computer, Tulisan
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: