5738: mtq_index := 0 ;
5739:
5740: return_status := TRUE;
5741:
5742: /* Get the directory specified in the 'utl_file_dir' in init.ora file */
5743: BEGIN
5744: SELECT substrb(translate(ltrim(value),',',' '), 1,
5745: instr(translate(ltrim(value),',',' '),' ') - 1)
5746: INTO p_location
5744: SELECT substrb(translate(ltrim(value),',',' '), 1,
5745: instr(translate(ltrim(value),',',' '),' ') - 1)
5746: INTO p_location
5747: FROM v$parameter
5748: WHERE name = 'utl_file_dir';
5749: EXCEPTION
5750: WHEN OTHERS THEN
5751: return_status := FALSE;
5752: log_message('directory select failed ');
5938: PROCEDURE gmp_putline (
5939: v_text IN VARCHAR2,
5940: v_mode IN VARCHAR2 )
5941: IS
5942: LOG UTL_FILE.file_type;
5943: BEGIN
5944:
5945: IF p_location IS NOT NULL THEN
5946: LOG :=
5943: BEGIN
5944:
5945: IF p_location IS NOT NULL THEN
5946: LOG :=
5947: UTL_FILE.fopen ( p_location, 'GMPBMRTB.log', v_mode );
5948: UTL_FILE.put_line ( LOG, v_text );
5949: UTL_FILE.fflush ( LOG );
5950: UTL_FILE.fclose ( LOG );
5951: ELSE
5944:
5945: IF p_location IS NOT NULL THEN
5946: LOG :=
5947: UTL_FILE.fopen ( p_location, 'GMPBMRTB.log', v_mode );
5948: UTL_FILE.put_line ( LOG, v_text );
5949: UTL_FILE.fflush ( LOG );
5950: UTL_FILE.fclose ( LOG );
5951: ELSE
5952: NULL ;
5945: IF p_location IS NOT NULL THEN
5946: LOG :=
5947: UTL_FILE.fopen ( p_location, 'GMPBMRTB.log', v_mode );
5948: UTL_FILE.put_line ( LOG, v_text );
5949: UTL_FILE.fflush ( LOG );
5950: UTL_FILE.fclose ( LOG );
5951: ELSE
5952: NULL ;
5953: END IF;
5946: LOG :=
5947: UTL_FILE.fopen ( p_location, 'GMPBMRTB.log', v_mode );
5948: UTL_FILE.put_line ( LOG, v_text );
5949: UTL_FILE.fflush ( LOG );
5950: UTL_FILE.fclose ( LOG );
5951: ELSE
5952: NULL ;
5953: END IF;
5954: END gmp_putline;