Technical data

Example 8–2 (Cont.) Backing Up a Database
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MAKE-FILE
ASSIGN TO "DBM$PARTS:DBMMAKE.DAT".
SELECT BUY-FILE
ASSIGN TO "DBM$PARTS:DBMBUY.DAT".
SELECT VENDOR-FILE
ASSIGN TO "DBM$PARTS:DBMVENDOR.DAT".
SELECT EMPLOYEE-FILE
ASSIGN TO "DBM$PARTS:DBMEMPLOY.DAT".
SELECT COMPONENT-FILE
ASSIGN TO "DBM$PARTS:DBMCOMPON.DAT".
SELECT SUPPLY-FILE
ASSIGN TO "DBM$PARTS:DBMSUPPLY.DAT".
SELECT DIVISION-FILE
ASSIGN TO "DBM$PARTS:DBMSUPER.DAT".
SELECT RESP-FOR-FILE
ASSIGN TO "DBM$PARTS:DBMRESPON.DAT".
DATA DIVISION.
SUB-SCHEMA SECTION.
DB PARTSS1 WITHIN PARTS FOR NEW.
FILE SECTION.
FD MAKE-FILE
RECORD VARYING FROM 24 TO 80 CHARACTERS.
01 MAKE-PART-RECORD.
02 CONTROL-FIELD PIC X.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X(1).
02 PART_PRICE PIC 9(6)V9(3).
02 PART_COST PIC 9(6)V9(3).
02 PART_SUPPORT PIC X(2).
01 MAKE-CLASS-RECORD.
02 CONTROL-FIELD PIC X.
02 CLASS_CODE PIC XX.
02 CLASS_DESC PIC X(20).
02 CLASS_STATUS PIC X.
FD BUY-FILE
RECORD VARYING FROM 24 TO 80 CHARACTERS.
01 BUY-PART-RECORD.
02 CONTROL-FIELD PIC X.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X(1).
02 PART_PRICE PIC 9(6)V9(3).
02 PART_COST PIC 9(6)V9(3).
02 PART_SUPPORT PIC X(2).
01 BUY-CLASS-RECORD.
02 CONTROL-FIELD PIC X.
02 CLASS_CODE PIC XX.
02 CLASS_DESC PIC X(20).
02 CLASS_STATUS PIC X.
(continued on next page)
8–10 Database Programming Examples