Technical data

8.4 PARTBOM Sample Run
Example 8–4 displays a sample run of the PARTBOM program in Example 8–3.
Example 8–4 Sample Run of the PARTBOM Program
Enter PARTID> BT163456
+-----------------------------------+
| Parts Bill of Materials Explosion |
| (COBOL Version) |
| Part-id: BT163456 |
+-----------------------------------+
BT163456 - VT100
| BU355678 - VT100 NON REFLECTIVE SCREEN
| BU345670 - TERMINAL TABLE VT100
| | AZ345678 - 3/4 INCH SCREWS
| | AZ167890 - 1/2 INCH SCREWS
| | AZ517890 - 1/4 INCH BOLTS
| | AZ012345 - 3 INCH NAILS
| | AS234567 - 1/4 INCH TACKS
| | AS901234 - 3/8 INCH SCREWS
| | AS456789 - 4/5 INCH CLAMP
| | AS560890 - 1 INCH CLAMP
| BU456789 - PLASTIC KEY ALPHA.
| BU345438 - PLASTIC KEY NUM.
| BU234567 - VIDEO TUBE
| | AZ345678 - 3/4 INCH SCREWS
| | AZ789012 - 3/8 INCH BOLTS
| | AS234567 - 1/4 INCH TACKS
| | AS560890 - 1 INCH CLAMP
| BU890123 - VT100 HOUSING
| BU876778 - VT100 SCREEN
| AZ345678 - 3/4 INCH SCREWS
| AZ567890 - 1/4 INCH SCREWS
| AZ789012 - 3/8 INCH BOLTS
| AS901234 - 3/8 INCH SCREWS
| AS890123 - 3/4 INCH ELECTRICAL TAPE
Enter PARTID>
ctrl/z
END COBOL PARTBOM.
8.5 Creating Relationships Between Records of the Same Type
The STOOL program in Example 8–5 illustrates how to create a relationship
between records of the same type. It loads and connects the parts example
discussed in Section 5.9.2.2 and produces a parts breakdown report illustrating
the relationships. Section 8.6 contains the sample report.
Database Programming Examples 8–17