Oracle EBS批量给账户添加职责

begin
   for i in (select V.RESPONSIBILITY_KEY, ap.APPLICATION_SHORT_NAME
               from fnd_responsibility_vl v, fnd_application_vl ap
              where v.APPLICATION_ID = ap.APPLICATION_ID
                    and v.RESPONSIBILITY_NAME like '%AP%在线%' --职责名称
             )
   loop   
      fnd_user_pkg.addresp(USERNAME       => upper('YANGSHIXIAN'), --账户名
                           RESP_APP       => i.APPLICATION_SHORT_NAME,
                           RESP_KEY       => i.responsibility_key,
                           SECURITY_GROUP => 'STANDARD',
                           DESCRIPTION    => '后台脚本给用户添加职责',
                           START_DATE     => sysdate,
                           END_DATE       => null);
   
   end loop;
   commit;
end;