Technical data

Example 8–2 (Cont.) Backing Up a Database
FD COMPONENT-FILE
LABEL RECORDS ARE STANDARD.
01 COMPONENT-RECORD.
02 COMP_SUB_PART PIC X(8).
02 COMP_OWNER_PART PIC X(8).
02 COMP_MEASURE PIC X.
02 COMP_QUANTITY PIC 9(5).
FD VENDOR-FILE
LABEL RECORDS ARE STANDARD.
01 VENDOR-RECORD.
02 VEND_ID PIC X(8).
02 VEND_NAME PIC X(40).
02 VEND_CONTACT PIC X(30).
02 VEND_ADDRESS OCCURS 3 TIMES PIC X(15).
02 VEND_PHONE PIC 9(10).
FD SUPPLY-FILE
RECORD VARYING FROM 37 TO 64 CHARACTERS.
01 SUPPLY-RECORD.
02 CONTROL-FIELD PIC X.
02 PART-ID PIC X(8).
02 VEND-NAME PIC X(40).
02 SUP_RATING PIC X.
02 SUP_TYPE PIC X(4).
02 SUP_LAG_TIME PIC X(10).
01 QUOTE-RECORD.
02 CONTROL-FIELD PIC X.
02 QUOTE_ID PIC X(7).
02 QUOTE_DATE PIC 9(6).
02 QUOTE_MIN_ORDER PIC X(5).
02 QUOTE_UNIT_PRIC PIC 9(6)V9(3).
02 QUOTE_QTY_PRICE PIC 9(6)V9(3).
FD EMPLOYEE-FILE
LABEL RECORDS ARE STANDARD.
01 EMPLOYEE-RECORD.
02 EMP_ID PIC 9(5).
02 EMP_NAME.
03 EMP_LAST_NAME PIC X(20).
03 EMP_FIRST_NAME PIC X(10).
02 EMP_PHONE PIC X(7).
02 EMP_LOC PIC X(5).
FD DIVISION-FILE
RECORD VARYING FROM 6 TO 26 CHARACTERS.
01 MANAGES-RECORD.
02 CONTROL-FIELD PIC X.
02 GROUP_NAME PIC X(20).
02 EMP_ID PIC 9(5).
01 CONSISTS-RECORD.
02 CONTROL-FIELD PIC X.
02 EMP_ID PIC 9(5).
FD RESP-FOR-FILE
LABEL RECORDS ARE STANDARD.
01 RESP-FOR-RECORD.
02 EMP_ID PIC 9(5).
02 PART_ID PIC X(8).
(continued on next page)
Database Programming Examples 8–11