Home  
About LSP  
LSP 4 BCA  
LSP 4 MCA  
LSP 4 MBA  
LSP 4 Biotechnology  
LSP 4 BSc-Electronics  
LSP 4 BBA  
LSP 4 BCom  
 
Seminar Titles  
Videos  
 
     
 
     
sign in
  
   
 
 
 
   
  COBOL TUTORIAL FOR BCA STUDENTS OF M G UNIVERSITY  
  LAB EXCERCISES AND SOLUTIONS (CYCLE -I)  
   
  Given the number of hours worked and hourly wage rate. Write a COBOL program to calculate the gross pay and net pay for an employee by assuming that the tax deduction to be @ 10% of gross salary if it is less than 2,500/- and @ 20% otherwise.  
   
  
                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. WAGES-CALCULATION.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  SAL-REC.
           02  N-HOUR      PIC 9(5).
           02  H-RATE      PIC 9(5)V99.
           02  GROSS-SAL   PIC 9(5)V99.
           02  TAX         PIC 9(5)V99.
           02  NET-SAL     PIC 9(5)V99.
       01  E-SAL-REC.
           02  E-N-HOUR    PIC ZZZZZZZ9.
           02  E-H-RATE    PIC Z(4)9.99.
           02  E-GROSS-SAL PIC Z(4)9.99.
           02  E-TAX       PIC Z(4)9.99.
           02  E-NET-SAL   PIC Z(4)9.99.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 10) "     Wages Calculation".
           DISPLAY (03 10) "---------------------------------".
           DISPLAY (04 10) "Enter the following :".
           DISPLAY (05 10) "No. of Hours Worked : ".
           ACCEPT (05 32) N-HOUR.
           DISPLAY (06 10) "        Hourly Rate : ".
           ACCEPT (06 32) H-RATE.
           COMPUTE GROSS-SAL = N-HOUR * H-RATE.
           IF GROSS-SAL < 2500
              COMPUTE TAX = GROSS-SAL * 0.10
           ELSE
              COMPUTE TAX = GROSS-SAL * 0.20.
           COMPUTE NET-SAL = GROSS-SAL - TAX.
           MOVE N-HOUR TO E-N-HOUR.
           MOVE H-RATE TO E-H-RATE.
           MOVE GROSS-SAL TO E-GROSS-SAL.
           MOVE TAX TO E-TAX.
           MOVE NET-SAL TO E-NET-SAL.
           DISPLAY (10 10) "        P A Y  S L I P".
           DISPLAY (11 10) "        ---------------".
           DISPLAY (12 10) "No. of Hours Worked : " E-N-HOUR.
           DISPLAY (13 10) "   Hourly Wage-Rate : " E-H-RATE.
           DISPLAY (14 10) "---------------------------------".
           DISPLAY (15 10) "       Gross Salary : " E-GROSS-SAL.
           DISPLAY (16 10) "     Tax Deductions : " E-TAX.
           DISPLAY (17 10) "---------------------------------".
           DISPLAY (18 10) "         NET SALARY : " E-NET-SAL.
           DISPLAY (19 10) "=================================".
           STOP RUN.