ORACLE EBS输出文件

ihbnqimgkw

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;