160:
161: IF ( nvl(g_RunMode,'!') = 'CONC' ) THEN
162: FND_FILE.put_line(FND_FILE.LOG, x_Mesg);
163: ELSE
164: utl_file.put_line(g_FileHandle, x_Mesg);
165: utl_file.fflush(g_FileHandle);
166: END IF;
167:
168: EXCEPTION
161: IF ( nvl(g_RunMode,'!') = 'CONC' ) THEN
162: FND_FILE.put_line(FND_FILE.LOG, x_Mesg);
163: ELSE
164: utl_file.put_line(g_FileHandle, x_Mesg);
165: utl_file.fflush(g_FileHandle);
166: END IF;
167:
168: EXCEPTION
169: /*
166: END IF;
167:
168: EXCEPTION
169: /*
170: when utl_file.read_error then
171: --dbg_file.log('err in print_mesg:'||'read_error');
172: when utl_file.write_error then
173: --dbg_file.log('err in print_mesg:'||'write_error');
174: when utl_file.invalid_operation then
168: EXCEPTION
169: /*
170: when utl_file.read_error then
171: --dbg_file.log('err in print_mesg:'||'read_error');
172: when utl_file.write_error then
173: --dbg_file.log('err in print_mesg:'||'write_error');
174: when utl_file.invalid_operation then
175: --dbg_file.log('err in print_mesg:'||'invalid op');
176: when utl_file.invalid_filehandle then
170: when utl_file.read_error then
171: --dbg_file.log('err in print_mesg:'||'read_error');
172: when utl_file.write_error then
173: --dbg_file.log('err in print_mesg:'||'write_error');
174: when utl_file.invalid_operation then
175: --dbg_file.log('err in print_mesg:'||'invalid op');
176: when utl_file.invalid_filehandle then
177: dbg_file.log('err in print_mesg:'||'invalid filehandle');
178: dbg_file.log('err in print_mesg-1:'||substrb(x_mesg,1,200));
172: when utl_file.write_error then
173: --dbg_file.log('err in print_mesg:'||'write_error');
174: when utl_file.invalid_operation then
175: --dbg_file.log('err in print_mesg:'||'invalid op');
176: when utl_file.invalid_filehandle then
177: dbg_file.log('err in print_mesg:'||'invalid filehandle');
178: dbg_file.log('err in print_mesg-1:'||substrb(x_mesg,1,200));
179: dbg_file.log('err in print_mesg-2:'||substrb(x_mesg,201,200));
180: dbg_file.log('err in print_mesg-3:'||substrb(x_mesg,401,200));
179: dbg_file.log('err in print_mesg-2:'||substrb(x_mesg,201,200));
180: dbg_file.log('err in print_mesg-3:'||substrb(x_mesg,401,200));
181: dbg_file.log('err in print_mesg-4:'||substrb(x_mesg,601,200));
182: dbg_file.log('err in print_mesg-5:'||substrb(x_mesg,801,200));
183: when utl_file.internal_error then
184: dbg_file.log('err in print_mesg:'||'internal_error ');
185: */
186: WHEN OTHERS THEN
187: --dbg_file.log('err in print_mesgrunmode:'||g_runmode);
454: END IF;
455:
456: EXCEPTION
457: WHEN OTHERS THEN
458: --IF utl_file.is_open(g_FileHandle) THEN
459: --utl_file.fclose(g_FileHandle);
460: --END IF;
461: wsh_debug_interface.g_Debug := FALSE;
462:
455:
456: EXCEPTION
457: WHEN OTHERS THEN
458: --IF utl_file.is_open(g_FileHandle) THEN
459: --utl_file.fclose(g_FileHandle);
460: --END IF;
461: wsh_debug_interface.g_Debug := FALSE;
462:
463: END get_file_name;
540: IF g_RunMode <> 'CONC'
541: THEN
542: IF g_dir IS NOT NULL
543: THEN
544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)
545: then
546: g_FileHandle := wsh_debug_interface.g_file_handle;
547: else
548: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)
545: then
546: g_FileHandle := wsh_debug_interface.g_file_handle;
547: else
548: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
549: end if;
550: /*
551: --
552: -- Do not remove the following line
549: end if;
550: /*
551: --
552: -- Do not remove the following line
553: -- it is done as a workaround for a bug in utl_file.
554: -- if we open it once and same file is opened
555: -- by other program (e.g. OM/INV), it overwrites portion of the file
556: --
557: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
553: -- it is done as a workaround for a bug in utl_file.
554: -- if we open it once and same file is opened
555: -- by other program (e.g. OM/INV), it overwrites portion of the file
556: --
557: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
558: */
559:
560: g_File_bak := g_File;
561: g_Dir_bak := g_Dir;
569: --
570: --
571: IF g_RunMode <> 'CONC'
572: AND g_dir IS NOT NULL
573: AND NOT(utl_file.is_open(g_FileHandle))
574: THEN
575: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
576: END IF;
577: --
571: IF g_RunMode <> 'CONC'
572: AND g_dir IS NOT NULL
573: AND NOT(utl_file.is_open(g_FileHandle))
574: THEN
575: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
576: END IF;
577: --
578: --
579: IF g_Profiler THEN
672: END IF;
673:
674: EXCEPTION
675: WHEN OTHERS THEN
676: --IF utl_file.is_open(g_FileHandle) THEN
677: --utl_file.fclose(g_FileHandle);
678: --END IF;
679: --dbg_file.log('err in start_dbg:'||substrb(sqlerrm,1,200));
680: wsh_debug_interface.g_Debug := FALSE;
673:
674: EXCEPTION
675: WHEN OTHERS THEN
676: --IF utl_file.is_open(g_FileHandle) THEN
677: --utl_file.fclose(g_FileHandle);
678: --END IF;
679: --dbg_file.log('err in start_dbg:'||substrb(sqlerrm,1,200));
680: wsh_debug_interface.g_Debug := FALSE;
681:
719: g_inv_dbg_file := NULL;
720:
721: IF p_otherApp_debug
722: THEN
723: if utl_file.is_open(g_FileHandle)
724: then
725: --dbg_file.log('closing file');
726: utl_file.fclose(g_FileHandle);
727: --g_fileHandle := NULL;
722: THEN
723: if utl_file.is_open(g_FileHandle)
724: then
725: --dbg_file.log('closing file');
726: utl_file.fclose(g_FileHandle);
727: --g_fileHandle := NULL;
728: end if;
729: END IF;
730: --
744: g_debugger_initialized := FALSE;
745: /*
746: wsh_debug_interface.g_Debug := FALSE;
747: g_DebugAll := FALSE;
748: IF utl_file.is_open(g_FileHandle) THEN
749: utl_file.fclose(g_FileHandle);
750: END IF;
751: */
752: EXCEPTION
745: /*
746: wsh_debug_interface.g_Debug := FALSE;
747: g_DebugAll := FALSE;
748: IF utl_file.is_open(g_FileHandle) THEN
749: utl_file.fclose(g_FileHandle);
750: END IF;
751: */
752: EXCEPTION
753: WHEN OTHERS THEN
1178: p_target_file_directory IN VARCHAR2,
1179: p_target_file_name IN VARCHAR2,
1180: x_return_status OUT NOCOPY BOOLEAN)
1181: IS
1182: x_source_file utl_file.file_type;
1183: x_target_file utl_file.file_type;
1184: x_line VARCHAR2(512) := NULL;
1185: begin
1186: NULL;
1179: p_target_file_name IN VARCHAR2,
1180: x_return_status OUT NOCOPY BOOLEAN)
1181: IS
1182: x_source_file utl_file.file_type;
1183: x_target_file utl_file.file_type;
1184: x_line VARCHAR2(512) := NULL;
1185: begin
1186: NULL;
1187: /*
1184: x_line VARCHAR2(512) := NULL;
1185: begin
1186: NULL;
1187: /*
1188: x_source_file := utl_file.fopen(p_source_file_directory, p_source_file_name, 'R');
1189: x_target_file := utl_file.fopen(p_target_file_directory, p_target_file_name, 'A');
1190: x_line := '******** Attaching the contents of other app debug ********';
1191: utl_file.put_line(x_target_file, x_line);
1192: x_line := 'Debug file =>' || p_source_file_name;
1185: begin
1186: NULL;
1187: /*
1188: x_source_file := utl_file.fopen(p_source_file_directory, p_source_file_name, 'R');
1189: x_target_file := utl_file.fopen(p_target_file_directory, p_target_file_name, 'A');
1190: x_line := '******** Attaching the contents of other app debug ********';
1191: utl_file.put_line(x_target_file, x_line);
1192: x_line := 'Debug file =>' || p_source_file_name;
1193: utl_file.put_line(x_target_file, x_line);
1187: /*
1188: x_source_file := utl_file.fopen(p_source_file_directory, p_source_file_name, 'R');
1189: x_target_file := utl_file.fopen(p_target_file_directory, p_target_file_name, 'A');
1190: x_line := '******** Attaching the contents of other app debug ********';
1191: utl_file.put_line(x_target_file, x_line);
1192: x_line := 'Debug file =>' || p_source_file_name;
1193: utl_file.put_line(x_target_file, x_line);
1194: LOOP
1195: utl_file.get_line(x_source_file, x_line);
1189: x_target_file := utl_file.fopen(p_target_file_directory, p_target_file_name, 'A');
1190: x_line := '******** Attaching the contents of other app debug ********';
1191: utl_file.put_line(x_target_file, x_line);
1192: x_line := 'Debug file =>' || p_source_file_name;
1193: utl_file.put_line(x_target_file, x_line);
1194: LOOP
1195: utl_file.get_line(x_source_file, x_line);
1196: utl_file.Put_line(x_target_file, x_line);
1197: END LOOP;
1191: utl_file.put_line(x_target_file, x_line);
1192: x_line := 'Debug file =>' || p_source_file_name;
1193: utl_file.put_line(x_target_file, x_line);
1194: LOOP
1195: utl_file.get_line(x_source_file, x_line);
1196: utl_file.Put_line(x_target_file, x_line);
1197: END LOOP;
1198: utl_file.fclose(x_source_file);
1199: utl_file.fclose(x_target_file);
1192: x_line := 'Debug file =>' || p_source_file_name;
1193: utl_file.put_line(x_target_file, x_line);
1194: LOOP
1195: utl_file.get_line(x_source_file, x_line);
1196: utl_file.Put_line(x_target_file, x_line);
1197: END LOOP;
1198: utl_file.fclose(x_source_file);
1199: utl_file.fclose(x_target_file);
1200: x_return_status := TRUE;
1194: LOOP
1195: utl_file.get_line(x_source_file, x_line);
1196: utl_file.Put_line(x_target_file, x_line);
1197: END LOOP;
1198: utl_file.fclose(x_source_file);
1199: utl_file.fclose(x_target_file);
1200: x_return_status := TRUE;
1201: */
1202:
1195: utl_file.get_line(x_source_file, x_line);
1196: utl_file.Put_line(x_target_file, x_line);
1197: END LOOP;
1198: utl_file.fclose(x_source_file);
1199: utl_file.fclose(x_target_file);
1200: x_return_status := TRUE;
1201: */
1202:
1203: EXCEPTION
1200: x_return_status := TRUE;
1201: */
1202:
1203: EXCEPTION
1204: WHEN utl_file.invalid_operation THEN
1205: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1201: */
1202:
1203: EXCEPTION
1204: WHEN utl_file.invalid_operation THEN
1205: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1202:
1203: EXCEPTION
1204: WHEN utl_file.invalid_operation THEN
1205: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1204: WHEN utl_file.invalid_operation THEN
1205: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1205: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1206: utl_file.fclose(x_target_file);
1207: x_return_status :=FALSE;
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1208: WHEN utl_file.read_error THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1209: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1210: utl_file.fclose(x_target_file);
1211: x_return_status :=FALSE;
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1212: WHEN utl_file.invalid_mode THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1213: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1221: utl_file.fclose(x_source_file);
1214: utl_file.fclose(x_target_file);
1215: x_return_status :=FALSE;
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1221: utl_file.fclose(x_source_file);
1222: utl_file.fclose(x_target_file);
1216: WHEN utl_file.invalid_filehandle THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1221: utl_file.fclose(x_source_file);
1222: utl_file.fclose(x_target_file);
1223: x_return_status :=FALSE;
1224: WHEN OTHERS THEN
1217: utl_file.fclose(x_source_file);
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1221: utl_file.fclose(x_source_file);
1222: utl_file.fclose(x_target_file);
1223: x_return_status :=FALSE;
1224: WHEN OTHERS THEN
1225: x_return_status :=FALSE;
1218: utl_file.fclose(x_target_file);
1219: x_return_status :=FALSE;
1220: WHEN utl_file.internal_error THEN
1221: utl_file.fclose(x_source_file);
1222: utl_file.fclose(x_target_file);
1223: x_return_status :=FALSE;
1224: WHEN OTHERS THEN
1225: x_return_status :=FALSE;
1226: END append_other_dbg_file;