Technical data

Figure 7–6 Split Screen After FETCH NEXT WITHIN PART_SUPPLY
maintainedCURRENTLegend: POSITION null
ZK−6073−GE
SUPPLY
PART
PART_SUPPLY VENDOR_SUPPLY
%DBM − I − CURDISPLA, Currency for run unit is 3:2:2
%DBM − I − CURDISPLA, Currency for PART_SUPPLY set type is 3:2:2
%DBM − I − CURDISPLA, Currency for VENDOR_SUPPLY set type is 3:2:2
%DBM − I − CURDISPLA, Currency for SUPPLY record type is 3:2:2
SUP_RATING = 0
SUP_TYPE = WSUP
SUP_LAG_TIME = 1−2 WEEKS
%DBM − I − CURDISPLA, Currency for MARKETS realm is 3:2:2
VENDOR
To show that the record is indeed the second SUPPLY record belonging to the
first PART record, execute the following statement:
dbq> FETCH 2 WITHIN PART_SUPPLY
Debugging and Testing HP COBOL DML Programs 7–9