28: -- section_title
29: -- Purpose
30: -- Called to print title for each section
31: -- Parameters
32: -- which - log or output file? Either FND_FILE.LOG or FND_FILE.OUTPUT
33: -- title - title of section
34: --
35: -- --
36:
37: procedure section_title (which IN number,
38: title IN varchar2) is
39:
40: begin
41: FND_FILE.NEW_LINE(which);
42: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
43: FND_FILE.PUT_LINE(which, title);
44: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
45: end section_title;
38: title IN varchar2) is
39:
40: begin
41: FND_FILE.NEW_LINE(which);
42: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
43: FND_FILE.PUT_LINE(which, title);
44: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
45: end section_title;
46:
39:
40: begin
41: FND_FILE.NEW_LINE(which);
42: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
43: FND_FILE.PUT_LINE(which, title);
44: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
45: end section_title;
46:
47: --
40: begin
41: FND_FILE.NEW_LINE(which);
42: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
43: FND_FILE.PUT_LINE(which, title);
44: FND_FILE.PUT_LINE(which, '----------------------------------------------------------------');
45: end section_title;
46:
47: --
48: -- PUBLIC PROCEDURES/FUNCTIONS
50:
51: /* Sleep for duration seconds */
52: procedure sleep ( duration IN varchar2) is
53: begin
54: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sleeping for '
55: || duration
56: || ' seconds... Current time: '
57: || to_char(sysdate, 'DD-MON-RR HH24:MI:SS'));
58:
57: || to_char(sysdate, 'DD-MON-RR HH24:MI:SS'));
58:
59: DBMS_LOCK.SLEEP(TO_NUMBER(duration));
60:
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sleep finished... Current time: '
62: || to_char(sysdate, 'DD-MON-RR HH24:MI:SS'));
63: FND_FILE.NEW_LINE(FND_FILE.LOG);
64: end sleep;
65:
59: DBMS_LOCK.SLEEP(TO_NUMBER(duration));
60:
61: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sleep finished... Current time: '
62: || to_char(sysdate, 'DD-MON-RR HH24:MI:SS'));
63: FND_FILE.NEW_LINE(FND_FILE.LOG);
64: end sleep;
65:
66: /* Run program in stripped down fashion */
67: procedure basic( errbuf OUT NOCOPY varchar2,
67: procedure basic( errbuf OUT NOCOPY varchar2,
68: retcode OUT NOCOPY varchar2) is
69: begin
70:
71: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
72: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
73: -- -----------------------------
74: -- Set errbuf and retcode
75: -- -----------------------------
68: retcode OUT NOCOPY varchar2) is
69: begin
70:
71: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
72: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
73: -- -----------------------------
74: -- Set errbuf and retcode
75: -- -----------------------------
76: errbuf := 'Success';
93: l_db_inst v$instance.instance_name%TYPE;
94:
95: begin
96: -- ----------------------------------------------
97: -- Use FND_FILE to output messages at each stage
98: -- ----------------------------------------------
99:
100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Start of Concurrent Processing Regression Test...');
96: -- ----------------------------------------------
97: -- Use FND_FILE to output messages at each stage
98: -- ----------------------------------------------
99:
100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Start of Concurrent Processing Regression Test...');
102: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
103:
104: --
97: -- Use FND_FILE to output messages at each stage
98: -- ----------------------------------------------
99:
100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Start of Concurrent Processing Regression Test...');
102: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
103:
104: --
105: -- Verify IN parameter values
98: -- ----------------------------------------------
99:
100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start of Concurrent Processing Regression Test...');
101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Start of Concurrent Processing Regression Test...');
102: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
103:
104: --
105: -- Verify IN parameter values
106: -- Right now we simply print out all three as varchar parameters. May find value
105: -- Verify IN parameter values
106: -- Right now we simply print out all three as varchar parameters. May find value
107: -- later in adding some verification for dates and numbers...
108: --
109: FND_FILE.NEW_LINE(FND_FILE.LOG);
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
106: -- Right now we simply print out all three as varchar parameters. May find value
107: -- later in adding some verification for dates and numbers...
108: --
109: FND_FILE.NEW_LINE(FND_FILE.LOG);
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
107: -- later in adding some verification for dates and numbers...
108: --
109: FND_FILE.NEW_LINE(FND_FILE.LOG);
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
108: --
109: FND_FILE.NEW_LINE(FND_FILE.LOG);
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
116: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_varchar ' || nvl(p_varchar, 'NULL'));
109: FND_FILE.NEW_LINE(FND_FILE.LOG);
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
116: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_varchar ' || nvl(p_varchar, 'NULL'));
117:
110: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify IN parameter values...');
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
116: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_varchar ' || nvl(p_varchar, 'NULL'));
117:
118: --
111: section_title(FND_FILE.OUTPUT, 'Verify IN parameter values...');
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
116: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_varchar ' || nvl(p_varchar, 'NULL'));
117:
118: --
119: -- Verify the FND_GLOBAL values
112: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'run_mode = ' || run_mode);
113: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'duration = ' || duration);
114: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_num = ' || nvl(p_num, 'NULL'));
115: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_date = ' || nvl(p_date, 'NULL'));
116: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_varchar ' || nvl(p_varchar, 'NULL'));
117:
118: --
119: -- Verify the FND_GLOBAL values
120: --
117:
118: --
119: -- Verify the FND_GLOBAL values
120: --
121: FND_FILE.NEW_LINE(FND_FILE.LOG);
122: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify FND_GLOBAL values...');
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
118: --
119: -- Verify the FND_GLOBAL values
120: --
121: FND_FILE.NEW_LINE(FND_FILE.LOG);
122: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify FND_GLOBAL values...');
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
119: -- Verify the FND_GLOBAL values
120: --
121: FND_FILE.NEW_LINE(FND_FILE.LOG);
122: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify FND_GLOBAL values...');
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
121: FND_FILE.NEW_LINE(FND_FILE.LOG);
122: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify FND_GLOBAL values...');
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
122: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify FND_GLOBAL values...');
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
123: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify FND_GLOBAL values...');
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
124:
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User name = ' || fnd_global.user_name);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'User id = ' || fnd_global.user_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
127: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp name = ' || fnd_global.resp_name);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp id = ' || fnd_global.resp_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
129: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app name = ' || fnd_global.application_name);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
130: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app short name = ' || fnd_global.application_short_name);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
131: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Resp app id = ' || fnd_global.resp_appl_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Security group id = ' || fnd_global.security_group_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Login id = ' || fnd_global.login_id);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
134: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc login id = ' || fnd_global.conc_login_id);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Prog app id = ' || fnd_global.prog_appl_id);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Base language = ' || fnd_global.base_language);
136: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc program id = ' || fnd_global.conc_program_id);
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Base language = ' || fnd_global.base_language);
144:
137: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc request id = ' || fnd_global.conc_request_id);
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Base language = ' || fnd_global.base_language);
144:
145: --
138: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Conc priority request = ' || fnd_global.conc_priority_request);
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Base language = ' || fnd_global.base_language);
144:
145: --
146: -- Verify NLS session parameter values
139: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per business group id = ' || fnd_global.per_business_group_id);
140: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Per security profile id = ' || fnd_global.per_security_profile_id);
141: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Language count = ' || fnd_global.language_count);
142: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current language = ' || fnd_global.current_language);
143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Base language = ' || fnd_global.base_language);
144:
145: --
146: -- Verify NLS session parameter values
147: --
144:
145: --
146: -- Verify NLS session parameter values
147: --
148: FND_FILE.NEW_LINE(FND_FILE.LOG);
149: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify NLS session parameter values...');
150: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify NLS session parameter values...');
151:
152: Select Value Into l_nls_lang
145: --
146: -- Verify NLS session parameter values
147: --
148: FND_FILE.NEW_LINE(FND_FILE.LOG);
149: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify NLS session parameter values...');
150: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify NLS session parameter values...');
151:
152: Select Value Into l_nls_lang
153: From Nls_Session_Parameters
146: -- Verify NLS session parameter values
147: --
148: FND_FILE.NEW_LINE(FND_FILE.LOG);
149: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Verify NLS session parameter values...');
150: SECTION_TITLE(FND_FILE.OUTPUT, 'Verify NLS session parameter values...');
151:
152: Select Value Into l_nls_lang
153: From Nls_Session_Parameters
154: Where Upper(Parameter) = 'NLS_LANGUAGE';
151:
152: Select Value Into l_nls_lang
153: From Nls_Session_Parameters
154: Where Upper(Parameter) = 'NLS_LANGUAGE';
155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'NLS_LANGUAGE = ' || l_nls_lang);
156:
157: Select Value Into l_nls_terr
158: From Nls_Session_Parameters
159: Where Upper(Parameter) = 'NLS_TERRITORY';
156:
157: Select Value Into l_nls_terr
158: From Nls_Session_Parameters
159: Where Upper(Parameter) = 'NLS_TERRITORY';
160: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'NLS_TERRITORY = ' || l_nls_terr);
161:
162: Select Value Into l_nls_num_char
163: From Nls_Session_Parameters
164: Where Upper(Parameter) = 'NLS_NUMERIC_CHARACTERS';
161:
162: Select Value Into l_nls_num_char
163: From Nls_Session_Parameters
164: Where Upper(Parameter) = 'NLS_NUMERIC_CHARACTERS';
165: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'NLS_NUMERIC_CHARACTERS = ' || l_nls_num_char);
166:
167: Select Value Into l_nls_date_fmt
168: From Nls_Session_Parameters
169: Where Upper(Parameter) = 'NLS_DATE_FORMAT';
166:
167: Select Value Into l_nls_date_fmt
168: From Nls_Session_Parameters
169: Where Upper(Parameter) = 'NLS_DATE_FORMAT';
170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'NLS_DATE_FORMAT = ' || l_nls_date_fmt);
171:
172: Select Value Into l_nls_date_lang
173: From Nls_Session_Parameters
174: Where Upper(Parameter) = 'NLS_DATE_LANGUAGE';
171:
172: Select Value Into l_nls_date_lang
173: From Nls_Session_Parameters
174: Where Upper(Parameter) = 'NLS_DATE_LANGUAGE';
175: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'NLS_DATE_LANGUAGE = ' || l_nls_date_lang);
176:
177: --
178: -- Verify current database instance
179: --
178: -- Verify current database instance
179: --
180: Select Instance_Name Into l_db_inst
181: From V$Instance;
182: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Current DB Instance = ' || l_db_inst);
183:
184:
185: end verify_values;
186:
196:
197: -- -----------------------
198: -- Submit a single request
199: -- -----------------------
200: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single request...');
202: SECTION_TITLE(FND_FILE.LOG, 'Submit a single request...');
203: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prepare to submit a single request...');
204:
197: -- -----------------------
198: -- Submit a single request
199: -- -----------------------
200: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single request...');
202: SECTION_TITLE(FND_FILE.LOG, 'Submit a single request...');
203: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prepare to submit a single request...');
204:
205: -- Set repeat options
198: -- Submit a single request
199: -- -----------------------
200: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single request...');
202: SECTION_TITLE(FND_FILE.LOG, 'Submit a single request...');
203: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prepare to submit a single request...');
204:
205: -- Set repeat options
206: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set repeat options...2 resubmissions, 1 min apart, increment dates.');
199: -- -----------------------
200: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single request...');
202: SECTION_TITLE(FND_FILE.LOG, 'Submit a single request...');
203: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prepare to submit a single request...');
204:
205: -- Set repeat options
206: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set repeat options...2 resubmissions, 1 min apart, increment dates.');
207:
202: SECTION_TITLE(FND_FILE.LOG, 'Submit a single request...');
203: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prepare to submit a single request...');
204:
205: -- Set repeat options
206: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set repeat options...2 resubmissions, 1 min apart, increment dates.');
207:
208: Select to_char(SYSDATE + (3/1440), 'DD-MON-YYYY HH24:MI:SS')
209: Into l_rpt_end_time
210: From Dual;
223: -- Set print options
224:
225: FND_PROFILE.GET('PRINTER', l_printer);
226: if l_printer IS NULL then
227: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is null, will not set print options.');
228: else
229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is ' || l_printer );
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set print options...one copy to default printer.');
231: end if;
225: FND_PROFILE.GET('PRINTER', l_printer);
226: if l_printer IS NULL then
227: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is null, will not set print options.');
228: else
229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is ' || l_printer );
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set print options...one copy to default printer.');
231: end if;
232: if (not fnd_request.set_print_options(
233: printer => l_printer,
226: if l_printer IS NULL then
227: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is null, will not set print options.');
228: else
229: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Printer is ' || l_printer );
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Set print options...one copy to default printer.');
231: end if;
232: if (not fnd_request.set_print_options(
233: printer => l_printer,
234: style => 'PORTRAIT',
242: return;
243: end if;
244:
245: -- Add a notification to SYSADMIN user
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Add notification to SYSADMIN user...');
247:
248: if (not fnd_request.add_notification(user => 'SYSADMIN')) then
249: errbuf := substr(fnd_message.get, 1, 240);
250: retcode := 2;
252: return;
253: end if;
254:
255: -- Submit the request for FNDCPRT_PLSQL with run_mode='BASIC'
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Submit a request for FNDCPRT_PLSQL in BASIC run_mode...');
257:
258: reqid := fnd_request.submit_request(application => 'FND',
259: program => 'FNDCPRT_PLSQL',
260: description => 'Test of Single Request Submission',
266: rollback;
267: return;
268: end if;
269:
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Single submission request id = ' || reqid);
271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Single request submission completed successfully.');
272: end submit_single_request;
273:
274: /* Submit a single child request */
267: return;
268: end if;
269:
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Single submission request id = ' || reqid);
271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Single request submission completed successfully.');
272: end submit_single_request;
273:
274: /* Submit a single child request */
275: procedure submit_sub_request( errbuf OUT NOCOPY varchar2,
280: begin
281: -- ---------------------------
282: -- Submit a single sub-request
283: -- ---------------------------
284: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single sub-request...');
286: SECTION_TITLE(FND_FILE.LOG, 'Submit a single sub-request...');
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Submit a single sub-request...');
288: -- Submit the child request. The sub_request parameter must be set to 'Y'.
281: -- ---------------------------
282: -- Submit a single sub-request
283: -- ---------------------------
284: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single sub-request...');
286: SECTION_TITLE(FND_FILE.LOG, 'Submit a single sub-request...');
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Submit a single sub-request...');
288: -- Submit the child request. The sub_request parameter must be set to 'Y'.
289: reqid := fnd_request.submit_request(application => 'FND',
282: -- Submit a single sub-request
283: -- ---------------------------
284: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single sub-request...');
286: SECTION_TITLE(FND_FILE.LOG, 'Submit a single sub-request...');
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Submit a single sub-request...');
288: -- Submit the child request. The sub_request parameter must be set to 'Y'.
289: reqid := fnd_request.submit_request(application => 'FND',
290: program => 'FNDCPRT_PLSQL',
283: -- ---------------------------
284: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a single sub-request...');
286: SECTION_TITLE(FND_FILE.LOG, 'Submit a single sub-request...');
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Submit a single sub-request...');
288: -- Submit the child request. The sub_request parameter must be set to 'Y'.
289: reqid := fnd_request.submit_request(application => 'FND',
290: program => 'FNDCPRT_PLSQL',
291: description => 'Test of Single Sub-request Submission',
296: -- If request submission failed, exit with error.
297: errbuf := fnd_message.get;
298: retcode := 2;
299: else
300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Single sub-request submission completed successfully.');
301:
302: errbuf := 'Phase 1 complete:';
303: retcode := 0 ;
304: end if;
323: -- --------------------
324: -- Submit a request set
325: -- --------------------
326:
327: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a request set...');
329: SECTION_TITLE(FND_FILE.LOG, 'Submit a request set...');
330:
331: -- Step 1 - call set_request_set
324: -- Submit a request set
325: -- --------------------
326:
327: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a request set...');
329: SECTION_TITLE(FND_FILE.LOG, 'Submit a request set...');
330:
331: -- Step 1 - call set_request_set
332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call set_request_set...');
325: -- --------------------
326:
327: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a request set...');
329: SECTION_TITLE(FND_FILE.LOG, 'Submit a request set...');
330:
331: -- Step 1 - call set_request_set
332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call set_request_set...');
333:
328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Submit a request set...');
329: SECTION_TITLE(FND_FILE.LOG, 'Submit a request set...');
330:
331: -- Step 1 - call set_request_set
332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call set_request_set...');
333:
334: l_success := fnd_submit.set_request_set('FND', 'FNDCPRT_SET');
335: if ( not l_success ) then
336: raise srs_failed;
337: end if;
338:
339: -- Step 2 - call submit program for each program in the set
340:
341: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program first time...');
342:
343: l_success := fnd_submit.submit_program('FND','FNDCPRT_PLSQL', 'STAGE10', 'BASIC', '0', chr(0));
344: if ( not l_success ) then
345: raise submitprog_failed;
344: if ( not l_success ) then
345: raise submitprog_failed;
346: end if;
347:
348: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program second time...');
349:
350: l_success := fnd_submit.submit_program('FND','FNDCPRT_SQLPLUS', 'STAGE20', 'BASIC', '0', '', '', '', chr(0));
351: if ( not l_success ) then
352: raise submitprog_failed;
351: if ( not l_success ) then
352: raise submitprog_failed;
353: end if;
354:
355: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program third time...');
356:
357: l_success := fnd_submit.submit_program('FND','FNDCPRT_HOST', 'STAGE30', 'BASIC', '0', chr(0));
358: if ( not l_success ) then
359: raise submitprog_failed;
358: if ( not l_success ) then
359: raise submitprog_failed;
360: end if;
361:
362: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program fourth time...');
363:
364: l_success := fnd_submit.submit_program('FND','FNDCPRT_SQLLOAD', 'STAGE40', '$FND_TOP/patch/115/import/fndcpldr.dat', chr(0));
365: if ( not l_success ) then
366: raise submitprog_failed;
365: if ( not l_success ) then
366: raise submitprog_failed;
367: end if;
368:
369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program fifth time...');
370:
371: l_success := fnd_submit.submit_program('FND','FNDCPRT_JAVA', 'STAGE50', 'BASIC', '0', chr(0));
372: if ( not l_success ) then
373: raise submitprog_failed;
372: if ( not l_success ) then
373: raise submitprog_failed;
374: end if;
375:
376: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program sixth time...');
377:
378: l_success := fnd_submit.submit_program('FND','FNDCPRT_SPWN', 'STAGE60', 'BASIC', '0', chr(0));
379: if ( not l_success ) then
380: raise submitprog_failed;
379: if ( not l_success ) then
380: raise submitprog_failed;
381: end if;
382:
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program seventh time...');
384:
385: l_success := fnd_submit.submit_program('FND','FNDCPRT_RPTTXT', 'STAGE70', 'BASIC', '0', chr(0));
386: if ( not l_success ) then
387: raise submitprog_failed;
386: if ( not l_success ) then
387: raise submitprog_failed;
388: end if;
389:
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program eighth time...');
391:
392: l_success := fnd_submit.submit_program('FND','FNDCPRT_RPTPS', 'STAGE80', 'BASIC', '0', chr(0));
393: if ( not l_success ) then
394: raise submitprog_failed;
393: if ( not l_success ) then
394: raise submitprog_failed;
395: end if;
396:
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit program ninth time...');
398:
399: l_success := fnd_submit.submit_program('FND','FNDCPRT_PERL', 'STAGE90', 'BASIC', '0', chr(0));
400: if ( not l_success ) then
401: raise submitprog_failed;
401: raise submitprog_failed;
402: end if;
403:
404: -- Step 3 - call submit_set
405: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call submit_set...');
406:
407: -- ----------------------------------------------
408: -- If we are running as a PL/SQL concurrent program, submit the set as a sub-request.
409: -- If we are running as a standalone PL/SQL procedure, submit the set as an in indivdual request.
419: if (reqid = 0 ) then
420: raise submitset_failed;
421: end if;
422:
423: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Request set submission completed successfully.');
424:
425: errbuf := 'Phase 2 complete:';
426: retcode := 0 ;
427:
429: exception
430: when srs_failed then
431: errbuf := 'Call to set_request_set failed: ' || fnd_message.get;
432: retcode := 2;
433: fnd_file.put_line(fnd_file.log, errbuf);
434: when submitprog_failed then
435: errbuf := 'Call to submit_program failed: ' || fnd_message.get;
436: retcode := 2;
437: fnd_file.put_line(fnd_file.log, errbuf);
433: fnd_file.put_line(fnd_file.log, errbuf);
434: when submitprog_failed then
435: errbuf := 'Call to submit_program failed: ' || fnd_message.get;
436: retcode := 2;
437: fnd_file.put_line(fnd_file.log, errbuf);
438: when submitset_failed then
439: errbuf := 'Call to submit_set failed: ' || fnd_message.get;
440: retcode := 2;
441: fnd_file.put_line(fnd_file.log, errbuf);
437: fnd_file.put_line(fnd_file.log, errbuf);
438: when submitset_failed then
439: errbuf := 'Call to submit_set failed: ' || fnd_message.get;
440: retcode := 2;
441: fnd_file.put_line(fnd_file.log, errbuf);
442: when others then
443: errbuf := 'Request set submission failed - unknown error: ' || sqlerrm;
444: retcode := 2;
445: fnd_file.put_line(fnd_file.log, errbuf);
441: fnd_file.put_line(fnd_file.log, errbuf);
442: when others then
443: errbuf := 'Request set submission failed - unknown error: ' || sqlerrm;
444: retcode := 2;
445: fnd_file.put_line(fnd_file.log, errbuf);
446:
447: end submit_request_set;
448:
449: /* Write a message that all phases complete */
451: retcode OUT NOCOPY varchar2) is
452:
453: begin
454:
455: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
456: FND_FILE.PUT_LINE(FND_FILE.LOG, 'All tests complete!');
457: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
458: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
459: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End of Concurrent Processing Regression Test...');
452:
453: begin
454:
455: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
456: FND_FILE.PUT_LINE(FND_FILE.LOG, 'All tests complete!');
457: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
458: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
459: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End of Concurrent Processing Regression Test...');
460:
453: begin
454:
455: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
456: FND_FILE.PUT_LINE(FND_FILE.LOG, 'All tests complete!');
457: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
458: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
459: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End of Concurrent Processing Regression Test...');
460:
461:
454:
455: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
456: FND_FILE.PUT_LINE(FND_FILE.LOG, 'All tests complete!');
457: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
458: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
459: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End of Concurrent Processing Regression Test...');
460:
461:
462: errbuf := 'Success:';
455: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
456: FND_FILE.PUT_LINE(FND_FILE.LOG, 'All tests complete!');
457: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End of Concurrent Processing Regression Test...');
458: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
459: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'End of Concurrent Processing Regression Test...');
460:
461:
462: errbuf := 'Success:';
463: retcode := 0 ;
485: -- if req_data = 'Phase_2' reawakened after sub-request has completed - Phase 2
486: -- if req_data = 'Phase_3' reawakened after request set has completed - Phase 3
487: -- ----------------------------------------------
488: req_data := fnd_conc_global.request_data;
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'req_data = ' || req_data);
490:
491: if (req_data IS NULL and TO_NUMBER(duration) > 0) then
492: sleep (duration);
493: end if;