OPEN cur_main; LOOP FETCH cur_main INTO FLD_ROWID, FLD_取引先, FLD_商品, FLD_数量, FLD_金額, FLD_日付; if cur_main%NOTFOUND then EXIT; end if; END LOOP; CLOSE cur_main;