Technical data

Example 8–1 (Cont.) Populating a Database
OPEN INPUT COMPONENT-FILE.
PERFORM COMPONENT-LOAD THRU COMPONENT-LOAD-END.
CLOSE COMPONENT-FILE.
* DISPLAY " ".
* DISPLAY COMPONENT-COUNT, " COMPONENT records loaded".
OPEN INPUT EMPLOYEE-FILE.
PERFORM EMPLOYEE-LOAD THRU EMPLOYEE-LOAD-END.
CLOSE EMPLOYEE-FILE.
* DISPLAY " ".
* DISPLAY EMPLOYEE-COUNT, " EMPLOYEE records loaded".
OPEN INPUT SUPPLY-FILE.
PERFORM SUPPLY-LOAD THRU SUPPLY-LOAD-END.
CLOSE SUPPLY-FILE.
* DISPLAY " ".
* DISPLAY SUPPLY-COUNT, " SUPPLY records loaded".
* DISPLAY QUOTE-COUNT, " QUOTE records loaded".
OPEN INPUT DIVISION-FILE.
PERFORM DIVISION-LOAD THRU DIVISION-LOAD-END.
CLOSE DIVISION-FILE.
* DISPLAY " ".
* DISPLAY DIVISION-COUNT, " DIVISION records loaded".
OPEN INPUT RESP-FOR-FILE.
PERFORM RESP-FOR-LOAD THRU RESP-FOR-LOAD-END.
CLOSE RESP-FOR-FILE.
COMMIT.
STOP RUN.
MAKE-LOAD.
READ MAKE-FILE AT END GO TO MAKE-LOAD-END.
IF CONTROL-FIELD OF MAKE-PART-RECORD = "C"
MOVE CORR MAKE-CLASS-RECORD TO CATEGORY
STORE CATEGORY WITHIN MAKE
ADD 1 TO CLASS-COUNT
ELSE
MOVE CORR MAKE-PART-RECORD TO PART
STORE PART WITHIN MAKE
ADD 1 TO PART-COUNT.
GO TO MAKE-LOAD.
MAKE-LOAD-END.
EXIT.
BUY-LOAD.
READ BUY-FILE AT END GO TO BUY-LOAD-END.
IF CONTROL-FIELD OF BUY-PART-RECORD = "C"
MOVE CORR BUY-CLASS-RECORD TO CATEGORY
STORE CATEGORY WITHIN BUY
ADD 1 TO CLASS-COUNT
ELSE
MOVE CORR BUY-PART-RECORD TO PART
STORE PART WITHIN BUY
ADD 1 TO PART-COUNT.
GO TO BUY-LOAD.
BUY-LOAD-END.
EXIT.
(continued on next page)
Database Programming Examples 8–5