Procedure to create Apps Users from Backend

declare
cursor c8 is
select name l_name,
id l_id,
res_name l_res_name,
description l_description
from list_of_employees;
l_responsibility_key varchar2(100) := NULL;
l_person_id number;
begin
-- Call the procedure
for r_c8 in c8 loop
/*select person_id
into l_person_id
from per_all_people_f
where employee_number = r_c8.l_id;

fnd_user_pkg.createuser(x_user_name => r_c8.l_name,
x_owner => 'CUST',
x_unencrypted_password => 'welcome',
x_description => r_c8.l_description,
x_employee_id => l_person_id);
select responsibility_key
into l_responsibility_key
from fnd_responsibility_vl
where responsibility_name = r_c8.l_res_name;

begin
fnd_user_pkg.addresp(r_c8.l_name,
'JA',
l_responsibility_key,
'STANDARD',
r_c8.l_res_name,
sysdate,
null);
end;*/
begin
-- Call the procedure
fnd_user_pkg.updateuser(x_user_name => r_c8.l_name,
x_owner => NULL,
x_unencrypted_password => NULL,
x_session_number => NULL,
x_start_date => NULL,
x_end_date => NULL,
x_last_logon_date => NULL,
x_description => r_c8.l_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_old_password => NULL);
end;
end loop;
end;