Technical data

Figure 7–1 Split Screen After FETCH FIRST PART USING PART_ID
PART_SUPPLY
%DBM − I − CURDISPLA, Currency for run unit is 1:2:7
%DBM − I − CURDISPLA, Currency for PART_SUPPLY set type is 1:2:7
%DBM − I − CURDISPLA, Currency for PART record type is 1:2:7
%DBM − I − CURDISPLA, Currency for MARKETS realm is 1:2:7
PART_ID = AZ177311
PART_DESC = GASKET
PART_STATUS = G
PART_SUPPORT = RE
supply
PART
maintainedCURRENTLegend: POSITION null
ZK−6067−GE
The next DML statement in Figure 7–2 is FETCH NEXT WITHIN PART_
SUPPLY. Although this statement is in a performed loop, you can still test its
logic by executing a series of FETCH NEXT WITHIN PART_SUPPLY until you
find a SUP_RATING equal to 0.
dbq> FETCH NEXT WITHIN PART_SUPPLY
7–4 Debugging and Testing HP COBOL DML Programs