cis234-assignment3-itm
vuu.docx
· PLEASE MODIFY THE FOLLOWING PROGRAM ATTACHED HW#2
· You will be printing out a report with all employee names, cu
ent salary, and then new salary based on 5% raise. Then Please add 4 new calculated values: FICA, Federal Tax, State Tax and Net Pay. Using the New Salary from 5% raise, you will calculate each of the new fields based on the following:
· FICA = 6.75%;
· Federal Tax:
0 to 2 dependents = 25%;
3 to 5 = 22%;
6 or more = 20%;
· State Tax:
0 to 2 dependents = 10%
3 to 5 = 8%
6 or more = 5%
· Net pay = New Salary minus FICA, Federal Tax, and State Tax.
· Input File = EmployeeInput.DAT
· Contents:
· Name = 20 characters
· Salary = 5 numeric
· No. of Dependents = 1 numeric
· FICA = 5 numeric
· State Tax = 6 numeric
· Federal Tax = 6 numeric
· Date of Hire = 8 numeric
· Rename output file = EmployeeRpt7.RPT
· Contents:
· Employee Name
· Cu
ent Salary
· New Salary (5% raise)
· New FICA
· Federal Tax
· State Tax
· Net Total
· Need to add a Header to the report that includes Title and Date Run.
· Update report header line to “CH0701 - Salary File with New Raises and Taxes – Date Run 99/99/99”
· Include a new column line defining each column header (below the report heading).
· Add a summary line with a total for each numeric field.
hw2-c31ivctq.docx
IDENTIFICATION DIVISION.
PROGRAM-ID. CH0401.
ENVIRONMENT DIVISON.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFL ASSIGN TO 'EmployeeInput (1).DAT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUTFL ASSIGN TO 'PaySum.txt'
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD EMPFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS 'EmployeeInput (1).DAT'.
01 FILE-REC
02 FN PIC A(25).
02 FILLER PIC X(2).
02 LN PIC A(25).
02 FILLER PIC X(2).
02 SALAR PIC A(5).
02 FILLER PIC X(2).
02 DEPENDENTS PIC A(2).
02 FILLER PIC X(2).
02 FICA PIC A(5).
02 FILLER PIC X(2).
02 STATE TAX PIC A(6).
02 FILLER PIC X(2).
02 FED TAX PIC A(6).
02 FILLER PIC X(2).
02 DOH PIC A(5).
FD OUTFL.
01 OUTFL-REC.
05 FIRSTNAME PIC X(25).
05 FILLER PIC X(01).
05 LASTNAME PIC X(25).
05 FILLER PIC X(01).
05 SALARY PIC 9(6).
WORKING-STORAGE SECTION.
77 HW PIC 99 VALUE IS 40.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN INPUT INFL.
OPEN OUTPUT OUTFL.
PERFORM UNTIL INFL-EOF
XXXXXXXXXXREAD INFL
XXXXXXXXXXAT END
XXXXXXXXXXGO TO EXIT-PARA
XXXXXXXXXXNOT AT END
XXXXXXXXXXCOMPUTE SALAR = SALARY
XXXXXXXXXXMOVE FN TO FIRSTNAME
XXXXXXXXXXMOVE LN TO LASTNAME
XXXXXXXXXXMOVE SALAR TO SALARY
XXXXXXXXXXWRITE OUTFL-REC
XXXXXXXXXXEND-READ
END-PERFORM.
EXIT-PARA.
CLOSE INFL
CLOSE OUTFL.
STOP RUN.
employeeinput-1-wa05mp3s.dat
NANCY STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
ROBERT STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
CHRISTOPHER HAMMEL XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
GEORGE WASHINGTON XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TOM JEFFERSON XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
LORI STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
MELANIE STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TEDDY SMITH XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
JOHN DOE XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
BILL FIXER XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
JAMES STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
JANICE STERN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
CHRISTOPHER BROWN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
GEORGE TUCKER XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TOM JENKINS XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
LORI TURN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
MELANIE STOCK XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
BRUCE SMITH XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
JACK DODDLE XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
BILL FIT XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
NATE EWERT XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
ROB TACKLE XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
CHRIS HAMILITON XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
GEE YOUNG XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TOM RUNBUCKLE XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
LISA BURNS XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
MELISSA HEELER XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TED MYERS XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
JET BROWN XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX
TUBBS DUGAL XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX