/* Below script adds Sys Admin Responsibility to user FIRST.LAST*/
DECLARE
lc_user_name VARCHAR2 (100) := 'FIRST.LAST';
lc_resp_appl_short_name VARCHAR2 (100) := 'SYSADMIN';
lc_responsibility_key VARCHAR2 (100) := 'SYSTEM_ADMINISTRATOR';
lc_security_group_key VARCHAR2 (100) := 'STANDARD';
ld_resp_start_date DATE := SYSDATE;
ld_resp_end_date DATE := NULL;
BEGIN
fnd_user_pkg.addresp (
username => lc_user_name,
resp_app => lc_resp_appl_short_name,
resp_key => lc_responsibility_key,
security_group => lc_security_group_key,
description => NULL,
start_date => ld_resp_start_date,
end_date => ld_resp_end_date
);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
DBMS_OUTPUT.put_line (SQLERRM);
END;
/
DECLARE
lc_user_name VARCHAR2 (100) := 'FIRST.LAST';
lc_resp_appl_short_name VARCHAR2 (100) := 'SYSADMIN';
lc_responsibility_key VARCHAR2 (100) := 'SYSTEM_ADMINISTRATOR';
lc_security_group_key VARCHAR2 (100) := 'STANDARD';
ld_resp_start_date DATE := SYSDATE;
ld_resp_end_date DATE := NULL;
BEGIN
fnd_user_pkg.addresp (
username => lc_user_name,
resp_app => lc_resp_appl_short_name,
resp_key => lc_responsibility_key,
security_group => lc_security_group_key,
description => NULL,
start_date => ld_resp_start_date,
end_date => ld_resp_end_date
);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
ROLLBACK;
DBMS_OUTPUT.put_line (SQLERRM);
END;
/
No comments:
Post a Comment