1: PACKAGE BODY GMA_PURGE_UTILITIES AS
2: /* $Header: GMAPRGUB.pls 115.9 2003/10/27 07:48:22 kmoizudd ship $ */
3:
4: -- output text in dated format to log
5: PROCEDURE logprint(p_purge_id sy_purg_mst.purge_id%TYPE,p_text VARCHAR2);
38: EXCEPTION
39:
40: WHEN OTHERS THEN
41:
42: -- GMA_PURGE_UTILITIES.logprint('Problem raised in GMA_PURGE_UTILITIES.logprint.');
43: -- GMA_PURGE_UTILITIES.logprint('Unhandled EXCEPTION - ' || sqlerrm);
44: RAISE;
45: END logprint;
46:
39:
40: WHEN OTHERS THEN
41:
42: -- GMA_PURGE_UTILITIES.logprint('Problem raised in GMA_PURGE_UTILITIES.logprint.');
43: -- GMA_PURGE_UTILITIES.logprint('Unhandled EXCEPTION - ' || sqlerrm);
44: RAISE;
45: END logprint;
46:
47: /***********************************************************/
52: -- print a line of stars before output, show length of string
53: BEGIN
54:
55: IF (p_debug_flag = TRUE) THEN
56: GMA_PURGE_UTILITIES.printline(p_purge_id);
57: GMA_PURGE_UTILITIES.logprint(p_purge_id,'Length is ' || TO_CHAR(LENGTH(p_text)));
58: GMA_PURGE_UTILITIES.printlong(p_purge_id,p_text);
59: END IF;
60:
53: BEGIN
54:
55: IF (p_debug_flag = TRUE) THEN
56: GMA_PURGE_UTILITIES.printline(p_purge_id);
57: GMA_PURGE_UTILITIES.logprint(p_purge_id,'Length is ' || TO_CHAR(LENGTH(p_text)));
58: GMA_PURGE_UTILITIES.printlong(p_purge_id,p_text);
59: END IF;
60:
61: RETURN;
54:
55: IF (p_debug_flag = TRUE) THEN
56: GMA_PURGE_UTILITIES.printline(p_purge_id);
57: GMA_PURGE_UTILITIES.logprint(p_purge_id,'Length is ' || TO_CHAR(LENGTH(p_text)));
58: GMA_PURGE_UTILITIES.printlong(p_purge_id,p_text);
59: END IF;
60:
61: RETURN;
62:
62:
63: EXCEPTION
64:
65: WHEN OTHERS THEN
66: GMA_PURGE_UTILITIES.printlong(p_purge_id,
67: 'Problem raised in GMA_PURGE_UTILITIES.printdebug.');
68: GMA_PURGE_UTILITIES.printlong(p_purge_id,
69: 'Unhandled EXCEPTION - ' || sqlerrm);
70: RAISE;
63: EXCEPTION
64:
65: WHEN OTHERS THEN
66: GMA_PURGE_UTILITIES.printlong(p_purge_id,
67: 'Problem raised in GMA_PURGE_UTILITIES.printdebug.');
68: GMA_PURGE_UTILITIES.printlong(p_purge_id,
69: 'Unhandled EXCEPTION - ' || sqlerrm);
70: RAISE;
71:
64:
65: WHEN OTHERS THEN
66: GMA_PURGE_UTILITIES.printlong(p_purge_id,
67: 'Problem raised in GMA_PURGE_UTILITIES.printdebug.');
68: GMA_PURGE_UTILITIES.printlong(p_purge_id,
69: 'Unhandled EXCEPTION - ' || sqlerrm);
70: RAISE;
71:
72: END;
92:
93: WHILE (l_counter > 0) LOOP
94: l_frag := SUBSTR(l_text,l_o_counter - l_counter,80);
95: l_counter := l_counter - 80;
96: GMA_PURGE_UTILITIES.logprint(p_purge_id,l_frag);
97: END LOOP;
98:
99: RETURN;
100:
100:
101: EXCEPTION
102:
103: WHEN OTHERS THEN
104: GMA_PURGE_UTILITIES.logprint(p_purge_id,
105: 'Problem raised in GMA_PURGE_UTILITIES.printlong.');
106: GMA_PURGE_UTILITIES.logprint(p_purge_id,
107: 'Unhandled EXCEPTION - ' || sqlerrm);
108: RAISE;
101: EXCEPTION
102:
103: WHEN OTHERS THEN
104: GMA_PURGE_UTILITIES.logprint(p_purge_id,
105: 'Problem raised in GMA_PURGE_UTILITIES.printlong.');
106: GMA_PURGE_UTILITIES.logprint(p_purge_id,
107: 'Unhandled EXCEPTION - ' || sqlerrm);
108: RAISE;
109:
102:
103: WHEN OTHERS THEN
104: GMA_PURGE_UTILITIES.logprint(p_purge_id,
105: 'Problem raised in GMA_PURGE_UTILITIES.printlong.');
106: GMA_PURGE_UTILITIES.logprint(p_purge_id,
107: 'Unhandled EXCEPTION - ' || sqlerrm);
108: RAISE;
109:
110: END printlong;
117:
118: BEGIN
119:
120: IF (p_debug_flag = TRUE) THEN
121: GMA_PURGE_UTILITIES.logprint(p_purge_id,TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
122: END IF;
123:
124: RETURN;
125:
125:
126: EXCEPTION
127:
128: WHEN OTHERS THEN
129: GMA_PURGE_UTILITIES.logprint(p_purge_id,
130: 'Problem raised in GMA_PURGE_UTILITIES.debugtime.');
131: GMA_PURGE_UTILITIES.logprint(p_purge_id,
132: 'Unhandled EXCEPTION - ' || sqlerrm);
133: RAISE;
126: EXCEPTION
127:
128: WHEN OTHERS THEN
129: GMA_PURGE_UTILITIES.logprint(p_purge_id,
130: 'Problem raised in GMA_PURGE_UTILITIES.debugtime.');
131: GMA_PURGE_UTILITIES.logprint(p_purge_id,
132: 'Unhandled EXCEPTION - ' || sqlerrm);
133: RAISE;
134:
127:
128: WHEN OTHERS THEN
129: GMA_PURGE_UTILITIES.logprint(p_purge_id,
130: 'Problem raised in GMA_PURGE_UTILITIES.debugtime.');
131: GMA_PURGE_UTILITIES.logprint(p_purge_id,
132: 'Unhandled EXCEPTION - ' || sqlerrm);
133: RAISE;
134:
135: END debugtime;
159:
160: EXCEPTION
161:
162: WHEN OTHERS THEN
163: GMA_PURGE_UTILITIES.printlong(p_purge_id,
164: 'Problem raised in GMA_PURGE_UTILITIES.makearcname.'||p_purge_id||' '||p_sourcetable);
165: GMA_PURGE_UTILITIES.printlong(p_purge_id,
166: 'Unhandled EXCEPTION - ' || sqlerrm);
167: RAISE;
160: EXCEPTION
161:
162: WHEN OTHERS THEN
163: GMA_PURGE_UTILITIES.printlong(p_purge_id,
164: 'Problem raised in GMA_PURGE_UTILITIES.makearcname.'||p_purge_id||' '||p_sourcetable);
165: GMA_PURGE_UTILITIES.printlong(p_purge_id,
166: 'Unhandled EXCEPTION - ' || sqlerrm);
167: RAISE;
168:
161:
162: WHEN OTHERS THEN
163: GMA_PURGE_UTILITIES.printlong(p_purge_id,
164: 'Problem raised in GMA_PURGE_UTILITIES.makearcname.'||p_purge_id||' '||p_sourcetable);
165: GMA_PURGE_UTILITIES.printlong(p_purge_id,
166: 'Unhandled EXCEPTION - ' || sqlerrm);
167: RAISE;
168:
169: END makearcname;
171: /***********************************************************/
172:
173: PROCEDURE printline(p_purge_id sy_purg_mst.purge_id%TYPE) IS
174: BEGIN
175: GMA_PURGE_UTILITIES.logprint(p_purge_id,
176: '****************************************' ||
177: '****************************************');
178: END printline;
179:
190: RAISE;
191:
192: END chartime;
193:
194: END GMA_PURGE_UTILITIES;