DECLARE
l_responsibility_id NUMBER;
l_application_id NUMBER;
l_user_id NUMBER;
l_request_id NUMBER;
BEGIN
SELECT DISTINCT fr.responsibility_id, frx.application_id
INTO l_responsibility_id, l_application_id
FROM fnd_responsibility frx, fnd_responsibility_tl fr
WHERE fr.responsibility_id = frx.responsibility_id
AND fr.responsibility_name LIKE 'System Administrator';
SELECT user_id
INTO l_user_id
FROM fnd_user
WHERE user_name = 'TEST_USER';
--To set environment context.
fnd_global.apps_initialize (l_user_id
,l_responsibility_id
,l_application_id );
--Submitting Concurrent Request
l_request_id :=
fnd_request.submit_request (application => 'FND',
program => 'FNDWFBG',
description => 'Workflow background process for deferred and timeout activities',
start_time => SYSDATE,
sub_request => FALSE,
argument1 => NULL,
argument2 => NULL,
argument3 => NULL,
argument4 =>'YES',
argument5 =>'YES',
argument6 =>'YES'
);
--
COMMIT;
IF l_request_id = 0
THEN
DBMS_OUTPUT.put_line ('Concurrent request
failed to submit');
ELSE
DBMS_OUTPUT.put_line ('Successfully
Submitted the Concurrent Request'|| l_request_id);
END IF;
--
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ( 'Error While Submitting
Concurrent Request '
|| TO_CHAR (SQLCODE)
|| '-'
|| SQLERRM
);
END;
/
l_responsibility_id NUMBER;
l_application_id NUMBER;
l_user_id NUMBER;
l_request_id NUMBER;
BEGIN
SELECT DISTINCT fr.responsibility_id, frx.application_id
INTO l_responsibility_id, l_application_id
FROM fnd_responsibility frx, fnd_responsibility_tl fr
WHERE fr.responsibility_id = frx.responsibility_id
AND fr.responsibility_name LIKE 'System Administrator';
SELECT user_id
INTO l_user_id
FROM fnd_user
WHERE user_name = 'TEST_USER';
--To set environment context.
fnd_global.apps_initialize (l_user_id
,l_responsibility_id
,l_application_id );
--Submitting Concurrent Request
l_request_id :=
fnd_request.submit_request (application => 'FND',
program => 'FNDWFBG',
description => 'Workflow background process for deferred and timeout activities',
start_time => SYSDATE,
sub_request => FALSE,
argument1 => NULL,
argument2 => NULL,
argument3 => NULL,
argument4 =>'YES',
argument5 =>'YES',
argument6 =>'YES'
);
--
COMMIT;
IF l_request_id = 0
THEN
DBMS_OUTPUT.put_line ('Concurrent request
failed to submit');
ELSE
DBMS_OUTPUT.put_line ('Successfully
Submitted the Concurrent Request'|| l_request_id);
END IF;
--
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ( 'Error While Submitting
Concurrent Request '
|| TO_CHAR (SQLCODE)
|| '-'
|| SQLERRM
);
END;
/
No comments:
Post a Comment