Advertisement
Guest User

Nigger

a guest
Sep 9th, 2018
228
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 2.41 KB | None | 0 0
  1.        identification division.
  2.        program-id.kaizen.
  3.        environment division.
  4.        data division.
  5.        working-storage section.
  6.  
  7.        01 employee.
  8.            05 EPF-RATE pic 9v9(2).
  9.            05 SOSCO pic 9v9(3).
  10.            05 schema pic x.
  11.            05 name pic x(10).
  12.            05 basic-salary pic 9(10).
  13.            05 yes-no pic x.
  14.  
  15.        01 calculate.
  16.            05 final-epf pic 9v9(2).
  17.            05 final-sosco pic 9v9(3).
  18.            05 nett-salary pic 9(10).
  19.        
  20.  
  21.        procedure division.
  22.        program-begin.
  23.            move "N" to yes-no.
  24.            perform user-info UNTIL yes-no = "Y".
  25.        program-done.
  26.            stop run.
  27.        user-info.
  28.            display"Enter Your Name: " with no advancing.
  29.            accept name.
  30.            display"Enter Your Basic Salary: RM" with no advancing.
  31.            accept basic-salary.
  32.  
  33.            perform schema-menu.
  34.  
  35.        schema-menu.
  36.            display " ".
  37.            display"EMPLOYEE SCHEMA:".
  38.            display"A. Professor/ Associate Professor".
  39.            display"B. Senior Lecturer".
  40.            display"C. Lecturer".
  41.            display"D. Assistant Lecturer".
  42.            display" " .
  43.            display"Choose the schema <A,B,C,D>: ".
  44.            accept schema.
  45.            
  46.            if schema = "A"
  47.                move 0.11 to EPF-RATE.
  48.                move 0.050 to SOSCO.
  49.            if schema = "B"
  50.                move 0.10 to EPF-RATE.
  51.                move 0.045 to SOSCO.
  52.            if schema = "C"
  53.                move 0.09 to EPF-RATE.
  54.                move 0.040 to SOSCO.
  55.            if schema = "D"
  56.                move 0.08 to EPF-RATE.
  57.                move 0.040 to SOSCO.
  58.  
  59.            perform calculation.
  60.  
  61.        calculation.
  62.  
  63.            compute final-epf = basic-salary * EPF-RATE.
  64.            compute final-sosco = basic-salary * SOSCO.
  65.            compute nett-salary = basic-salary - final-epf - final-sosco.
  66.  
  67.            perform display-me.
  68.  
  69.        display-me.
  70.            
  71.            display"NAME: " name.
  72.            display"BASIC SALARY: RM" basic-salary.
  73.            display"EPF: RM" final-epf.
  74.            display"SOSCO: RM" final-sosco.
  75.            display"NETT SALARY: RM" nett-salary.
  76.  
  77.            perform continue-exit.
  78.  
  79.        continue-exit.
  80.            display" ".
  81.            display" ".
  82.            display"Enter More Record? <Y/N> : " with no advancing.
  83.            accept yes-no.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement