Creating a Concurrent Programe From Backend in Oracle

/*======================================================

FILE NAME :

VERSION : 1

OBJECT NAME: Creating a Concurrent Programe From Backend

OBJECT TYPE: PRIVATE PROCEDURE

PARAMETERS :

==========

NAME TYPE DESCRIPTION

----------------- -------- ---------------------------------------------

P_

RETURNS : --If Necessary

HISTORY :

=======

ver date author Modification

========================================================*/

DECLARE

l_message VARCHAR2 (30000);

l_ret_code NUMBER := 0;

l_message1 VARCHAR2 (30000);

l_ret_code1 NUMBER := 0;

l_message2 VARCHAR2 (30000);

l_ret_code2 NUMBER := 0;

l_message3 VARCHAR2 (30000);

l_ret_code3 NUMBER := 0;

l_message4 VARCHAR2 (30000);

l_ret_code4 NUMBER := 0;

BEGIN

BEGIN

xx_aa_conc_util_pkg.create_program (

p_application => 'Application Short Name',

p_short_name => 'Concurrent Programe Short Name',

p_executable_name => 'Excutable Short Name',

p_program_name => 'Concurrent Programe Name',

p_description => 'Concurrent Programe Description',

p_execution_method => 'Concurrent Programe Excution Method',

p_exe_file_name => 'Excution File Name',

p_request_group => 'Request Group Group Name',

p_group_application => 'Request Group Group Application Short Name',

p_enabled => 'Y',

p_subroutine_name => NULL,

p_execution_options => NULL,

p_priority => NULL,

p_save_output => 'Y',

p_print => 'Y',

p_cols => NULL,

p_rows => NULL,

p_style => NULL,

p_style_required => 'N',

p_printer => NULL,

p_request_type => NULL,

p_request_type_application => NULL,

p_use_in_srs => 'Y',

p_restart => 'Y',

p_allow_disabled_values => 'N',

p_run_alone => 'N',

x_ret_code => l_ret_code,

x_ret_message => l_message);

DBMS_OUTPUT.put_line ('Return Message :' || l_message);

COMMIT;

IF l_ret_code = 0

THEN

l_ret_code := 0;

l_message := NULL;

COMMIT;

END IF;

END;

END;