Technical data

Figure 7–2 Split Screen After FETCH NEXT WITHIN PART_SUPPLY
maintainedCURRENTLegend: POSITION null
ZK−6068−GE
SUPPLY
PART vendor
PART_SUPPLY VENDOR_SUPPLY
%DBM − I − CURDISPLA, Currency for run unit is 3:2:3
%DBM − I − CURDISPLA, Currency for PART_SUPPLY set type is 3:2:3
%DBM − I − CURDISPLA, Currency for VENDOR_SUPPLY set type is 3:2:3
%DBM − I − CURDISPLA, Currency for SUPPLY record type is 3:2:3
SUP_RATING = 0
SUP_TYPE = OEM
SUP_LAG_TIME = 6−10 DAYS
%DBM − I − CURDISPLA, Currency for MARKETS realm is 3:2:3
Because SUPPLY participates in two sets, the Bachman diagram in Figure 7–2
shows the set relationships for SUPPLY. Notice the SUPPLY record has a SUP_
RATING equal to 0. Therefore, you can test the next DML statement.
dbq> MODIFY SUP_RATING
SUP_RATING [CHARACTER(1)]= 5
Notice how the MODIFY statement causes DBQ to issue a prompt, as shown in
the preceding statement. When you MODIFY or STORE a record, DBQ prompts
you for data entry by displaying the data name and its attributes. After entering
the new SUP_RATING, use the RETURN key to execute the MODIFY statement.
Because this MODIFY statement does not change currency, the Bachman diagram
in Figure 7–3 is the same as the one in Figure 7–2. Also, DBQ does not display
currency update messages.
Debugging and Testing HP COBOL DML Programs 7–5