39: ( p_file_name IN VARCHAR2)
40: IS
41:
42: l_location VARCHAR2(500);
43: LOG UTL_FILE.FILE_TYPE;
44:
45: CURSOR c_get_1st_location IS
46: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
47: FROM v$parameter
44:
45: CURSOR c_get_1st_location IS
46: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
47: FROM v$parameter
48: WHERE name = 'utl_file_dir';
49:
50:
51:
52:
85: FETCH c_get_1st_location
86: INTO G_LOG_LOCATION;
87: CLOSE c_get_1st_location;
88:
89: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||p_file_name, 'w', 32767);
90: UTL_FILE.put_line(LOG, 'Log file opened at '||to_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||' With log mode: '||G_LOG_MODE);
91: UTL_FILE.fflush(LOG);
92: UTL_FILE.fclose(LOG);
93: G_FILE_NAME := p_file_name;
86: INTO G_LOG_LOCATION;
87: CLOSE c_get_1st_location;
88:
89: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||p_file_name, 'w', 32767);
90: UTL_FILE.put_line(LOG, 'Log file opened at '||to_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||' With log mode: '||G_LOG_MODE);
91: UTL_FILE.fflush(LOG);
92: UTL_FILE.fclose(LOG);
93: G_FILE_NAME := p_file_name;
94: END IF;
87: CLOSE c_get_1st_location;
88:
89: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||p_file_name, 'w', 32767);
90: UTL_FILE.put_line(LOG, 'Log file opened at '||to_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||' With log mode: '||G_LOG_MODE);
91: UTL_FILE.fflush(LOG);
92: UTL_FILE.fclose(LOG);
93: G_FILE_NAME := p_file_name;
94: END IF;
95:
88:
89: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||p_file_name, 'w', 32767);
90: UTL_FILE.put_line(LOG, 'Log file opened at '||to_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||' With log mode: '||G_LOG_MODE);
91: UTL_FILE.fflush(LOG);
92: UTL_FILE.fclose(LOG);
93: G_FILE_NAME := p_file_name;
94: END IF;
95:
96: /* Bug # 4576699 Added code below for checking the Profile option and then logging messages */
102: FETCH c_get_1st_location
103: INTO global_gmdlog_location;
104: CLOSE c_get_1st_location;
105:
106: LOG := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'w');
107: UTL_FILE.put_line(LOG, 'Debug log file opened: '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
108: UTL_FILE.fflush(LOG);
109: UTL_FILE.fclose(LOG);
110: END IF;
103: INTO global_gmdlog_location;
104: CLOSE c_get_1st_location;
105:
106: LOG := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'w');
107: UTL_FILE.put_line(LOG, 'Debug log file opened: '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
108: UTL_FILE.fflush(LOG);
109: UTL_FILE.fclose(LOG);
110: END IF;
111: /* Bug # 4576699 End */
104: CLOSE c_get_1st_location;
105:
106: LOG := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'w');
107: UTL_FILE.put_line(LOG, 'Debug log file opened: '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
108: UTL_FILE.fflush(LOG);
109: UTL_FILE.fclose(LOG);
110: END IF;
111: /* Bug # 4576699 End */
112:
105:
106: LOG := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'w');
107: UTL_FILE.put_line(LOG, 'Debug log file opened: '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
108: UTL_FILE.fflush(LOG);
109: UTL_FILE.fclose(LOG);
110: END IF;
111: /* Bug # 4576699 End */
112:
113:
138: , p_file_name IN VARCHAR2
139: )
140: IS
141:
142: LOG UTL_FILE.FILE_TYPE;
143: l_file_name VARCHAR2(50);
144:
145: CURSOR c_get_1st_location IS
146: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
144:
145: CURSOR c_get_1st_location IS
146: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
147: FROM v$parameter
148: WHERE name = 'utl_file_dir';
149:
150: -- Bug 4576699: added l_log
151: l_log UTL_FILE.file_type;
152:
147: FROM v$parameter
148: WHERE name = 'utl_file_dir';
149:
150: -- Bug 4576699: added l_log
151: l_log UTL_FILE.file_type;
152:
153: BEGIN
154: IF ((G_LOG_MODE <> 'OFF') AND (NVL(p_priority, 100) >= G_LOG_LEVEL))
155: THEN
161: ELSE
162: l_file_name := p_file_name;
163: END IF;
164:
165: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||l_file_name, 'a', 32767);
166: UTL_FILE.put_line(LOG, p_msg);
167: UTL_FILE.fflush(LOG);
168: UTL_FILE.fclose(LOG);
169:
162: l_file_name := p_file_name;
163: END IF;
164:
165: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||l_file_name, 'a', 32767);
166: UTL_FILE.put_line(LOG, p_msg);
167: UTL_FILE.fflush(LOG);
168: UTL_FILE.fclose(LOG);
169:
170: ELSIF (G_LOG_MODE = 'SQL')
163: END IF;
164:
165: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||l_file_name, 'a', 32767);
166: UTL_FILE.put_line(LOG, p_msg);
167: UTL_FILE.fflush(LOG);
168: UTL_FILE.fclose(LOG);
169:
170: ELSIF (G_LOG_MODE = 'SQL')
171: THEN
164:
165: LOG := UTL_FILE.fopen(G_LOG_LOCATION, G_LOG_USERNAME||l_file_name, 'a', 32767);
166: UTL_FILE.put_line(LOG, p_msg);
167: UTL_FILE.fflush(LOG);
168: UTL_FILE.fclose(LOG);
169:
170: ELSIF (G_LOG_MODE = 'SQL')
171: THEN
172: -- SQL*Plus session: uncomment the next line during unit test
190: INTO global_gmdlog_location;
191: CLOSE c_get_1st_location;
192: END IF;
193:
194: l_log := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'a');
195: IF UTL_FILE.IS_OPEN(l_log) THEN
196: UTL_FILE.put_line(l_log, p_msg);
197: UTL_FILE.fflush(l_log);
198: UTL_FILE.fclose(l_log);
191: CLOSE c_get_1st_location;
192: END IF;
193:
194: l_log := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'a');
195: IF UTL_FILE.IS_OPEN(l_log) THEN
196: UTL_FILE.put_line(l_log, p_msg);
197: UTL_FILE.fflush(l_log);
198: UTL_FILE.fclose(l_log);
199: END IF;
192: END IF;
193:
194: l_log := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'a');
195: IF UTL_FILE.IS_OPEN(l_log) THEN
196: UTL_FILE.put_line(l_log, p_msg);
197: UTL_FILE.fflush(l_log);
198: UTL_FILE.fclose(l_log);
199: END IF;
200: END IF;
193:
194: l_log := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'a');
195: IF UTL_FILE.IS_OPEN(l_log) THEN
196: UTL_FILE.put_line(l_log, p_msg);
197: UTL_FILE.fflush(l_log);
198: UTL_FILE.fclose(l_log);
199: END IF;
200: END IF;
201: /* Bug # 4576699 End*/
194: l_log := UTL_FILE.fopen(global_gmdlog_location, global_file_name, 'a');
195: IF UTL_FILE.IS_OPEN(l_log) THEN
196: UTL_FILE.put_line(l_log, p_msg);
197: UTL_FILE.fflush(l_log);
198: UTL_FILE.fclose(l_log);
199: END IF;
200: END IF;
201: /* Bug # 4576699 End*/
202: