create or replace package body page_test_pkg as PROCEDURE output(p_text IN VARCHAR2) as BEGIN fnd_file.put_line(fnd_file.output, p_text); END output; procedure main(errbuf OUT VARCHAR2, retcode OUT NUMBER) as v_item varchar2(200); begin select distinct description || segment1 into v_item from mtl_system_items_b msi where segment1 = '100003592H0299A'; output('<?xml version="1.0"?>'); --- 文本 output('<html>....</html>'); --- HTML exception WHEN OTHERS THEN errbuf := 'ERROR'; retcode := 2; fnd_file.put_line(fnd_file.LOG, '运行出现错误,错误信息为:' || SQLERRM); output('运行失败,错误信息为:' || SQLERRM); end main; end page_test_pkg;
report builder
猜你喜欢
转载自cqh520llr.iteye.com/blog/2174577
今日推荐
周排行