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 '%iSupplier Portal 完全访问%' --职责名称
)
loop
fnd_user_pkg.addresp(USERNAME => upper('A2371'), --账户名
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;