add functions and sample

Author: kikitux

create_function_toddog.sql

@@ -0,0 +1,102 @@
+prompt create library using libtoddog.so
+
+CREATE OR REPLACE LIBRARY libtoddog AS  '${ORACLE_HOME}/lib/libtoddog.so';
+/
+prompt create function f_metrictoddog
+
+CREATE OR REPLACE FUNCTION f_metrictoddog ( 
+   name IN VARCHAR2,
+   metric IN BINARY_INTEGER,
+   kind IN VARCHAR2,
+   tag IN VARCHAR2)  
+RETURN VARCHAR2 AS LANGUAGE C 
+NAME "metrictoddog" 
+LIBRARY libtoddog
+WITH CONTEXT 
+PARAMETERS ( 
+CONTEXT,  
+name   	STRING,  
+name   	INDICATOR short,  
+metric	INT,  
+metric	INDICATOR short,  
+kind	STRING,  
+kind	INDICATOR short,  
+tag	STRING,  
+tag	INDICATOR short,  
+RETURN INDICATOR short,  
+RETURN LENGTH short,  
+RETURN STRING); 
+/
+show err
+
+CREATE OR REPLACE FUNCTION f_gaugetoddog(
+    name IN VARCHAR2,
+    metric IN number,
+    tag IN VARCHAR2)
+RETURN VARCHAR2 IS
+BEGIN
+    return f_metrictoddog(name,metric,'g',tag); 
+END;
+/
+show err
+
+CREATE OR REPLACE FUNCTION f_counttoddog(
+    name IN VARCHAR2,
+    metric IN number,
+    tag IN VARCHAR2)
+RETURN VARCHAR2 IS
+BEGIN
+    return f_metrictoddog(name,metric,'c',tag);
+END;
+/
+show err
+
+prompt calling function from pl/sql block
+set serveroutput on
+
+declare
+  name varchar2(50);
+  metric int(10);
+  tag varchar2(50);
+  result varchar2(10);
+  err_num NUMBER;
+  err_msg VARCHAR2(100);
+begin
+  name := 'sample.gauge';
+  metric := 15;
+  tag := 'plsql';
+  result := f_gaugetoddog(name,metric,tag);
+  dbms_output.put_line(result);
+EXCEPTION
+  WHEN OTHERS THEN
+    err_num := SQLCODE;
+    err_msg := SUBSTR(SQLERRM, 1, 100);
+    raise_application_error(err_num, err_msg);
+END;
+/
+show err
+
+declare
+  name varchar2(50);
+  metric int(10);
+  tag varchar2(50);
+  result varchar2(10);
+  err_num NUMBER;
+  err_msg VARCHAR2(100);
+begin
+  name := 'sample.count';
+  metric := 15;
+  tag := 'plsql';
+  result := f_counttoddog(name,metric,tag);
+  dbms_output.put_line(result);
+EXCEPTION
+  WHEN OTHERS THEN
+    err_num := SQLCODE;
+    err_msg := SUBSTR(SQLERRM, 1, 100);
+    raise_application_error(err_num, err_msg);
+END;
+/
+show err
+
+
+exit

samples/rowcount.sql

@@ -0,0 +1,31 @@
+set serveroutput on
+
+declare
+  name varchar2(50);
+  result varchar2(10);
+  cursor c_table is
+    select TABLE_NAME, NUM_ROWS from all_tables where OWNER = 'HR';
+  errorinloop EXCEPTION;
+  err_num NUMBER;
+  err_msg VARCHAR2(100);
+begin
+  name := 'sample.rowcount';
+  for t in c_table loop
+    result := f_gaugetoddog(name,t.num_rows,t.table_name);
+    IF result != 'done' THEN
+      RAISE errorinloop;
+   END IF;
+  end loop;
+EXCEPTION
+  WHEN errorinloop THEN
+    raise_application_error(-20101, 'error inside loop on samples/rowcount.sql');
+  WHEN OTHERS THEN
+    err_num := SQLCODE;
+    err_msg := SUBSTR(SQLERRM, 1, 100);
+    raise_application_error(err_num, err_msg);
+END;
+/
+
+show err
+
+exit