Calculate employee salaries with bonuses/deductions.
Arithmetic operations, conditional logic.
IDENTIFICATION DIVISION.
PROGRAM-ID. PAYROLL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMP-NAME PIC A(20).
01 BASIC-SALARY PIC 9(5)V99.
01 BONUS PIC 9(5)V99.
01 DEDUCTION PIC 9(5)V99.
01 NET-SALARY PIC 9(6)V99.
PROCEDURE DIVISION.
DISPLAY "ENTER EMPLOYEE NAME: " ACCEPT EMP-NAME
DISPLAY "ENTER BASIC SALARY: " ACCEPT BASIC-SALARY
DISPLAY "ENTER BONUS: " ACCEPT BONUS
DISPLAY "ENTER DEDUCTION: " ACCEPT DEDUCTION
COMPUTE NET-SALARY = BASIC-SALARY + BONUS - DEDUCTION
DISPLAY "EMPLOYEE: " EMP-NAME
DISPLAY "NET SALARY: " NET-SALARY
STOP RUN.
Explanation:
COMPUTE
is used to calculate salary.- Accepts employee details, bonus & deductions.
- Displays final salary.
Leave a Reply