DBA Data[Home] [Help]

APPS.WSH_DEBUG_SV dependencies on UTL_FILE

Line 164: utl_file.put_line(g_FileHandle, x_Mesg);

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

Line 165: utl_file.fflush(g_FileHandle);

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: /*

Line 170: when utl_file.read_error then

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

Line 172: when utl_file.write_error 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

Line 174: when utl_file.invalid_operation 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));

Line 176: when utl_file.invalid_filehandle then

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));

Line 183: when utl_file.internal_error then

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);

Line 458: --IF utl_file.is_open(g_FileHandle) THEN

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:

Line 459: --utl_file.fclose(g_FileHandle);

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;

Line 544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)

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');

Line 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

Line 553: -- it is done as a workaround for a bug in utl_file.

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');

Line 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;

Line 573: AND NOT(utl_file.is_open(g_FileHandle))

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: --

Line 575: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');

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

Line 676: --IF utl_file.is_open(g_FileHandle) 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;

Line 677: --utl_file.fclose(g_FileHandle);

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:

Line 723: if utl_file.is_open(g_FileHandle)

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;

Line 726: utl_file.fclose(g_FileHandle);

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: --

Line 748: IF utl_file.is_open(g_FileHandle) THEN

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

Line 749: utl_file.fclose(g_FileHandle);

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

Line 1182: x_source_file utl_file.file_type;

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;

Line 1183: x_target_file utl_file.file_type;

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: /*

Line 1188: x_source_file := utl_file.fopen(p_source_file_directory, p_source_file_name, 'R');

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;

Line 1189: x_target_file := utl_file.fopen(p_target_file_directory, p_target_file_name, 'A');

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);

Line 1191: 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);

Line 1193: utl_file.put_line(x_target_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;

Line 1195: utl_file.get_line(x_source_file, x_line);

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);

Line 1196: 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);
1200: x_return_status := TRUE;

Line 1198: utl_file.fclose(x_source_file);

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:

Line 1199: utl_file.fclose(x_target_file);

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

Line 1204: WHEN utl_file.invalid_operation THEN

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

Line 1205: utl_file.fclose(x_source_file);

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);

Line 1206: utl_file.fclose(x_target_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);

Line 1208: WHEN utl_file.read_error THEN

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

Line 1209: utl_file.fclose(x_source_file);

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);

Line 1210: utl_file.fclose(x_target_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);

Line 1212: WHEN utl_file.invalid_mode THEN

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

Line 1213: utl_file.fclose(x_source_file);

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);

Line 1214: utl_file.fclose(x_target_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);

Line 1216: WHEN utl_file.invalid_filehandle THEN

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

Line 1217: utl_file.fclose(x_source_file);

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);

Line 1218: utl_file.fclose(x_target_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);

Line 1220: WHEN utl_file.internal_error THEN

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

Line 1221: utl_file.fclose(x_source_file);

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;

Line 1222: utl_file.fclose(x_target_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;
1226: END append_other_dbg_file;