Technical data

Example 8–1 (Cont.) Populating a Database
SUPPLY-LOAD.
READ SUPPLY-FILE AT END GO TO SUPPLY-LOAD-END.
SUPPLY-LOAD-LOOP.
IF CONTROL-FIELD OF SUPPLY-RECORD = "S"
MOVE PART-ID OF SUPPLY-RECORD TO PART_ID OF PART
FIND FIRST PART WITHIN ALL_PARTS USING PART_ID OF PART
AT END
DISPLAY PART_ID OF PART,
" PART-ID for SUPPLY does not exist"
MOVE " " TO CONTROL-FIELD OF SUPPLY-RECORD
PERFORM BAD-SUPPLY THRU BAD-SUPPLY-END
UNTIL CONTROL-FIELD OF SUPPLY-RECORD = "S"
GO TO SUPPLY-LOAD-LOOP
END-FIND
MOVE VEND-NAME OF SUPPLY-RECORD TO VEND_NAME OF VENDOR
FIND FIRST VENDOR WITHIN ALL_VENDORS USING VEND_NAME OF VENDOR
AT END
DISPLAY VEND_NAME OF VENDOR
"VEND-NAME for SUPPLY does not exist"
MOVE " " TO CONTROL-FIELD OF SUPPLY-RECORD
PERFORM BAD-SUPPLY THRU BAD-SUPPLY-END
UNTIL CONTROL-FIELD OF SUPPLY-RECORD = "S"
GO TO SUPPLY-LOAD-LOOP
END-FIND
MOVE CORR SUPPLY-RECORD TO SUPPLY
STORE SUPPLY
ADD 1 TO SUPPLY-COUNT
GO TO SUPPLY-LOAD
ELSE
MOVE CORR QUOTE-RECORD TO PR_QUOTE
STORE PR_QUOTE
ADD 1 TO QUOTE-COUNT
GO TO SUPPLY-LOAD.
BAD-SUPPLY.
READ SUPPLY-FILE AT END GO TO SUPPLY-LOAD-END.
IF CONTROL-FIELD OF SUPPLY-RECORD = "Q"
DISPLAY QUOTE_ID OF QUOTE-RECORD, " QUOTE_ID not stored".
BAD-SUPPLY-END.
EXIT.
SUPPLY-LOAD-END.
EXIT.
DIVISION-LOAD.
READ DIVISION-FILE AT END GO TO DIVISION-LOAD-END.
(continued on next page)
Database Programming Examples 8–7