Technological University of the Philippines -
Manila College of Science
ADVANCED PROGRAM USING
COBOL PROGRAMMING LANGUANGE
Payroll System
Prof: Edward Cruz
Course/ Section: BSCS - 2B
Submitted by:
Cuevas, Maverick Ivan
Domingo, Princess Jade
Payroll System With File Handling
SOURCE CODE:
IDENTIFICATION DIVISION.
PROGRAM-ID.
AdvancedPayrollSystemWithFiles.
DATA DIVISION.
FILE SECTION.
FD Employee-File.
01 Employee-Record.
05 Employee-Name PIC X(20).
05 Hours-Worked PIC 9(3).
05 Hourly-Rate PIC 9(5)V99.
05 Weekly-Salary PIC 9(6)V99.
05 Overtime-Hours PIC 9(3).
05 Regular-Salary PIC 9(6)V99.
05 Overtime-Salary PIC 9(6)V99.
FD Output-File.
01 Output-Record PIC X(80).
WORKING-STORAGE SECTION.
01 WS-EOF PIC X VALUE
'N'.
01 Total-Employees PIC 9(3)
VALUE 0.
01 Total-Payroll PIC 9(7)V99
VALUE 0.
01 More-Employees PIC X
VALUE 'Y'.
PROCEDURE DIVISION.
Begin.
OPEN INPUT Employee-File
OPEN OUTPUT Output-File
PERFORM UNTIL WS-EOF = 'Y'
READ Employee-File
AT END
MOVE 'Y' TO WS-EOF
NOT AT END
ADD 1 TO Total-Employees
PERFORM Compute-Salary
PERFORM Write-Output-
Record
END-PERFORM
DISPLAY "Total Employees: " Total-
Employees
DISPLAY "Total Payroll: " Total-
Payroll
CLOSE Employee-File
CLOSE Output-File
STOP RUN.
Compute-Salary.
IF Hours-Worked > 40
COMPUTE Overtime-Hours =
Hours-Worked - 40
COMPUTE Regular-Salary = 40 *
Hourly-Rate
COMPUTE Overtime-Salary =
Overtime-Hours * (Hourly-Rate * 1.5)
COMPUTE Weekly-Salary =
Regular-Salary + Overtime-Salary
ELSE
COMPUTE Weekly-Salary =
Hours-Worked * Hourly-Rate
END-IF
ADD Weekly-Salary TO Total-
Payroll.
Write-Output-Record.
STRING
"Employee Name: " Employee-
Name DELIMITED BY SIZE
" Regular Salary: " Regular-
Salary DELIMITED BY SIZE
" Overtime Salary: " Overtime-
Salary DELIMITED BY SIZE
" Weekly Salary: " Weekly-Salary
DELIMITED BY SIZE
INTO Output-Record
END-STRING
WRITE Output-Record.
OUTPUT:
