does anybody know how to do this i really need some help if you want me to post the program of what 's in the program let me know but i seriously need some help plus i need to get this program done by monday if you want to post what i got let me know
Management has decided to adjust the salaries of all employees in the company by adding $1.00 to the Hourly Rate of Pay. This will become the Adjusted Rate of Pay. Management also wants to know the Total Hours worked by all employees.
INPUT SPECIFICATIONS:
Use the Lab Input File Layout given on a separate page.
OUTPUT SPECIFICATIONS:
The output will consist of a report listing the
Employee Name
Employee Number
Hours Worked
Rate of Pay
Shift
Adjusted Rate of Pay
At the end of the report, print the Total Hours Worked for all employees on the report.
The Adjusted Rate of Pay and Totals Hours Worked fields must be edited on the output report.
You are also to include a report title and appropriate column headings
You will need to do a Printer Spacing Chart and Flowchart prior to coding this lab problem.
here is my program
I HAVE TO TYPE ALL OF THE OUT BECAUSE I DONT HAVE MAINFRAME ON MY COMPUTER
this is what i got at campus where are using micrufus mainframe to build the program THE ONLY THING IS THAT I CANT FIGURE WHAT AM I SUPPOSE TO DO WHERE AND I SUPPOSE TO PUT THE CALCULATION ALEAST I THINK THAT WHAT I AM SUPPOSE TO DO NOW BUT I DONT KNOW HOW TO DO IT
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'
PACK PHOURS,HROI
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,PRTOUT
CLOSE DSKFLE
CLOSE PRTFLE
EOF
*
* DECLARATIVES
TITLE DS 0CL120
DC 40C' '
DC CL40'SHERMAN REPORT'
DC 40C' '
* DECLARATIVES
COLHEAD1 DS 0CL120
DC 9C' '
DC CL15'EMPLOYEE NUM'
DC 4C' '
DC CL24'EMPLOYEE NAME'
DC 5C' '
DC CL5'HOUR'
DC 5C' '
DC CL6'RATE'
DC 5C' '
DC CL5'SHIFT'
DC 28C' '
* DECLARATIVES
SPACES DC CL120' '
*
* DISK FILE DEFINITION
*
DSKFLE DCB DSORG=PS,DDNAME=DSKFLE,MACRF=(GM),
LRECL=80,BLKSIZE=80,RECFM=FBA,EODAD=EOJRT
*
* PRINTER FILE DEFINTION
*
PRTFLE DCB DSORG=PS, DDNAME=SYSOUT,MACRF=(PM) ,
LRECL=120,BLKSIZE=120,RECFM=FM
*
* DECLARITIVES
*
SPACES DC CL120
MSG1 DC C'BEGIN EXECUTION'
MSG2 DC C'END OF EXECUTION'
*
* INPUT RECORD DEFINITION
*
DISKIN DS 0CL80
EMPNAMEI DS CL24
DS CL6
EMPNAMEO DS CL24
DS CL8
HRO DS CL3
DS CL14
RATEO DS CL4
DS CL8
SHIFTO DS CL1
DS CL34
END
Management has decided to adjust the salaries of all employees in the company by adding $1.00 to the Hourly Rate of Pay. This will become the Adjusted Rate of Pay. Management also wants to know the Total Hours worked by all employees.
INPUT SPECIFICATIONS:
Use the Lab Input File Layout given on a separate page.
OUTPUT SPECIFICATIONS:
The output will consist of a report listing the
Employee Name
Employee Number
Hours Worked
Rate of Pay
Shift
Adjusted Rate of Pay
At the end of the report, print the Total Hours Worked for all employees on the report.
The Adjusted Rate of Pay and Totals Hours Worked fields must be edited on the output report.
You are also to include a report title and appropriate column headings
You will need to do a Printer Spacing Chart and Flowchart prior to coding this lab problem.
here is my program
I HAVE TO TYPE ALL OF THE OUT BECAUSE I DONT HAVE MAINFRAME ON MY COMPUTER
this is what i got at campus where are using micrufus mainframe to build the program THE ONLY THING IS THAT I CANT FIGURE WHAT AM I SUPPOSE TO DO WHERE AND I SUPPOSE TO PUT THE CALCULATION ALEAST I THINK THAT WHAT I AM SUPPOSE TO DO NOW BUT I DONT KNOW HOW TO DO IT
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'
PACK PHOURS,HROI
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,PRTOUT
CLOSE DSKFLE
CLOSE PRTFLE
EOF
*
* DECLARATIVES
TITLE DS 0CL120
DC 40C' '
DC CL40'SHERMAN REPORT'
DC 40C' '
* DECLARATIVES
COLHEAD1 DS 0CL120
DC 9C' '
DC CL15'EMPLOYEE NUM'
DC 4C' '
DC CL24'EMPLOYEE NAME'
DC 5C' '
DC CL5'HOUR'
DC 5C' '
DC CL6'RATE'
DC 5C' '
DC CL5'SHIFT'
DC 28C' '
* DECLARATIVES
SPACES DC CL120' '
*
* DISK FILE DEFINITION
*
DSKFLE DCB DSORG=PS,DDNAME=DSKFLE,MACRF=(GM),
LRECL=80,BLKSIZE=80,RECFM=FBA,EODAD=EOJRT
*
* PRINTER FILE DEFINTION
*
PRTFLE DCB DSORG=PS, DDNAME=SYSOUT,MACRF=(PM) ,
LRECL=120,BLKSIZE=120,RECFM=FM
*
* DECLARITIVES
*
SPACES DC CL120
MSG1 DC C'BEGIN EXECUTION'
MSG2 DC C'END OF EXECUTION'
*
* INPUT RECORD DEFINITION
*
DISKIN DS 0CL80
EMPNAMEI DS CL24
DS CL6
EMPNAMEO DS CL24
DS CL8
HRO DS CL3
DS CL14
RATEO DS CL4
DS CL8
SHIFTO DS CL1
DS CL34
END
