一段Oracle EBS中给指定用户增加指定职责的PLSQL脚本 - 数据库编程

;
fnd_user_pkg.addresp (
username => l_tab_user_list (idx_tab_user_list)
,resp_app => l_tab_resp (1).application_short_name
,resp_key => l_tab_resp (1).responsibility_key
,security_group => l_tab_resp (1).security_group_key
,description => NULL
,start_date => TRUNC (SYSDATE)
,end_date => NULL);
<> null;
END LOOP loop_arr_resp_list;
<> null;
END LOOP loop_tab_user_list;
COMMIT;
EXCEPTION
WHEN expt_no_user
THEN
DBMS_OUTPUT.put_line (l_expt_msg);
ROLLBACK;
WHEN expt_no_resp
THEN
DBMS_OUTPUT.put_line (l_expt_msg);

ROLLBACK;
END;

/*
>>> 1 , working for user (LIAO) <<<
Adding resp (system Administrator) for user (LIAO)
Adding resp (Purchasing Super User) for user (LIAO)
resp (Application Administrator) is not exist or disabled
>>> 2 , working for user (KARL) <<<
Adding resp (system Administrator) for user (KARL)
Adding resp (Purchasing Super User) for user (KARL)
resp (Application Administrator) is not exist or disabled
>>> 3 , working for user (xx) <<<
user (xx) is not exist or disabled
*/

/*
1. The Oracle PL/SQL GOTO Statement
http://psoug.org/definition/GOTO.htm
*/

一段Oracle EBS中给指定用户增加指定职责的PLSQL脚本(二)