[Home] [Help]
2633: select value into l_db_characterset from NLS_DATABASE_PARAMETERS where parameter = 'NLS_CHARACTERSET';
2634: UTL_FILE.PUT_LINE(g_config_handle,'META_VER=' || ORACLE_DATABASE_META_VER);
2635: UTL_FILE.PUT_LINE(g_config_handle,'TIMESTAMP=' || TO_CHAR(sysdate,'yyyy-mm-dd hh24:mi:ss'));
2636: UTL_FILE.PUT_LINE(g_config_handle,'NLS_CHARACTERSET=' || l_db_characterset);
2637: -- If 11+, check for XML DB before calling UTL_INADDR package, otherwise go ahead
2638: select LPAD(version,10,'0') into l_vers from v$instance;
2639: IF l_vers >= '11.0.0.0.0' THEN
2640: l_checkXMLdb :=
2641: 'select count(*) from dba_registry where COMP_NAME = ''Oracle XML Database'' ' ||
2647: END IF;
2648: IF l_comp_cnt > 0 THEN
2649: -- wrap with exception block
2650: BEGIN
2651: UTL_FILE.PUT_LINE(g_config_handle,'IP_ADDRESS=' || UTL_INADDR.GET_HOST_ADDRESS);
2652: UTL_FILE.PUT_LINE(g_config_handle,'HOSTNAME=' || UTL_INADDR.GET_HOST_NAME);
2653: EXCEPTION
2654: WHEN OTHERS THEN NULL;
2655: END;
2648: IF l_comp_cnt > 0 THEN
2649: -- wrap with exception block
2650: BEGIN
2651: UTL_FILE.PUT_LINE(g_config_handle,'IP_ADDRESS=' || UTL_INADDR.GET_HOST_ADDRESS);
2652: UTL_FILE.PUT_LINE(g_config_handle,'HOSTNAME=' || UTL_INADDR.GET_HOST_NAME);
2653: EXCEPTION
2654: WHEN OTHERS THEN NULL;
2655: END;
2656: END IF;