sdavis9

i working pt. 3 of the lab now but here is what part to looks like i may need some help on part 3 here are the instruction still using the same program



Lab Exercise #3 – Adjusted Gross Pay Report, utilizing MP, DP, and ROUNDING


Management has decided to adjust the Rate of Pay for employees who work either 2nd or 3rd shift. Those employees who work 1st shift will not receive any increase at all. The following table summarizes:

SHIFT RATE OF PAY
1 No Increase
2 10%
3 12%

INPUT: Input consists of the 80 byte fixed unblocked disk file. The file layout is the same as Lab 1 and Lab 2.

OUTPUT: Create a report listing the Employee Name, Employee ID, Shift Code, Hours Worked, Rate of Pay, Gross Pay, Adjusted Rate of Pay and Adjusted Gross Pay for each employee.

Edit all numeric fields on the output report.

At the end of the report print totals on 3 separate lines for the following:

Total Employees listed on the report
Average Gross Pay
Average Adjusted Gross Pay

The report must include a Title, appropriate column headings, and proper identification of totals at the end of the report.

Calculations: Gross Pay = Rate of Pay X Hours

Adjusted Rate of Pay = Rate of Pay X Percentage Increase (From Table Above)
Round to 2 Decimal Positions

Adjusted Gross Pay = Adjusted Rate of Pay X Hours

Average Gross Pay = Total Gross Pay / Total Employees

Average Adjusted Gross Pay = Total Adjusted Gross Pay / Total Employees




sample csect
print nogen
LR 3,15
USING SAMPLE 3
OPEN (DSKFLE,INPUT)
OPEN (PRTFLE,OUPUT)
MVC PRTOUT,SPACES
MVC PRTOUT+9(15),=C'BEGIN EXECUTION'
PUT PRTFLE,PRTOUT
MVC PRTOUT,SPACES
PUT PRTOUT,TITLE
PUT PRTOUT,COLHEAD1
PUT PRTFLE,PRTOUT

*
* MAINFLOW LOOP
*
READ GET DSKFLE,DISKIN
MVC PRTOUT,SPACES
MVC EMPNUMO,EPNUMI
MVC EMPNUMO,EMPNUMI
MVC HRO,HOURI
MVC RATEO,RATEI
MVC SHIFTO,SHIFTI
PACK PRATE,RATEI
AP PRATE,=P'100'
MVC ADRATEO,X='40202020204B2120'
ED ADRATEO,PRATE
PACK PHRS,HOURI
AP PTOTHRS,PHRS
PUT PRTFLE,PRTOUT
B READ
*
* END OF JOB ROUTINE
*
EOJRT MVC PRTOUT,SPACES
PUT PRTFLE,PRTOUT
MVC PRTOUT+9(16),=C'END OF EXECUTION'
PUT PRTFLE,SPACES
MVC HOURRO,=X'40202021204B2020'
ED HOURRO,PTOTHRS
PUT PRTFLE,TOTALS
PUT PRTFLE,PRTOUT
CLOSE DSKFLE
CLOSE PRTFLE
EOF
*
* DECLARATIVES
TITLE DS 0CL120
DC 40C' '
DC CL40'SHERMAN REPORT'
DC 40C' '


* DECLARATIVES

COLHEAD1 DS 0CL120
DC 10C' '
DC CL9'EMPLOYE NUM'
DC 5C' '
DC CL24'EMPLOYEE NAME'
DC 8C' '
DC CL5'HOUR'
DC 12C' '
DC CL4'RATE'
DC 8C' '
DC CL1'SHIFT'
DC 4C' '
DC CL6'ADJRTE'
DC 14C' '


* DECLARATIVES
TOTALS DS 0CL120
DC 10C' '
DC CL14'TOTAL HOURS'
HOURRO DS CL10
DC 86C' '

PHRS DS PL3
PTOTHRS DC PL3 '0'



SPACES DC CL120' '

*
* DISK FILE DEFINITION
*
DSKFLE DCB DSORG=PS,DDNAME=DSKFLE,MACRF=(GM),
LRECL=80,BLKSIZE=80,RECFM=FBA,EODAD=EOJRT

* INPUT RECORD DEFINITION
*
DISKIN DS 0CL80
EMPNAMEI DS CL24
DS CL6
EMPNUMI DS CL9
HOURI DS CL3
RATEI DS CL4
DEPI DS CL1
DS CL1
CLASSI DS CL1
SHIFT1 DS CL1
DS CL30


DECLARATIVES
PRATE DS PL3




*
* PRINTER FILE DEFINTION
*
PRTFLE DCB DSORG=PS, DDNAME=SYSOUT,MACRF=(PM) ,
LRECL=120,BLKSIZE=120,RECFM=FM

*
*

*
PRINT DETAIL LINE DEFINITION
*
PRTOUT DS 0CL120
DS CL10
EMPNUMO DS CL9
DS CL5
EMPNAMEO DS CL24
DS CL8
HRO DS CL3
DS CL14
RATEO DS CL4
DS CL8
SHIFTO DS CL1
DS CL3
ADRATEO DS CL7
DS CL24
END




thats the program im working with he gave us some notes if wanna see let me know

but i really need your help anybody's help