37: RAISE;
38: END log_message;
39:
40: PROCEDURE debug_message( p_user_info IN VARCHAR2) IS
41: fname utl_file.file_type ;
42: BEGIN
43: -- fname := utl_file.fopen('/sqlcom/log/mfgstrw','dttmp2','a');
44: -- utl_file.put(fname, p_user_info);
45: -- utl_file.fflush(fname);
39:
40: PROCEDURE debug_message( p_user_info IN VARCHAR2) IS
41: fname utl_file.file_type ;
42: BEGIN
43: -- fname := utl_file.fopen('/sqlcom/log/mfgstrw','dttmp2','a');
44: -- utl_file.put(fname, p_user_info);
45: -- utl_file.fflush(fname);
46: -- utl_file.fclose(fname);
47:
40: PROCEDURE debug_message( p_user_info IN VARCHAR2) IS
41: fname utl_file.file_type ;
42: BEGIN
43: -- fname := utl_file.fopen('/sqlcom/log/mfgstrw','dttmp2','a');
44: -- utl_file.put(fname, p_user_info);
45: -- utl_file.fflush(fname);
46: -- utl_file.fclose(fname);
47:
48: IF l_debug = 'Y' THEN
41: fname utl_file.file_type ;
42: BEGIN
43: -- fname := utl_file.fopen('/sqlcom/log/mfgstrw','dttmp2','a');
44: -- utl_file.put(fname, p_user_info);
45: -- utl_file.fflush(fname);
46: -- utl_file.fclose(fname);
47:
48: IF l_debug = 'Y' THEN
49: log_message(p_user_info);
42: BEGIN
43: -- fname := utl_file.fopen('/sqlcom/log/mfgstrw','dttmp2','a');
44: -- utl_file.put(fname, p_user_info);
45: -- utl_file.fflush(fname);
46: -- utl_file.fclose(fname);
47:
48: IF l_debug = 'Y' THEN
49: log_message(p_user_info);
50: --INSERT INTO dt_debug VALUES (p_user_info);