ORA-20001: APP-FND-02604

Question

Hi,
I applied this :
Declare
Cursor C1 is
select d.product_code,b.responsibility_key from FND_USER_RESP_GROUPS_ALL a,fnd_responsibility b,fnd_user c,fnd_application d
where a.user_id = c.user_id
and a.responsibility_id = b.responsibility_id
and b.application_id = d.application_id
and c.user_name ='SYSADMIN'; -- user you want to copy
BEGIN
for v in c1 loop
FND_USER_PKG.AddResp('MYUSER',v.product_code, v.responsibility_key,
'STANDARD', 'DESCRIPTION', sysdate, null);
end loop;
END;
and I have this :
Input truncated to 1 characters
Declare
ERROR at line 1:
ORA-20001: APP-FND-02604:
APPLICATION_SHORT_NAME=GL, RESPONSIBILITY_KEY=GENERAL_LEDGER_SUPER_USER,
SECURITY_GROUP=STANDARD.
ORA-06512: "APPS.APP_EXCEPTION", line 70
ORA-06512: "APPS.FND_USER_PKG", line 2140
ORA-06512: line 11
Do you have any idea ? Thanks for your help.
Regards.

Answer 1

It copy the FND responsabilities of a user (for me system) on another user (MYUSER)
It is the package :
/Data/oracle/d03/prdaappl/fnd/11.5.0/patch/115/sql/AFSCUSRB.pls
in which :
-- AddResp (PUBLIC)
-- For a given user, attach a valid responsibility.
-- If user name or application short name or responsbility key name
-- or security group key is not valid, exception raised with error message.
-- Usage example in pl/sql
-- begin fnd_user_pkg.addresp('SCOTT', 'FND', 'APPLICATION_DEVELOPER',
-- 'STANDARD', 'DESCRIPTION', sysdate, null); end;
-- Input (Mandatory)
-- username: User Name
-- resp_app: Application Short Name
-- resp_key: Responsibility Key
-- security_group: Security Group Key
-- description: Description
-- start_date: Start Date
-- end_date: End Date
procedure AddResp(username varchar2,
resp_app varchar2,
resp_key varchar2,
security_group varchar2,
description varchar2,
start_date date,
end_date date) is
userid number := -1;
respid number := -1;
appid number := -1;
secid number := -1;
begin
begin
select user_id into userid
from fnd_user
where user_name = AddResp.username;
select application_id into appid
from fnd_application
where application_short_name = AddResp.resp_app;
select responsibility_id into respid
from fnd_responsibility
where application_id = appid
and responsibility_key = AddResp.resp_key;
select security_group_id into secid
from fnd_security_groups
where security_group_key = AddResp.security_group;
exception
when no_data_found then
fnd_message.set_token('USER_NAME', username);
fnd_message.set_name('FND', 'INVALID_RESPONSIBILITY_DATA');
fnd_message.set_token('APPS_NAME', resp_app);
fnd_message.set_token('RESP_KEY', resp_key);
fnd_message.set_token('SECURITY_GROUP', security_group);
app_exception.raise_exception;
end;
if (fnd_user_resp_groups_api.assignment_exists(
userid, respid, appid, secid)) then
fnd_user_resp_groups_api.update_assignment(
user_id => userid,
responsibility_id => respid,
responsibility_application_id => appid,
security_group_id => secid,
start_date => AddResp.start_date,
end_date => AddResp.end_date,
description => AddResp.description);
else
fnd_user_resp_groups_api.insert_assignment(
user_id => userid,
responsibility_id => respid,
responsibility_application_id => appid,
security_group_id => secid,
start_date => AddResp.start_date,
end_date => AddResp.end_date,
description => AddResp.description);
end if;
end AddResp;
Best regards.