Back End Subbmission

Creating and Submitting the Concurrent Program Backend
1. Creating Executable Back end:
BEGIN
fnd_program.executable ('Executable Name',
'Application Name',
'Executable Short Name',
'Description',
'Execution Method',
'Execution File Name'
);
END;
commit;
BEGIN
fnd_program.delete_executable ('Executable Short Name',
'Application Name');
END;
commit;
Example:
BEGIN
fnd_program.executable ('xxmail',
'XXMZ Custom',
'XXMAIL_SH',
'MAIL SENDING',
'Host',
'XXMAIL'
);
END;
BEGIN
fnd_program.delete_executable ('XXMAIL_SH', 'XXMZ Custom');
END;
2. Creating Concurrent Program Back End:
BEGIN
fnd_program.REGISTER ('Program Name',
'Application Name',
'Enabled Flag(Y/N)',
'Short_Name for Program',
'Executable_Short_Name',
'Executable_Application_Name',
'Output_Type(TEXT/PDF/XML/--)'
);
END;
commit;
BEGIN
fnd_program.delete_program('Program Short Name', 'Application Name');
END;
commit;
Example:
BEGIN
fnd_program.REGISTER (program => 'XXMAIL_P',
application =>'XXMZ Custom',
enabled => 'Y',
short_name => 'XXMAIL_PH',
executable_short_name => 'XXMAIL_SH',
executable_application => 'XXMZ Custom',
output_type => 'TEXT'
);
END;
commit;
BEGIN
fnd_program.delete_program ('XXMAIL_PH', 'XXMZ Custom');
END;
commit;
To find user_id,Responsibility_id,resp_application_id
SELECT fur.user_id, fur.responsibility_id,
fur.responsibility_application_id
FROM fnd_user_resp_groups fur,
fnd_user fu,
fnd_application fav,
fnd_responsibility_tl frt
WHERE fu.user_id = fur.user_id
AND fur.responsibility_application_id = fav.application_id
AND frt.responsibility_id = fur.responsibility_id
AND fu.user_id = frt.created_by
AND fav.application_short_name = 'SQLAP'//SHORTNAME OF THE APPLICATION
AND fu.user_name = 'OPERATIONS' //USER NAME
3. Submitting the Concurrent Program Back end
CREATE OR REPLACE PROCEDURE conc_proc
IS
l_request_id NUMBER;
BEGIN
fnd_global.apps_initialize (user_id => 1318,
resp_id => 50554,
resp_appl_id => 200
);
COMMIT;
l_request_id :=
fnd_request.submit_request (application => 'SQLAP',
program => 'XXMAIL_P'
);
COMMIT;
IF l_request_id != 0
THEN
DBMS_OUTPUT.put_line('program submitted successfully::'
|| l_request_id
);
-- Fnd_File.put_line ( Fnd_File.LOG,'Program succesfully
submitteed:'l_request_id );
ELSE
DBMS_OUTPUT.put_line('hai the program notsubmitted
successfully::'|| l_request_id);
--Fnd_File.Put_line(Fnd_File.LOG,'Program Not succesfully submitteed
There are some errors:'l_request_id);
END IF;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('Exception Raised:');
--Fnd_File.Put_line(Fnd_File.LOG,'Exception raised at the time of
submission');
--END;
END conc_proc;
--end;
/
***hari bodela***