Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- identification division.
- program-id.kaizen.
- environment division.
- data division.
- working-storage section.
- 01 employee.
- 05 EPF-RATE pic 9v9(2).
- 05 SOSCO pic 9v9(3).
- 05 schema pic x.
- 05 name pic x(10).
- 05 basic-salary pic 9(10).
- 05 yes-no pic x.
- 01 calculate.
- 05 final-epf pic 9v9(2).
- 05 final-sosco pic 9v9(3).
- 05 nett-salary pic 9(10).
- procedure division.
- program-begin.
- move "N" to yes-no.
- perform user-info UNTIL yes-no = "Y".
- program-done.
- stop run.
- user-info.
- display"Enter Your Name: " with no advancing.
- accept name.
- display"Enter Your Basic Salary: RM" with no advancing.
- accept basic-salary.
- perform schema-menu.
- schema-menu.
- display " ".
- display"EMPLOYEE SCHEMA:".
- display"A. Professor/ Associate Professor".
- display"B. Senior Lecturer".
- display"C. Lecturer".
- display"D. Assistant Lecturer".
- display" " .
- display"Choose the schema <A,B,C,D>: ".
- accept schema.
- if schema = "A"
- move 0.11 to EPF-RATE.
- move 0.050 to SOSCO.
- if schema = "B"
- move 0.10 to EPF-RATE.
- move 0.045 to SOSCO.
- if schema = "C"
- move 0.09 to EPF-RATE.
- move 0.040 to SOSCO.
- if schema = "D"
- move 0.08 to EPF-RATE.
- move 0.040 to SOSCO.
- perform calculation.
- calculation.
- compute final-epf = basic-salary * EPF-RATE.
- compute final-sosco = basic-salary * SOSCO.
- compute nett-salary = basic-salary - final-epf - final-sosco.
- perform display-me.
- display-me.
- display"NAME: " name.
- display"BASIC SALARY: RM" basic-salary.
- display"EPF: RM" final-epf.
- display"SOSCO: RM" final-sosco.
- display"NETT SALARY: RM" nett-salary.
- perform continue-exit.
- continue-exit.
- display" ".
- display" ".
- display"Enter More Record? <Y/N> : " with no advancing.
- accept yes-no.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement