102:
103:
104: -- This procedure is to create the flat file for profile option values
105:
106: PROCEDURE utl_debug(p_pref varchar2, p_level varchar2, p_level_val varchar2, p_prof_name varchar2, p_prof_val varchar2, p_appl varchar2 default null, log_file_handle UTL_FILE.FILE_TYPE) IS
107:
108:
109: BEGIN
110:
107:
108:
109: BEGIN
110:
111: utl_file.put(log_file_handle,p_pref);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
108:
109: BEGIN
110:
111: utl_file.put(log_file_handle,p_pref);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
109: BEGIN
110:
111: utl_file.put(log_file_handle,p_pref);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
110:
111: utl_file.put(log_file_handle,p_pref);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
111: utl_file.put(log_file_handle,p_pref);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
112: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
113: utl_file.put(log_file_handle,p_level);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
114: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
115: utl_file.put(log_file_handle,p_level_val);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
123: utl_file.new_line(log_file_handle,1);
116: utl_file.put(log_file_handle,'~');
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
123: utl_file.new_line(log_file_handle,1);
124:
117: utl_file.put(log_file_handle,p_prof_name);
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
123: utl_file.new_line(log_file_handle,1);
124:
125: exception
118: utl_file.put(log_file_handle,'~');
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
123: utl_file.new_line(log_file_handle,1);
124:
125: exception
126: when no_data_found then
119: utl_file.put(log_file_handle,p_prof_val);
120: utl_file.put(log_file_handle,'~');
121: utl_file.put(log_file_handle,p_appl);
122: utl_file.put(log_file_handle,'~');
123: utl_file.new_line(log_file_handle,1);
124:
125: exception
126: when no_data_found then
127: utl_file.put_line(log_file_handle,'No locks');
123: utl_file.new_line(log_file_handle,1);
124:
125: exception
126: when no_data_found then
127: utl_file.put_line(log_file_handle,'No locks');
128:
129: when utl_file.invalid_path then
130: log_message('INvalid path');
131:
125: exception
126: when no_data_found then
127: utl_file.put_line(log_file_handle,'No locks');
128:
129: when utl_file.invalid_path then
130: log_message('INvalid path');
131:
132: when utl_file.invalid_filehandle then
133: log_message('INvalid filehandle');
128:
129: when utl_file.invalid_path then
130: log_message('INvalid path');
131:
132: when utl_file.invalid_filehandle then
133: log_message('INvalid filehandle');
134:
135: when others then
136: log_message('EXCEPTION : '||sqlerrm);
154: AND (SITE_ENABLED_FLAG = 'Y' or USER_ENABLED_FLAG = 'Y')
155: AND UPPER(USER_PROFILE_OPTION_NAME) LIKE prod||'%';
156:
157: CURSOR get_dir is
158: select nvl(substr(value,1,instr(value,',')-1),value) from v$parameter where name = 'utl_file_dir';
159:
160: var1 varchar2(240);
161: var2 BOOLEAN;
162: var4 BOOLEAN :=TRUE;
167: usr_id number;
168: appl_id number;
169: resp_id number;
170: mydir varchar2(200) ;
171: log_file_handle UTL_FILE.FILE_TYPE;
172: lv_file_name VARCHAR2(1000):= '';
173:
174:
175: BEGIN
199: IF resp_name is NOT NULL THEN
200: select responsibility_id into resp_id from fnd_responsibility_vl where responsibility_name=resp_name and application_id=appl_id;
201: END IF;
202:
203: log_file_handle := utl_file.fopen(mydir, lv_file_name, 'w');
204:
205:
206: WHILE (var4) LOOP
207:
252: END IF;
253:
254: END LOOP;
255:
256: utl_file.fclose(log_file_handle);
257:
258: EXCEPTION
259: WHEN OTHERS THEN
260: ROLLBACK;