oracle生成mif图层,深入浅出Oracle EBS之条码打印

CREATE OR REPLACE PACKAGE BODY cux_barcode_pkg IS

--main

PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS

BEGIN

--fnd_file.put_line(fnd_file.output,dbms_xmlgen.getxml('select * from cux_barcode_data'));

--上面这句直接输出有点问题，需要经过处理；为简单起见，我们直接输出，结果一样 fnd_file.put_line(fnd_file.output,

'

1

1234567890

2

ABCDEFGHIJ

3

4590JLMPIU

');

END;

END;

/

定义可执行程序和并发程序

N: System Adminsitrator/Concurrent/Program/Excutable&Define

定义可执行CUXBARCODE01，用cux_barcode_pkg.main

定义并发程序CUXBARCODE01，输出格式为XML

生成XML格式的样例数据文件

N: APPS/APPS@PROD

执行上述main或者select dbms_xmlgen.getxml('select * from cux_barcode_data') from dual可生成如下结果：

1

1234567890

2

ABCDEFGHIJ

3