在PL/SQL中提交Request-CSDN博客

declare
l_request_id number;
p_message    varchar2(255);

v_app         varchar2(30);
v_name        varchar2(30);
v_method      varchar2(30);
v_source_file varchar2(80);
v_desc        varchar2(80);

begin

v_app         := 'INV'; --簡稱
V_NAME        := 'IMPORT_MES_PROD_ATT_TO_INFCE1'; --
v_method      := 'PL/SQL Stored Procedure';--SQL*Plus PL/SQL Stored Procedure
V_SOURCE_FILE := 'TJ_ONT_ITEM_CATALOG_PKG.import_mes_prod_att_to_infce';
v_desc        := '拋轉MES料號屬性資料到臨時表1';

   --fnd_global.APPS_INITIALIZE(1001934, 20560, 706, NULL);
fnd_global.APPS_INITIALIZE(1001934, 20707, 201, NULL); --PURCHASING SUPER
l_request_id := apps.FND_REQUEST.submit_request(v_app, --'Oracle Purchasing',
                                                  V_NAME,
                                                  v_desc,
                                                  TO_CHAR(SYSDATE,
                                                          'YYYY/MM/DD HH24:MI:SS'),
                                                  FALSE,
                                                  null,
                                                  'Standard',
                                                  null,
                                                  'No',
                                                  'No',
                                                  'Incomplete',
                                                  null,
                                                  null,
                                                  chr(0));
if l_request_id > 0 then
    p_message := 'Request ID : ' || to_char(l_request_id);
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    commit;
else
    p_message := apps.fnd_message.get;
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    rollback;
end if;
end;