lerrormessage varchar2(1000); out_file utl_file.file_type; out_file := utl_file.fopen('D_OUTPUT', 'FINISH_' || to_char(sysdate, 'yyyymmdd') || '.txt', 'W'); utl_file.put_line(out_file, '物料PartNo|组织|描述|单重G|单位|成本|类型|非保税发料|保税发料'); FOR v_t IN c_t LOOP utl_file.put_line(out_file, v_t.PartNo || ' | ' || v_t.org_id || ' | ' || v_t.description || ' | ' || v_t.weight_unit || ' | ' || v_t.PRIMARY_UNIT || '|' || v_t.Unit_Cost || '|' || v_t.ITEM_TYPE || '|' ||v_t.IN_issue|| '|' ||v_t.OUT_issue); END LOOP; utl_file.fclose(out_file);
模板: PROCEDURE Main IS lerrormessage varchar2(1000); out_file utl_file.file_type; CURSOR c_t IS SELECT 'a' a, 'b' b, 'c' c FROM dual; BEGIN out_file := utl_file.fopen('D_OUTPUT', 'a.txt', 'W'); FOR v_t IN c_t LOOP utl_file.put_line(out_file, 'a|b|c'); utl_file.put_line(out_file, v_t.a || ' | ' || v_t.b || ' | ' || v_t.c); utl_file.fclose(out_file); END LOOP; EXCEPTION WHEN OTHERS THEN lerrormessage := SQLERRM; END Main;