set term on
set define on
set ver off

column check_job format a150
column check_lock format a150
column check_bck format a150
column check_asm format a150
column check_tbs format a150
column check_swap_in format a150
column check_swap_out format a150

declare
v_res varchar2(1000);
begin
	dbms_output.put_line('------------------------------------------------------------------------------------------');
	
	if lower('&1') = 'job' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_job into :aa from dual' into v_res;
		dbms_output.put_line('func_check_job: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_check_job: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'lock' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_lock into :aa from dual' into v_res;
		dbms_output.put_line('func_check_lock: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_check_lock: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'serv' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_serv into :aa from dual' into v_res;
		dbms_output.put_line('func_check_serv: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_check_serv: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'bck' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_bck into :aa from dual' into v_res;
		dbms_output.put_line('func_check_bck: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_check_bck: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'asm' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_ges_asm into :aa from dual' into v_res;
		dbms_output.put_line('func_ges_asm: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_ges_asm: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'tbs' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_ges_tablespace into :aa from dual' into v_res;
		dbms_output.put_line('func_ges_tbs: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('func_ges_tbs: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'swap' or '&1' = '%' then
	begin
		execute immediate 'select soporte.FUNC_GES_SWAP(''VM_IN_BYTES'') into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_GES_SWAP-VM_IN_BYTES: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_GES_SWAP-VM_IN_BYTES: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'swap' or '&1' = '%' then
	begin
		execute immediate 'select soporte.FUNC_GES_SWAP(''VM_OUT_BYTES'') into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_GES_SWAP-VM_OUT_BYTES: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_GES_SWAP-VM_OUT_BYTES: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'dg' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_dataguard into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_DATAGUARD: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_DATAGUARD: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'temp' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_tab_temp into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_TEMP: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_TEMP: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'aud' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_aud into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_AUD: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_AUD: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'awr' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_awr into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_AWR: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_AWR: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'ora' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_ora_600_7445 into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_ORA_600_7445: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_ORA_600_7445: ERROR CHEQUEO');
	end;
	end if;

	if lower('&1') = 'rdto' or '&1' = '%' then
	begin
		execute immediate 'select soporte.FUNC_CHECK_RDTO into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_RDTO: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_RDTO: ERROR CHEQUEO');
	end;
	end if;
	
	if lower('&1') = 'mem' or '&1' = '%' then
	begin
		execute immediate 'select soporte.func_check_mem into :aa from dual' into v_res;
		dbms_output.put_line('FUNC_CHECK_MEM: ' ||v_res);
	exception
		when others then
			dbms_output.put_line('FUNC_CHECK_MEM: ERROR CHEQUEO');
	end;
	end if;
	
	dbms_output.put_line('------------------------------------------------------------------------------------------');
end;
/
