创建用户并添加职责

--创建用户
begin
fnd_user_pkg.CreateUser( 'S2018','','QWER1234');
commit;
end;

--批量添加职责
declare
cursor c_c is
select fa.APPLICATION_SHORT_NAME，
            fr.RESPONSIBILITY_NAME,
            fr.RESPONSIBILITY_KEY,
            upper(fdg.data_group_name)  dg,
            'test' des,fr.*
  from FND_RESPONSIBILITY_VL fr, fnd_application_vl fa,fnd_data_groups fdg
 where fr.APPLICATION_ID = fa.APPLICATION_ID
 and fr.DATA_GROUP_ID=fdg.data_group_id
   and fr.RESPONSIBILITY_NAME like  '1100%';
BEGIN
 -- fnd_user_pkg.CreateUser( 'SIE_LZC2018','','QWER1234');
 for c in c_c loop
  fnd_user_pkg.AddResp(username =>  'SIE_LZC2018',
                                             resp_app =>c.APPLICATION_SHORT_NAME,
                                             resp_key =>c.RESPONSIBILITY_KEY,
                                             security_group => c.dg,
                                             description =>c.des,
                                             start_date =>sysdate,
                                             end_date =>null );
COMMIT;
end loop;
END;