PACKAGE BODY: APPS.CE_DEBUG_PKG

Source

1 PACKAGE body CE_DEBUG_PKG AS
2 /* $Header: cedebugb.pls 120.0 2002/08/24 02:33:15 appldev noship $ */
3 
4 --
5 --
6   pg_file_name    VARCHAR2(100)         := NULL;
7   pg_path_name    VARCHAR2(100)         := NULL;
8   pg_fp           utl_file.file_type;
9 
10 PROCEDURE enable_file_debug (
11                               path_name in varchar2,
12 			      file_name in varchar2
13                             ) IS
14 BEGIN
15 
16   if (pg_file_name is null) THEN
17 
18     pg_fp        := utl_file.fopen(path_name, file_name, 'a');
19     pg_file_name := file_name;
20     pg_path_name := path_name;
21 
22   end if;
23 
24   EXCEPTION
25 
26     when utl_file.invalid_path then
27       app_exception.raise_exception;
28     when utl_file.invalid_mode then
29       app_exception.raise_exception;
30 
31 END ;
32 --
33 --
34 PROCEDURE disable_file_debug is
35 BEGIN
36 
37   if (pg_file_name is not null) THEN
38     pg_file_name := NULL;
39     pg_path_name := NULL;
40     utl_file.fclose(pg_fp);
41   end if;
42 
43 END;
44 --
45 --
46 PROCEDURE debug( line in varchar2 ) is
47 
48   rest varchar2(32767);
49   buffer_overflow exception;
50   pragma exception_init(buffer_overflow, -20000);
51 
52 BEGIN
53 
54     IF (pg_file_name IS NOT NULL) THEN
55 
56       utl_file.put_line(pg_fp, line);
57       utl_file.fflush(pg_fp);
58 
59     END IF;
60 
61 EXCEPTION
62 
63   when buffer_overflow then
64       null;  -- buffer overflow, ignore
65   when others then
66       raise;
67 END;
68 
69 END CE_DEBUG_PKG;