Any scripts for producing registration scripts for concurrent pgms?

Question

Hi all
After I register concurrent executable, program, any custom values-sets, parameters, and adding to request group for any type of concurrent program(ex:report/host/plsql procedure) using application developer form screens, does any one have script that I can run to get the registration script out of oracle seeded tables for any given concurrent program.?
Any useful links also will be helpful.
I am looking for any script that should be produced, so that I can run the script next time to register the same insted of going through the application developer forms screens again and again. The script should register executable, program, parameters, request group, value-sets etc.,
I may be able to register the script into apps as concurrent program.
Thanks
RRB.
null

Answer 1

-- SQL Program which creates the concurrent program REP305, and the other application objects.
SET SERVEROUTPUT ON;
DECLARE
-- Count for the number of the parameters
n_para_count NUMBER(2) := 3;
v_program_short_name VARCHAR2(30) := 'REP305';
-- Short Name of the program
-- Also the name of the executable
v_program_long_name VARCHAR2(240) := 'Program Status Summary - YTD';
-- Printer definintions
v_printer VARCHAR2(30) := NULL;
-- Name of the Printer
n_cols NUMBER(3) := 180;
-- Number of columns in the report
n_rows NUMBER(3) := 45;
-- Number of rows in the report
v_style VARCHAR2(30) := 'LANDWIDE -HPLJ4';
-- Style of the report
b_create BOOLEAN := TRUE;
-- Variable to control the creation of the program
v_program_application VARCHAR2(30) := 'Extensions';
-- Application of the concurrent program
v_group_application VARCHAR2(30) := 'Extensions';
-- Application of the request group
v_request_group VARCHAR2(30) := 'All Programs';
-- The name of the request group
-- Boolean Variables for checking existence of objects
b_program_in_group BOOLEAN;
b_executable_exists BOOLEAN;
b_program_exists BOOLEAN;
b_parameter_exists BOOLEAN;
-- variable for holding the current executing object
v_cur_object VARCHAR2(2000);
v_error_message VARCHAR2(2000);
TYPE rectype_para IS RECORD
program_short_name VARCHAR2(30),
application VARCHAR2(30),
sequence NUMBER(2),
parameter VARCHAR2(40),
description VARCHAR2(240),
enabled VARCHAR2(1),
value_set VARCHAR2(30),
default_type VARCHAR2(30),
default_value VARCHAR2(200),
required VARCHAR2(1),
enable_security VARCHAR2(1),
range VARCHAR2(30),
display VARCHAR2(1),
display_size NUMBER(3),
description_size NUMBER(3),
concatenated_description_size NUMBER(3),
prompt VARCHAR2(80),
token VARCHAR2(30));
TYPE tab_type_para IS TABLE OF rectype_para
INDEX BY BINARY_INTEGER;
table_para tab_type_para;
BEGIN
-- Assigning the values needed for each parameter
table_para(1).parameter := 'PA_PERIOD_NAME';
table_para(1).value_set := 'VS_PERIOD'; -- All Periods
table_para(1).prompt := 'Period Name';
table_para(1).token := 'P_PA_PERIOD_NAME';
table_para(1).required := 'Y';
table_para(1).display := 'Y';
table_para(2).parameter := 'PA_RECORDING_ENTITY';
table_para(2).value_set := 'VS_RECORDING_ENTITY';
table_para(2).prompt := 'Recording Entity';
table_para(2).token := 'P_PA_REC_ENTITY';
table_para(2).required := 'N';
table_para(2).display := 'Y';
table_para(3).parameter := 'PA_RESP_ORG_NAME';
table_para(3).value_set := 'VS_PROJ_OWNER_ORG';
table_para(3).prompt := 'Project Responsible Organization';
table_para(3).token := 'P_PA_RESP_ORG_NAME';
table_para(3).required := 'N';
table_para(3).display := 'Y';
b_executable_exists := FND_PROGRAM.EXECUTABLE_EXISTS
(executable_short_name => v_program_short_name,
application => v_program_application);
-- Deletes the program
b_program_exists := FND_PROGRAM.PROGRAM_EXISTS
(program => v_program_short_name,
application => v_program_application);
IF b_program_exists
THEN
FND_PROGRAM.DELETE_PROGRAM
(program_short_name => v_program_short_name,
application => v_program_application);
DBMS_OUTPUT.PUT_LINE(v_program_short_name | | ' concurrent program deleted');
END IF;
-- Deletes the executable
IF b_executable_exists
THEN
FND_PROGRAM.DELETE_EXECUTABLE
(executable_short_name => v_program_short_name,
application => v_program_application);
DBMS_OUTPUT.PUT_LINE(v_program_short_name | | ' executable deleted');
END IF;
IF b_create = FALSE
THEN
COMMIT;
RETURN;
END IF;
v_cur_object := 'Executable ' | | v_program_short_name;
-- Assigning the c urrent executing object to the error variable
-- Creates the executable
FND_PROGRAM.EXECUTABLE
(executable => v_program_short_name,
application => v_program_application,
short_name => v_program_short_name,
description => v_program_short_name,
execution_method => 'Oracle Reports',
execution_file_name => v_program_short_name,
subroutine_name => NULL,
icon_name => NULL,
language_code => 'US');
DBMS_OUTPUT.PUT_LINE(v_program_short_name | | ' executable created');
-- Creates the Concurrent Program
v_cur_object := 'Concurrent Program ' | | v_program_short_name;
FND_PROGRAM.REGISTER(program => v_program_long_name,
application => v_program_application,
enabled => 'Y',
short_name => v_program_short_name ,
description => v_program_long_name,
executable_short_name => v_program_short_name,
executable_application => v_program_application,
execution_options => NULL,
priority => NULL,
save_output => 'Y',
print => 'Y',
cols => n_cols,
rows => n_rows,
style => v_style,
style_required => 'N',
printer => v_printer,
request_type => NULL,
request_type_application => NULL,
use_in_srs => 'Y',
allow_disabled_values => 'N',
run_alone => 'N',
language_code => 'US');
DBMS_OUTPUT.PUT_LINE(v_program_short_name | | ' concurrent program created');
-- Creates all the parameters needed for the concurrent program
for i IN 1..n_para_count
LOOP
table_para(i).program_short_name := v_program_short_name;
table_para(i).application := v_program_application;
table_para(i).sequence := i;
table_para(1).description := NULL;
table_para(i).enabled := 'Y';
--table_para(i).default_type := NULL;
--table_para(i).default_value := NULL;
table_para(i).enable_security := 'N';
table_para(i).range := NULL;
--table_para(i).display := 'Y';
table_para(i).display_size := 30;
table_para(i).description_size := 50;
table_para(i).concatenated_description_size := 25;
v_cur_object := 'Parameter ' | | table_para(i).parameter;
FND_PROGRAM.PARAMETER(
program_short_name => table_para(i).program_short_name ,
application => table_para(i).application ,
sequence => table_para(i).sequence ,
parameter => table_para(i).parameter,
description => table_para(i).description ,
enabled => table_para(i).enabled ,
value_set => table_para(i).value_set ,
default_type => table_para(i).default_type ,
default_value => table_para(i).default_value ,
required => table_para(i).required ,
enable_security => table_para(i).enable_security,
range => table_para(i).range ,
display => table_para(i).display ,
display_size => table_para(i).display_size,
description_size => table_para(i).description_size ,
concatenated_description_size => table_para(i).concatenated_description_size ,
prompt => table_para(i).prompt,
token => table_para(i).token);
DBMS_OUTPUT.PUT_LINE( 'Parameter ' | | table_para(i).parameter | | ' created.');
END LOOP;
-- Adding the concurrent program to the request group
FND_PROGRAM.add_to_group(
program_short_name => v_program_short_name,
program_application => v_program_application,
request_group => v_request_group,
group_application => v_group_application);
DBMS_OUTPUT.PUT_LINE(v_program_short_name | | ' added to ' | | v_request_group);
EXCEPTION
WHEN OTHERS THEN
v_error_message := FND_PROGRAM.MESSAGE;
v_cur_object := v_cur_object | | '' | | v_error_message;
ROLLBACK;
RAISE_APPLICATION_ERROR(-20000, 'Error Occured while creating ' | | v_cur_object);
END;
COMMIT;
SET SERVEROUTPUT OFF;
--EXIT;