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;create or replace package body page_test_pkg as
PR
