Technical data

Example 8–1 (Cont.) Populating a Database
VENDOR-LOAD.
READ VENDOR-FILE AT END GO TO VENDOR-LOAD-END.
MOVE VEND_ID OF VENDOR-RECORD TO VEND_ID OF VENDOR.
MOVE VEND_NAME OF VENDOR-RECORD TO VEND_NAME OF VENDOR.
MOVE VEND_CONTACT OF VENDOR-RECORD TO VEND_CONTACT OF VENDOR.
MOVE VEND_ADD (1) TO VEND_ADDRESS (1).
MOVE VEND_ADD (2) TO VEND_ADDRESS (2).
MOVE VEND_ADD (3) TO VEND_ADDRESS (3).
MOVE VEND_PHONE OF VENDOR-RECORD TO VEND_PHONE OF VENDOR.
STORE VENDOR.
ADD 1 TO VENDOR-COUNT.
GO TO VENDOR-LOAD.
VENDOR-LOAD-END.
EXIT.
COMPONENT-LOAD.
READ COMPONENT-FILE AT END GO TO COMPONENT-LOAD-END.
IF COMP_OWNER_PART OF COMPONENT-RECORD =
COMP_OWNER_PART OF COMPONENT
GO TO COMPONENT-SUB-LOAD.
MOVE COMP_OWNER_PART OF COMPONENT-RECORD TO PART_ID OF PART.
FIND FIRST PART WITHIN ALL_PARTS USING PART_ID OF PART
AT END DISPLAY PART_ID OF PART,
"COMP_OWNER_PART does not exist for COMPONENT"
GO TO COMPONENT-LOAD.
COMPONENT-SUB-LOAD.
MOVE COMP_SUB_PART OF COMPONENT-RECORD TO PART_ID OF PART.
FIND FIRST PART WITHIN ALL_PARTS USING PART_ID OF PART
RETAINING PART_USES
AT END DISPLAY PART_ID OF PART,
"COMP_SUB_PART does not exist for COMPONENT"
GO TO COMPONENT-LOAD.
MOVE CORR COMPONENT-RECORD TO COMPONENT.
STORE COMPONENT.
ADD 1 TO COMPONENT-COUNT.
GO TO COMPONENT-LOAD.
COMPONENT-LOAD-END.
EXIT.
EMPLOYEE-LOAD.
READ EMPLOYEE-FILE AT END GO TO EMPLOYEE-LOAD-END.
MOVE CORR EMPLOYEE-RECORD TO EMPLOYEE.
STORE EMPLOYEE.
ADD 1 TO EMPLOYEE-COUNT.
GO TO EMPLOYEE-LOAD.
EMPLOYEE-LOAD-EXIT
EXIT.
(continued on next page)
8–6 Database Programming Examples