ebs 根据一个用户的创建另外一个用户并添加职责

--创建用户
DECLARE
v_user_name VARCHAR2 (100) := upper('&Enter_User_Name');
v_description VARCHAR2 (100) := 'NEW Test User';
BEGIN
fnd_user_pkg.createuser
(x_user_name => v_user_name,
x_owner => NULL,
x_unencrypted_password => '&input_password',
x_session_number => 0,
x_start_date => SYSDATE,
x_end_date => NULL,
x_last_logon_date => NULL,
x_description => v_description,
x_password_date => NULL,
x_password_accesses_left => NULL,
x_password_lifespan_accesses => NULL,
x_password_lifespan_days => NULL,
x_employee_id => NULL,
x_email_address => NULL,
x_fax => NULL,
x_customer_id => NULL,
x_supplier_id => NULL,
x_user_guid => NULL,
x_change_source => NULL
);
COMMIT;
END;

select * from fnd_user a where a.user_name='TEST'

DECLARE
v_user_name VARCHAR2(100) := upper('&Enter_User_Name');
v_description VARCHAR2(100) := 'New User';
v_app_short_name VARCHAR2(100);
v_resp_key VARCHAR2(100);
CURSOR user_cur IS
select a.application_short_name, r.responsibility_key
from fnd_responsibility_vl r, fnd_application_vl a
where r.application_id = a.application_id
and R.responsibility_ID IN
(SELECT RESPONSIBILITY_ID
FROM fnd_user_resp_groups
WHERE USER_ID = '&from_userid'
AND END_dATE IS NULL);
user_rec user_cur%ROWTYPE;
BEGIN
fnd_user_pkg.createuser(x_user_name => v_user_name,
x_owner => NULL,
x_unencrypted_password => '&input_password',
x_session_number => 0,
x_start_date => SYSDATE,
x_end_date => NULL,
x_last_logon_date => NULL,
x_description => v_description,
x_password_date => NULL,
x_password_accesses_left => NULL,
x_password_lifespan_accesses => NULL,
x_password_lifespan_days => NULL,
x_employee_id => NULL,
x_email_address => NULL,
x_fax => NULL,
x_customer_id => NULL,
x_supplier_id => NULL,
x_user_guid => NULL,
x_change_source => NULL);
COMMIT;
OPEN user_cur;
LOOP
FETCH user_cur
INTO user_rec;
EXIT WHEN user_cur%NOTFOUND;
fnd_user_pkg.addresp(username => v_user_name,
resp_app => user_rec.application_short_name,
resp_key => user_rec.responsibility_key,
security_group => 'STANDARD',
description => NULL,
start_date => SYSDATE,
end_date => null);
END LOOP;
CLOSE user_cur;
commit;
END;