自定义报表开发(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;