Listing Program COBOL

IDENTIFICATION DIVISION.

PROGRAM-ID. PASSWORD.

AUTHOR. SITI SARAH AMALIANI.

SECURITY. PROGRAM MEMASUKKAN DATA ORGANISASI FILE RELATIF.

MODE AKSES DINAMIK.

ENVIRONTMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE CONTROL.

SELECT FILE-PGW ASSIGN TO DISK.

ORGANIZATION IS RELATIVE.

ACCES MODE IS DYNAMIC, RELATIVE KEY IS LOKASI-REC.

FILE STATUS IS STATUS-SALAH.

DATA DIVISION.

FILE SECTION.

FD FILE-PGW.

LABEL RECORD IS STANDARD.

VALUE OF FILE-ID IS 'DATA.DAT'

DATA RECORD IS RECORD-PEGAWAI.

01 RECORD-PEGAWAI.

02 NOMOR-PEGAWAI PIC X(5).

02 NAMA-PEGAWAI PIC A(25).

02 ALAMAT-PEGAWAI PIC X(20).

02 KOTA-PEGAWAI PIC A(15).

02 TELEPON-PEGAWAI PIC X(8).

02 TANGGAL-LAHIR.

03 TANGGAL PIC 99.

03 BULAN PIC 99.

03 TAHUN PIC PIC 9999.

02 JENIS-KELAMIN PIC A.

02 PENGHASILAN-PEGAWAI X(10).

WORKING-STORAGE SECTION.

77 LOKASI-REC PIC 99V99.

77 STATUS-SALAH PIC XX.

01 SUDAH-BENAR PIC X.

88 BENAR VALUE 'Y','y'.

88 SALAH VALUE 'T','t'.

01 MASUKKAN-LAGI-TIDAK PIC X.

88 LAGI VALUE 'Y','y'.

88 TIDAK VALUE 'T','t'.

SCREEN SECTION.

01 HAPUS-LAYAR.

02 BLANK SCREEN.

01 LAYAR-DATA.

02 LINE 6 COLUMN 5 'NOPEG : '.

02 COLUMN PLUS 1 PIC 9(5) TO NOMOR-PEGAWAI REQUIRED.

02 LINE 7 COLUMN 5 'NAMA : '.

02 COLUMN PLUS 1 PIC A(25) TO NAMA-PEGAWAI.

02 LINE 8 COLUMN 5 'ALAMAT : '.

02 COLUMN PLUS 1 PIC X(20) TO ALAMAT-PEGAWAI.

02 LINE 9 COLUMN 5 'KOTA : '.

02 COLUMN PLUS 1 PIC A(15) TO KOTA-PEGAWAI.

02 LINE 10 COLUMN 5 'TELEPON : '.

02 COLUMN PLUS 1 PIC X(8) TO TELEPON-PEGAWAI.

02 LINE 11 COLUMN 5 'TANGGAL LAHIR : '.

02 COLUMN PLUS 1 PIC 99 TO TANGGAL AUTO.

02 COLUMN PLUS 1 '/'.

02 COLUMN PLUS 1 PIC 99 TO BULAN AUTO.

02 COLUMN PLUS 1 '/'.

02 COLUMN PLUS 1 PIC 9999 TO TAHUN AUTO.

02 LINE 12 COLUMN 5 'JENIS KELAMIN : '.

02 COLUMN PLUS 1 PIC A TO JENIS-KELAMIN.

02 LINE 13 COLUMN 5 'PENGHASILAN : '.

02 COLUMN PLUS 1 PIC X(10) TO PENGHASILAN-PEGAWAI.

PROCEDURE DIVISION.

RUTIN-UTAMA SECTION.

BUKA-FILE.

OPEN OUTPUT FILE-PGW.

MULAI.

MOVE SPACE TO SUDAH-BENAR

PERFORM MASUKKAN-DATA UNTIL BENAR

PERFORM REKAM-DATA

PERFORM ADA-LAGI-TIDAK

SELEKSI-MASUKKAN-LAGI-TIDAK.

IF LAGI

GO TO MULAI.

SELESAI.

CLOSE FILE-PGW.

STOP RUN.

RUTIN-BAGIAN SECTION.

MASUKKAN-DATA.

DISPLAY HAPUS-LAYAR.

DISPLAY LAYAR-DATA.

ACCEPT LAYAR-DATA.

DISPLAY (18,5) 'SUDAH BENAR (Y/T)? '.

ACCEPT ( , ) SUDAH-BENAR.

REKAM-DATA.

MOVE ' ' TO STATUS-SALAH.

COMPUTE LOKASI-REC = NOMOR-PEGAWAI.

WRITE RECORD-PEGAWAI

PERFORM SELEKSI-REKAMAN.

ADA-LAGI-TIDAK.

DISPLAY (20,5) 'ADA LAGI DATA LAINNYA (Y/T)? '.

ACCEPT ( , ) MASUKKAN-LAGI-TIDAK.

SELEKSI-REKAMAN.

IF STATUS-SALAH = '22'

DISPLAY (18,5) 'TIDAK TEREKAM, NILAI KUNCI TIDAK UNIK'.

IF STATUS-SALAH = '24'

DISPLAY (18,5) 'TIDAK TEREKAM, DISK PENUH'.