Code COBOL

1
Code COBOL

• 05 OUT-DETAIL-LINE.
• 10 FILLER PIC X VALUE
  SPACES.
• 10 ODL-EMP-ID PIC X(8).
• 10 FILLER PIC X(2) VALUE
  SPACES.
• 10 ODL-LAST-NAME PIC X(15).
• 10 FILLER PIC X(2) VALUE
  SPACES.
• 10 ODL-FIRST-NAME PIC X(15).
• 10 FILLER PIC X(2) VALUE
  SPACES.
• 10 ODL-JOB-TITLE PIC X(10).
• 10 FILLER PIC X(4) VALUE
  SPACES.
• 10 ODL-JOB-CODE PIC X(3).
• 10 FILLER PIC X(8) VALUE
  SPACES.
• 10 ODL-HRS-OR-SAL PIC X.
• 10 FILLER PIC X(5) VALUE
  SPACES.
• 10 ODL-HRS-YR PIC Z,ZZ9.9.
• 10 FILLER PIC X(2) VALUE
  SPACES.
• 10 ODL-SAL-YR PIC ZZZ,ZZ9.99.

2
Code COBOL

• 05 OUT-TOTAL-ACTIVE.
• 10 FILLER PIC X(28)
• VALUE " TOTAL ACTIVE EMPLOYEES".
• 10 OUT-TOT-ACTIVE PIC Z9.
• 05 OUT-TOTAL-PROGRAMMERS.
• 10 FILLER PIC X(28)
• VALUE " TOTAL PROGRAMMERS".
• 10 OUT-TOT-PROG PIC Z9.
• 05 OUT-AVG-YEARLY-SALARY.
• 10 FILLER PIC X(28)
• VALUE " AVERAGE YEARLY SALARY".
• 10 OUT-AVG-YR-SAL PIC ZZ,ZZ9.99.

3
Code COBOL

• 05 OUT-HIGHEST-PROG-SALARY.
• 10 FILLER PIC X(28)
• VALUE " HIGHEST PROGRAMMER SALARY".
• 10 OUT-HIGH-PROG-SAL PIC ZZ,ZZ9.99.
• 05 OUT-LOWEST-PROG-SALARY.
• 10 FILLER PIC X(28)
• VALUE " LOWEST PROGRAMMER SALARY".
• 10 OUT-LOW-PROG-SAL PIC ZZ,ZZ9.99.
• 05 OUT-AVERAGE-PROG-SALARY.
• 10 FILLER PIC X(28)
• VALUE " AVERAGE PROGRAMMER SALARY".
• 10 OUT-AVG-PROG-SAL PIC ZZ,ZZ9.99.