IDENTIFICATION DIVISION.
PROGRAM-ID. FILE URUT.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PGW ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS IS STATUS-SALAH.
DATA DIVISION.
FILE SECTION.
FD PGW
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS 'DATAPGW.txt'
DATA RECORD IS REC-PGW.
01 REC-PGW.
02 NAMA PIC X(20).
02 KODE-PGW PIC X(5).
02 POSISI PIC X(15).
02 GAJI PIC 9(8).
02 TUNJANGAN PIC 9(6).
WORKING-STORAGE SECTION.
77 STATUS-SALAH PIC XX.
01 ISI-LAGI PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 JUDUL.
02 LINE 1 COLUMN 5 VALUE 'DAFTAR PEGAWAI'.
02 FOREGROUND-COLOR 12 HIGHLIGHT BLINK.
01 ISI-DATA.
02 LINE 3 COLUMN 5 VALUE 'KD PEGAWAI :' HIGHLIGHT.
02 COLUMN PLUS 1 PIC X(5) TO KODE-PGW REQUIRED.
02 LINE 4 COLUMN 5 VALUE 'N A M A :' HIGHLIGHT.
02 COLUMN PLUS 1 PIC X(20) TO NAMA REQUIRED.
02 LINE 5 COLUMN 5 VALUE 'POSISI :' HIGHLIGHT.
02 COLUMN PLUS 1 PIC X(9) TO POSISI REQUIRED.
02 LINE 6 COLUMN 5 VALUE 'G A J I :' HIGHLIGHT.
02 COLUMN PLUS 1 PIC 9(8) TO GAJI REQUIRED.
02 LINE 7 COLUMN 5 VALUE 'TUNJANGAN :Rp. ' HIGHLIGHT.
02 COLUMN PLUS 1 PIC 9(6) TO TUNJANGAN REQUIRED.
PROCEDURE DIVISION.
BUKA-FILE.
OPEN EXTEND PGW.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY JUDUL.
DISPLAY ISI-DATA.
ACCEPT ISI-DATA.
WRITE REC-PGW.
DISPLAY (10, 5) 'APAKAH ADA DATA LAGI [Y/T].?'.
ACCEPT ( , ) ISI-LAGI.
IF LAGI GO TO MULAI.
SELESAI.
CLOSE PGW.
STOP RUN.
Tidak ada komentar:
Posting Komentar