自定义报表开发(HTML/XML)

--创建包头

CREATE OR REPLACE PACKAGE XXPLM_AARONTEST001 IS

PROCEDURE MAIN(errbuf OUT VARCHAR2,

reccode OUT NUMBER,

???????? cnt IN NUMBER);

????END;

?

注意：这里的两个参数errbuf OUT VARCHAR2,reccode OUT NUMBER

必须要带，即使不使用。

--创建包体

CREATE OR REPLACE PACKAGE BODY XXPLM_AARONTEST001 IS

PROCEDURE MAIN(errbuf OUT VARCHAR2,

reccode OUT NUMBER,

???????????? cnt IN NUMBER) IS

v_cnt NUMBER := 0;

????BEGIN

--log

fnd_file.put_line(fnd_file.log, ‘**************************‘);

fnd_file.put_line(fnd_file.log,

‘Program Start :‘ ||

to_char(SYSDATE, ‘YYYY/MM/DD HH24:MI:SS‘));

fnd_file.put_line(fnd_file.log, ‘**************************‘);

--create xml file

fnd_file.put_line(fnd_file.output, ‘<XXPLM_AARONTEST002>‘);

fnd_file.put_line(fnd_file.output, ‘<LIST_DETAIL>‘);

--LINE OUTPUT

WHILE v_cnt < cnt LOOP

???????????????????? fnd_file.put_line(fnd_file.output, ‘<LIST_DATA>‘);

???????????????????? fnd_file.put_line(fnd_file.output,

‘<b>‘ || v_cnt || ‘</b>‘);

???????????????????? fnd_file.put_line(fnd_file.output, ‘</LIST_DATA>‘);

v_cnt := v_cnt + 1;

END LOOP;

???????? --create xml file

???? fnd_file.put_line(fnd_file.output, ‘</LIST_DETAIL>‘);

fnd_file.put_line(fnd_file.output, ‘</XXPLM_AARONTEST002>‘);

?

END MAIN;

END;

--进行测试

DECLARE

errbuf VARCHAR2(100);

???? reccode NUMBER;

BEGIN

???? XXPLM_AARONTEST002.MAIN(errbuf,reccode,2);

END;