set     heading    off
set     pagesize   999
set     verify     off
set     feedback   off
set     maxdata    4000
set     arraysize  1
rem
COLUMN  s_id         NOPRINT new_value s_id;

SELECT value s_id from v$parameter
 where name='db_name';
/
spool OraParams.lis

set heading off;
select  'v7dba  Report for SID=&s_id generated on '||
        to_char(sysdate,'DD-MON-YY HH24:MI:SS')||' by '||
        user
from    sys.dual
/

set heading on
Prompt
prompt *********************************************************************
prompt *                    Database init.ora parameters                   *
prompt *********************************************************************
column  name         format a42
column value format a25
column isdefault format a6
select  name, value, isdefault
from    v$parameter
order by name
/
prompt *********************************************************************
prompt *                   Shows version and startup time                  *
prompt *********************************************************************

set serveroutput on

Declare 
	v_cursor_pos number;
	v_sql_string varchar2(255);
	v_oracle_banner varchar2(255);
	v_oracle_version char;
	v_start_time varchar2(18);
	v_return_val number;
	v_date_format varchar2(18) := 'DD-MON-YY HH:MM:SS';
	v_julian char := 'J';
	v_V7_string varchar2(25) := 'STARTUP TIME - JULIAN'	;
	v_Full_version char(10) ;
Begin

/* Get the Oracle version Banner */
	select banner into v_oracle_banner from v$version
		where banner like 'Oracle%';
/* Isolate the major version number */
	v_oracle_version := substr(v_oracle_banner,instr(v_oracle_banner,'Release')+8,1);
	v_Full_version := substr(v_oracle_banner,instr(v_oracle_banner,'Release')+8,9);

	DBMS_OUTPUT.PUT_LINE('Oracle Version '||v_Full_version);
/* If we are running Oracle 7 */
	if v_oracle_version = '7' then
/* Open the Cursor */
		v_cursor_pos := dbms_sql.open_cursor;
/* Setup the Sql Statement */
		v_sql_string := 'select to_char(to_date(value, :julian), :date_format ) 
						 from v$instance where key = :v7_string' ;
/* Parse it */
		dbms_sql.parse(v_cursor_pos,v_sql_string,dbms_sql.v7);
/* Define the output variable */
		dbms_sql.define_column(v_cursor_pos,1,v_start_time,18);
/* Bind the Variables */
		dbms_sql.bind_variable(v_cursor_pos,':date_format',v_date_format);
		dbms_sql.bind_variable(v_cursor_pos,':v7_string',v_V7_string);
		dbms_sql.bind_variable(v_cursor_pos,':julian',v_julian);
/* Execute it! */
		v_return_val := dbms_sql.execute(v_cursor_pos);
	Loop
		if dbms_sql.fetch_rows(v_cursor_pos) = 0 then
			exit;
		end if;
		dbms_sql.column_value(v_cursor_pos,1,v_start_time);
	End Loop;
/* Close the Cursor */
		dbms_sql.close_cursor(v_cursor_pos);
	else
/* Assume Oracle 8...I know, I know... */
/* Open the Cursor */
		v_cursor_pos := dbms_sql.open_cursor;
/* Setup the Sql Statement */
		v_sql_string := 'select to_char(startup_time,:date_format) start_time from v$instance';
/* Parse it */
		dbms_sql.parse(v_cursor_pos,v_sql_string,dbms_sql.v7);
/* Bind the Variables */
		dbms_sql.bind_variable(v_cursor_pos,':date_format',v_date_format);
/* Define the output variable */
		dbms_sql.define_column(v_cursor_pos,1,v_start_time,18);
/* Execute it! */
		v_return_val := dbms_sql.execute(v_cursor_pos);
	Loop
		if dbms_sql.fetch_rows(v_cursor_pos) = 0 then
			exit;
		end if;
		dbms_sql.column_value(v_cursor_pos,1,v_start_time);
	End Loop;
/* Close the Cursor */
		dbms_sql.close_cursor(v_cursor_pos);
	end if;
/* Output the Result */
	dbms_output.put_line('Instance started at '||v_start_time);

end;
/

spool off

exit