gaji

Logika:

Pada awal program di eksekusi atau dijalankan kita diminta untuk menginput nama,gaji pokok,dan gaji tunjangan.

Yanbg masing – masing mempunyai perbedaan karakter dalam penginputan contohnya dalam penginputan pada nama dibatasi sebanyak 50 karakter sedangkan pada gaji pokok dan tunjangan dibatasi sebanyak 7 karakter sehingga ketika dijumlahkan antara gaji pokok dengan gaji tunjangan akan menghasilkan total gaji yang berisikan maksimal 8 karakter

Lalu kita akan di beri pertanyaan tentang apa kita ingin memasukan data baru atau mengakhirinya,jika kita memasukan ‘y’ kita akan kembali lagi ke prosedure division MULAI jadi kita akan menginput data yang baru dan jika kita memasukan ‘t’ kita akan langsung menyudahinya dan mengakhiri program.

CODING :

IDENTIFICATION DIVISION.

PROGRAM-ID. LEVEL NUMBER.

DATA DIVISION.

ENVIRONMENT DIVISION.

WORKING-STORAGE-SECTION.

01 DATAINPUT.

02 NAMA PIC A(50)

02 GAJI.

03 GAJIPOKOK PIC 9(7).

03 TUNJANGAN PIC 9(7).

02 TOTGAJI PIC 9(8).

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 (2,1) 'GAJI POKOK : Rp. '. ACCEPT GAJIPOKOK.

DISPLAY (3,1) 'BESARNYA TUNJANGAN : Rp. '. ACCEPT TUNJANGAN.

COMPUTE TOTGAJI=GAJIPOKOK+TUNJANGAN.

DISPLAY HAPUS-LAYAR.

DISPLAY '==== GAJI ANDA UNTUK BULAN INI ===='.

DISPLAY SPACE.

DISPLAY 'NAMA : ', NAMA.

DISPLAY 'GAJI POKOK : Rp. ', GAJIPOKOK.

DISPLAY 'GAJI TUNJANGAN : Rp. ', TUNJANGAN.

DISPLAY 'TOTAL GAJI ANDA : Rp. ', TOTGAJI.

DISPLAY SPACE.

DISPLAY 'INGIN MEMASUKKAN DATA LAGI? (Y/T)'. ACCEPT TANYA.

88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI.

SELESAI.

STOP RUN.