因为要将行里头的数据逐条取出进行处理。
Code1
GO_BLOCK(Block_Name);2
FIRST_RECORD;3
LOOP4
..5
..6
..7
EXIT WHEN :SYSTEM.LAST_RECORD ='TRUE';--TRUE一定要大写！！！8
NEXT_RECORD;9
END LOOP; 10
11
begin12
go_block('HEK_OM_POP_LINES_V');13
first_record;14
loop15
if (:HEK_OM_POP_LINES_V.QUANTITY_2 IS NULL) then16
copy(:HEK_OM_POP_LINES_V.QUANTITY_1, ':HEK_OM_POP_LINES_V.QUANTITY_2');17
end if;18
19
if :system.last_record = 'TRUE' then20
exit;21
end if;22
next_record;23
end loop;24
end;
