The Tower of Babel

COBOL Data Definitions


DATA DIVISION.
FILE SECTION.
FD EMPLOYEE-FILE
   DATA RECORD IS EMPLOYEE-RECORD.
01 EMPLOYEE-RECORD.
   02 EMPLOYEE-NAME.
      05 FIRST    PICTURE IS X(20).
      05 MIDDLE   PICTURE IS X(10).
      05 LAST     PICTURE IS X(20).
   02 HOURLY-RATE PICTURE IS 99V99.
FD RESULT
   DATA RECORD IS AVERAGE-LINE.
01 AVERAGE-LINE.
   02 FILLER      PICTURE IS X(19)
      VALUE IS " Average salary is ".
   02 AVERAGE     PICTURE IS ZZZZ9.99.
WORKING-STORAGE SECTION.
77 SUM            PICTURE IS 99999.99.
77 EMPLOYEES      PICTURE IS 9999.


[TOC][Next]


CS1104 Main Page
Last Updated 01/05/2000
© L.Heath, 2000