--Create Package body CREATEORREPLACEpackageBODY xxplm_aarontest001 is PROCEDUREMAIN(errbuf outVARCHAR2, 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; ENDLOOP; ???????? --create XML file ???? Fnd_file.put_line(fnd_file.output,' </LIST_DETAIL> '); Fnd_file.put_line(fnd_file.output,' </XXPLM_AARONTEST002> '); ? ENDMAIN; END; |