64: G_debug_proc := 'Register_Loader_Program';
65: log_msg('Begin Register_Loader_Program');
66:
67: -- Create the SQL*Loader Executable using ctl file.
68: IF NOT FND_PROGRAM.executable_exists(G_ldr_program,'CE')
69: THEN
70: log_msg('Creating SQL*Loader executable-'||G_ctl_file);
71: FND_PROGRAM.executable(
72: executable => G_ctl_file || ': Executable for SQL*loader',
67: -- Create the SQL*Loader Executable using ctl file.
68: IF NOT FND_PROGRAM.executable_exists(G_ldr_program,'CE')
69: THEN
70: log_msg('Creating SQL*Loader executable-'||G_ctl_file);
71: FND_PROGRAM.executable(
72: executable => G_ctl_file || ': Executable for SQL*loader',
73: application => 'CE',
74: short_name => G_ldr_program,
75: execution_method => 'SQL*Loader',
79: log_msg(G_ldr_program||' Executable exists. Skipping Create');
80: END IF;
81:
82: -- Register the concurrent program.
83: IF NOT FND_PROGRAM.program_exists(G_ldr_program,'CE')
84: THEN
85: log_msg('Creating Concurrent Program - '||G_ctl_file);
86: FND_PROGRAM.register(
87: program => G_ctl_file || ': Run SQL*loader',
82: -- Register the concurrent program.
83: IF NOT FND_PROGRAM.program_exists(G_ldr_program,'CE')
84: THEN
85: log_msg('Creating Concurrent Program - '||G_ctl_file);
86: FND_PROGRAM.register(
87: program => G_ctl_file || ': Run SQL*loader',
88: application => 'CE',
89: enabled => 'Y',
90: short_name => G_ldr_program,
98: log_msg('End Register_Loader_Program');
99: RETURN FND_API.G_ret_sts_success;
100: EXCEPTION
101: WHEN OTHERS THEN
102: log_msg('EXCEPTION: '|| fnd_program.message());
103: log_msg('EXCEPTION: '|| sqlerrm);
104: RETURN FND_API.G_ret_sts_error;
105: END Register_Loader_Program;
106: