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'.
