PROGRAM-ID. LEVEL NUMBER.
DATA DIVISION.
ENVIRONMENT DIVISION.
WORKING-STORAGE-SECTION.
01 DATAINPUT.
02 NAMA PIC A(50)
02 GAJI.
03 GAJIPOKOK PIC 9(6).
03 TUNJANGAN PIC 9(6).
02 TOT-GAJI PIC 9(7).
02 TANYA PIC A.
88 LAGI VALUE IS 'Y','y'.
88 TIDAK VALUE IS 'T','t'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1) 'NAMA ANDA :'. ACCEPT NAMA.
DISPLAY (3,1) 'GAJI POKOK :Rp. '. ACCEPT GAJIPOKOK.
DISPLAY (5,1) 'BESARNYA TUNJANGAN:Rp. '. ACCEPT TUNJANGAN.
COMPUTE TOT-GAJI=GAJI-POKOK+TUNJANGAN.
DISPLAY HAPUS-LAYAR.
DISPLAY '==== GAJI ANDA UNTUK BULAN INI ===='.
DISPLAY SPACE.
DISPLAY (3,1) 'NAMA : ', NAMA.
DISPLAY (5,1) 'GAJI POKOK : Rp. ', GAJIPOKOK.
DISPLAY (7,1) 'GAJI TUNJANGAN : Rp. ', TUNJANGAN.
DISPLAY (9,1) 'TOTAL GAJI ANDA : Rp. ', TOT-GAJI.
DISPLAY SPACE.
DISPLAY (12,1) 'INPUT DATA LAGI? (Y/T): '. ACCEPT TANYA.
88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI.
SELESAI.
STOP RUN.
maka akan keluar output :
