For
distance learning students:
·
Modify
this program on paper so it displays the total number of salaried employees.
·
Modify
this program on paper so it displays the total number of salaried employees and
the total number of non salaried employees.
·
Modify
this program on paper so it displays the total number of employees.
Lab
assignment if you are in class:
Enter
the following program and get it running using the EMPLOYEE.DAT file I gave you
last week (additional copies will be available in the lab).
IDENTIFICATION DIVISION.
PROGRAM-ID. CIS17lab.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT
EMPLOYEE-FILE
ASSIGN TO "A:\EMPLOYEE.DAT".
DATA
DIVISION.
FILE SECTION.
FD EMPLOYEE-FILE
DATA RECORD IS EMPLOYEE-RECORD.
01 EMPLOYEE-RECORD.
05
IDNO PIC XXXXX.
05
EMPNAME PIC X(20).
05
YRBTH PIC 9(4).
05
GEN PIC X.
05 MARSTAT PIC X.
05
NUMDEP PIC 99.
05
ED PIC XXX.
05
JBCD PIC X.
05
PAYHR PIC 999V99.
05
SAL PIC 9(6)V99.
05
BONUS PIC 9(5).
05 DEPT PIC 99.
05
STATE PIC XX.
WORKING-STORAGE SECTION.
01 PROG-INDICATORS.
05 END-OF-FILE-IND PIC XXX VALUE "NO ".
01 WORK-AREAS.
05 TOTAL-SAL PIC 9(8)V99 VALUE 0.
01 OUTPUT-TO-SCR.
05 SAL-FOR-SCR PIC $$$$,$$$.99.
05 TOTAL-SAL-FOR-SCR PIC $$$,$$$,$$$.99.
PROCEDURE DIVISION.
MAINLINE.
PERFORM A-100-HOUSEKEEPING.
PERFORM B-100-PROCESS.
PERFORM C-100-WRAPUP.
STOP RUN.
A-100-HOUSEKEEPING.
OPEN INPUT EMPLOYEE-FILE.
DISPLAY " " WITH BLANK SCREEN.
DISPLAY " ".
B-100-PROCESS.
READ EMPLOYEE-FILE
AT END
MOVE "YES" TO
END-OF-FILE-IND.
PERFORM B-200-LOOP
UNTIL END-OF-FILE-IND = "YES".
B-200-LOOP.
IF
JBCD = "S"
ADD SAL TO TOTAL-SAL
MOVE SAL TO SAL-FOR-SCR
DISPLAY EMPNAME " "
JBCD " " SAL-FOR-SCR
END-IF
READ EMPLOYEE-FILE
AT END
MOVE "YES" TO END-OF-FILE-IND.
C-100-WRAPUP.
DISPLAY " ".
MOVE TOTAL-SAL TO TOTAL-SAL-FOR-SCR.
DISPLAY "TOTAL SALARY FOR SALARIED EMPLOYEES "
TOTAL-SAL-FOR-SCR.
CLOSE EMPLOYEE-FILE.
Next,
modify the program so that it displays the total number of salaried employees
as well as their total salary. You
should display the total number on a separate line.
Now
modify the program so that it displays the total number of salaried employees
and the total number of non salaried employees.
Now
modify the program so that it displays the total number of employees.
We will
continue to work in this during lab next week so don't worry if you do not get
it all done.