EBS代码提交请求

Posted 2020-07-22

提交请求

用来提交一个请求,它返回一个NUMBER值.具体调用如下

:RESULT := fnd_request.submit_request(application, --AP模快
                                      program, --应用程序
                                      description, --请求说明(可选)
                                      start_time, --RUN 时间(可选)
                                      sub_request, --立刻提交请求
                                      argument1, --参数1
                                      argument2, --参数2
                                      argument3, --参数3
                                      argument4, --参数4
                                      argument5, --参数5.......
                                      argument100);

• application:Short name of the application associated with the concurrent request to be submitted.
• program:Short name of the concurrent program (not the executable) for which the request should be submitted.
• description:Description of the request that is displayed in the Concurrent Requests form (Optional.)
• start_time:Time at which the request should start running, formatted as HH24:MI or HH24:MI:SS (Optional.)
• sub_request:Set to TRUE if the request is submitted from another request and should be treated as a sub-request.
• argument1...100:Arguments for the concurrent request; up to 100 arguments are permitted. If submitted from Oracle Forms, you must specify all 100 arguments.

输出请求编号

必须Commit，才能输出结果！

fnd_message.set_string(‘已提交请求，编号：‘||to_char(v_request_id)||);
fnd_message.show;

等待请求结束

FUNCTION fnd_concurrent.wait_for_request(request_id IN NUMBER DEFAULT NULL, --请求ID
                                         INTERVAL   IN NUMBER DEFAULT 60, --检查时间间隔
                                         max_wait   IN NUMBER DEFAULT 0, --最大等待时间
                                         phase      OUT VARCHAR2,
                                         status     OUT VARCHAR2,
                                         dev_phase  OUT VARCHAR2, --请求运行阶段
                                         dev_status OUT VARCHAR2, --各个阶段状态
                                         message    OUT VARCHAR2 --运行完成后输出信息
                                         ) RETURN BOOLEAN;

例子

po_req_num := fnd_request.submit_request(application => ‘‘,
                                         program     => ‘‘,
                                         sub_request => FALSE,
                                         argument1   => NULL);
COMMIT;
v_request_status := fnd_concurrent.wait_for_request(po_req_num,
                                                    3,
                                                    30,
                                                    x_phase,
                                                    x_status,
                                                    x_dev_phase,
                                                    x_dev_status,
                                                    x_message);
IF v_request_status THEN
    IF x_dev_status = ‘NORMAL‘ THEN
        po_req_status := ‘S‘;
    ELSE
        po_req_status := ‘U‘;
    END IF;
ELSE
    po_req_status := ‘E‘;
END IF;

来自为知笔记(Wiz)