cis234-assignment3-itmbbvuu.docx · PLEASE MODIFY THE FOLLOWING PROGRAM ATTACHED HW#2 · You will be printing out a report with all employee names, current salary, and then new salary based on 5% raise....

DUMMY


cis234-assignment3-itmbbvuu.docx · PLEASE MODIFY THE FOLLOWING PROGRAM ATTACHED HW#2 · You will be printing out a report with all employee names, current 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 · Current 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 READ INFL AT END GO TO EXIT-PARA NOT AT END COMPUTE SALAR = SALARY MOVE FN TO FIRSTNAME MOVE LN TO LASTNAME MOVE SALAR TO SALARY WRITE OUTFL-REC END-READ END-PERFORM. EXIT-PARA. CLOSE INFL CLOSE OUTFL. STOP RUN. employeeinput-1-wa05mp3s.dat NANCY STERN 29898 2 12300 098900 029900 04011998 ROBERT STERN 30923 2 21000 098890 092830 03111994 CHRISTOPHER HAMMEL 28437 1 38370 067373 073700 11122000 GEORGE WASHINGTON 53383 2 39390 003920 039200 10041990 TOM JEFFERSON 68383 8 32200 093830 039200 11031992 LORI STERN 29339 1 63600 129290 029290 03141999 MELANIE STERN 32384 1 02938 338382 023838 04212001 TEDDY SMITH 20293 9 02239 328339 382839 05272000 JOHN DOE 50338 2 29387 493038 330393 06111993 BILL FIXER 62383 8 20028 303939 029383 07211999 JAMES STERN 39245 2 12300 098900 029900 05011997 JANICE STERN 35923 2 21000 098890 092830 03111993 CHRISTOPHER BROWN 26437 1 38370 067373 073700 11122001 GEORGE TUCKER 59383 2 39390 003920 039200 10041998 TOM JENKINS 60383 8 32200 093830 039200 11031993 LORI TURN 27339 1 63600 129290 029290 03141987 MELANIE STOCK 33384 1 02938 338382 023838 04212004 BRUCE SMITH 28293 9 02239 328339 382839 05272001 JACK DODDLE 50348 2 29387 493038 330393 06111999 BILL FIT 68390 8 20028 303939 029383 07211991 NATE EWERT 39898 2 12300 098900 029900 04011984 ROB TACKLE 38923 2 21000 098890 092830 03111999 CHRIS HAMILITON 48437 1 38370 067373 073700 11122004 GEE YOUNG 53983 2 39390 003920 039200 10041992 TOM RUNBUCKLE 68283 8 32200 093830 039200 12041993 LISA BURNS 29349 1 63600 129290 029290 03171989 MELISSA HEELER 32394 1 02938 338382 023838 07272000 TED MYERS 20393 9 02239 328339 382839 03202007 JET BROWN 51338 2 29387 493038 330393 08101980 TUBBS DUGAL 68383 8 20028 303939 029383 05221995