Zunächst eine Klasse zum Laden von Webseiten per URL:

create or replace and compile java source named java_http
as
import java.net.*;
import java.io.*;
public class java_http {
  public static String get(String url) throws Exception {
    URL u = new URL(url);
    URLConnection c = u.openConnection();
    c.setDoOutput(true);
    if (c instanceof HttpURLConnection) {
       ((HttpURLConnection)c).setRequestMethod("GET");
    }
    OutputStreamWriter out = new OutputStreamWriter(
      c.getOutputStream()
    );
    out.close();
    BufferedReader in = new BufferedReader(
      new InputStreamReader(
        c.getInputStream()
      )
    );
    String result = "";
    String s = null;
    while ((s = in.readLine()) != null) {
      result += s;
    }
    in.close();
    return result;
  }
}

Für diese Klasse eine Stored Function in Oracle definieren:

create or replace function javahttpget(p_string in varchar2)
return varchar2
as language java name 'java_http.get(java.lang.String) return java.lang.String';

Testaufruf:

select javahttpget('http://www.oracle.com/') from dual;

Fehler wegen Berechtigung:

ORA-29532: Java-Aufruf durch nicht abgefangene Java-Exception beendet:
java.security.AccessControlException: the Permission (java.net.SocketPermission
www.oracle.com resolve) has not been granted to SCOTT. The PL/SQL to grant this
is dbms_java.grant_permission( 'SCOTT', 'SYS:java.net.SocketPermission','www.oracle.com', 'resolve' )

Berechtigung vergeben:

conn scott as sysdba
exec dbms_java.grant_permission('SCOTT','SYS:java.net.SocketPermission','www.oracle.com','resolve')
exit
select javahttpget('http://www.oracle.com/') from dual;

Prozedur in Java

Zuerst muß die Javaklasse erstellt werden:

create or replace and compile java source named java_hallowelt
as
import java.util.*;
import java.sql.*;
public class java_hallowelt {
  public static void hallowelt() {
    System.out.println("Java Hallo Welt");
  }
}

Danach kann mit Bezug auf die Javaklasse eine Prozedur definiert werden:

create or replace procedure hallowelt
as language java name 'java_hallowelt.hallowelt()';

Der Aufruf erfolgt mit:

exec hallowelt;

Funktion in Java

create or replace and compile java source named java_gethallo
as
public class java_gethallo {
  public static String gethallo() {
    return "Hallo Welt";
  }
}

Wichtig: an dieser Stelle wird nicht geprüft, ob die Klasse java_gethallo existiert! (Erst zur Laufzeit)

create or replace function gethallo
return varchar2
as language java name 'java_gethallo.gethallo() return java.lang.String';

Der Aufruf liefert „Hallo Welt“.

select gethallo from dual;

Funktionen mit Parametern und Rückgabe

create or replace and compile java source named java_upper
as
public class java_util {
  public static String upper(String p_string) {
    return p_string.toUpperCase();
  }
}

create or replace function javaupper(p_string in varchar2)
return varchar2
as language java name 'java_util.upper(java.lang.String) return java.lang.String';

select javaupper('d') from dual;

create or replace function fu_add(p_in in number)
  return number
as
  v_out number;
begin
  v_out := p_in + 1;
  return v_out;
end;

exec dbms_output.put_line(fu_add(10));

select fu_add(10) from dual;

Zum Anlegen oder Ändern einer Procedure wird das Recht „CREATE PROCEDURE“ benötigt.

Anlegen:

create or replace procedure proc_ascii
as
  type t_ascii is varray(256) of char(1);
  a_ascii t_ascii;
begin null;
  a_ascii := t_ascii();
  a_ascii.extend(256);
  for i in 1 .. a_ascii.limit-1 loop
    a_ascii(i) := chr(i-1);
    dbms_output.put_line(i || ' ' || chr(i-1));
  end loop;
end;

Drop Procedure

Das Löschen einer Procedure erfolgt mit „DROP PROCEDURE -name-“.

Aufruf Procedure

Ausführen (1):

exec proc_acsii

Ausführen (2):

begin proc_acsii;
end;

Kompilerfehler

Wenn eine Fehlermeldung beim Anlegen kommt kann mit „show errors“ die Meldung angezeigt werden.

Parameter

Parameter können innerhalb der Procedure nur lesend verwendet werden.

create or replace procedure proc_ascii(p_bis in number default 256)
as
  type t_ascii is table of char(1);
  a_ascii t_ascii;
begin null;
  a_ascii := t_ascii();
  a_ascii.extend(p_bis);
  for i in 1 .. p_bis loop
    a_ascii(i) := chr(i-1);
    dbms_output.put_line(i || ' ' || chr(i-1));
  end loop;
end;

Rückgaben

create or replace procedure proc_add(p_in in number, p_out out number)
as
begin null;
  p_out := p_in + 1;
end;

declare
  v_out number;
begin
  proc_add(10,v_out);
  dbms_output.put_line(v_out); /* 11 */
end;

declare
  v_out number;
begin
  proc_add(p_out=>v_out,p_in=>10);
  dbms_output.put_line(v_out); /* 11 */
end;

By-Reference:

create or replace procedure proc_add(p_inout in out number)
as
begin null;
  p_inout := p_inout + 1;
end;

declare
  v_inout number;
begin
  v_inout := 10;
  proc_add(v_inout);
  dbms_output.put_line(v_inout); /* 11 */
end;

declare
  type t_emp is table of emp%rowtype;
  a_emp t_emp;
begin
  select * bulk collect into a_emp from emp;
  dbms_output.put_line('emp.count ' || a_emp.count);
  -- Datensätze clonen
  for i in a_emp.first .. a_emp.last loop
    a_emp(i).empno := a_emp(i).empno + 1000;
    dbms_output.put_line('empno ' || a_emp(i).empno);
  end loop;
  -- Bulk insert
  forall i in a_emp.first .. a_emp.last
    insert into emp values a_emp(i);
end;

declare
  type t_emp is table of emp%rowtype;
  a_emp t_emp;
begin
  select * bulk collect into a_emp from emp;
  dbms_output.put_line('emp.count ' || a_emp.count);
  for i in a_emp.first .. a_emp.last loop
    dbms_output.put_line('empno ' || a_emp(i).empno);
  end loop;
end;

declare
  v_count number;
  v_owner all_tab_columns.owner%type;
  v_table_name all_tab_columns.table_name%type;
  v_column_name all_tab_columns.column_name%type;
  cursor c_all_tab_columns is
    select distinct owner, table_name
    from all_tab_columns
    where upper(column_name) like upper(v_column_name)
  ;
begin
  v_column_name := '&like_column_name';
  dbms_output.put_line('Suche Tabellen, die Spalte ' || v_column_name || ' verwenden');
  for r_all_tab_columns in c_all_tab_columns loop
    v_owner := r_all_tab_columns.owner;
    v_table_name := r_all_tab_columns.table_name;
    v_count := 0;
    begin
      execute immediate 'select count(*)
                         from ' || v_owner || '.' || v_table_name || '
                        ' into v_count;
    exception
      when others then
        case sqlcode
          when -1031 then
            dbms_output.put_line(rpad('ErrAccess',10,'.') || ' ' || v_owner || '.' || v_table_name || ' (ORA' || SQLCODE || ')');
          else
            dbms_output.put_line(rpad('ErrOthers',10,'.') || ' ' || v_owner || '.' || v_table_name || ' (' || SQLERRM || ')');
        end case;
    end;
    if v_count > 0 then
      dbms_output.put_line(lpad(v_count,10,'.') || ' ' || v_owner || '.' || v_table_name);
    end if;
  end loop;
end;

COLUMN_NAME LIKE ‘%TABLE_NAME%’

........29 OLAPSYS.ALL$OLAP_COLUMNS
.........1 OLAPSYS.ALL$OLAP_FOREIGN_KEYS
.........2 OLAPSYS.ALL$OLAP_KEYS
.........3 OLAPSYS.ALL$OLAP_KEY_COLUMN_USES
.........9 OLAPSYS.ALL$OLAP_TABLES
........97 SYS.ALL_ALL_TABLES
.....21690 SYS.ALL_CATALOG
.....15195 SYS.ALL_COL_COMMENTS
.......339 SYS.ALL_CONSTRAINTS
.......249 SYS.ALL_CONS_COLUMNS
........74 SYS.ALL_INDEXES
.......120 SYS.ALL_IND_COLUMNS
.........2 SYS.ALL_IND_STATISTICS
.......299 SYS.ALL_LOBS
........16 SYS.ALL_OBJECT_TABLES
.......565 SYS.ALL_OBJ_COLATTRS
........50 SYS.ALL_REFS
........17 SYS.ALL_STREAMS_UNSUPPORTED
.....20089 SYS.ALL_SYNONYMS
........81 SYS.ALL_TABLES
.....16139 SYS.ALL_TAB_COLS
.....15195 SYS.ALL_TAB_COLUMNS
.......266 SYS.ALL_TAB_COL_STATISTICS
......1611 SYS.ALL_TAB_COMMENTS
......3573 SYS.ALL_TAB_HISTOGRAMS
.........1 SYS.ALL_TAB_MODIFICATIONS
.....21100 SYS.ALL_TAB_PRIVS
.....21100 SYS.ALL_TAB_PRIVS_RECD
........85 SYS.ALL_TAB_STATISTICS
........32 SYS.ALL_TRIGGERS
.....15195 SYS.ALL_UPDATABLE_COLUMNS
.......283 SYS.ALL_VARRAYS
........15 SYS.ALL_XML_TABLES
.........2 SYS.ALL_XML_TAB_COLS
.......657 SYS.DICTIONARY
.....15702 SYS.DICT_COLUMNS
ErrAccess. SYS.FLASHBACK_TRANSACTION_QUERY (ORA-1031)
.......299 SYS.IMP_LOB_INFO
.....16139 SYS.LOADER_COL_FLAGS
......1055 SYS.LOADER_COL_TYPE
.......339 SYS.LOADER_CONSTRAINT_INFO
.......627 SYS.LOADER_FULL_ATTR_NAME
.....16139 SYS.LOADER_INTCOL_INFO
.......299 SYS.LOADER_LOB_FLAGS
.......120 SYS.LOADER_OID_INFO
........16 SYS.LOADER_REF_INFO
........32 SYS.LOADER_TRIGGER_INFO
.....20740 SYS.TABLE_PRIVILEGES
.........5 SYS.USER_ALL_TABLES
.........9 SYS.USER_CATALOG
........29 SYS.USER_COL_COMMENTS
.........3 SYS.USER_CONSTRAINTS
.........3 SYS.USER_CONS_COLUMNS
.........2 SYS.USER_INDEXES
.........2 SYS.USER_IND_COLUMNS
.........2 SYS.USER_IND_STATISTICS
.........5 SYS.USER_TABLES
........29 SYS.USER_TAB_COLS
........29 SYS.USER_TAB_COLUMNS
.........9 SYS.USER_TAB_COMMENTS
.........1 SYS.USER_TAB_MODIFICATIONS
.........9 SYS.USER_TAB_STATISTICS
........29 SYS.USER_UPDATABLE_COLUMNS
........17 SYS.USER_XML_COLUMN_NAMES
ErrOthers. SYS._ALL_FILE_GROUP_TABLES (ORA-00911: Ungültiges Zeichen)
ErrOthers. SYS._ALL_REPPARAMETER_COLUMN (ORA-00911: Ungültiges Zeichen)

COLUMN_NAME LIKE ‘%USER%’

........97 SYS.ALL_ALL_TABLES
.........2 SYS.ALL_DEQUEUE_QUEUES
........74 SYS.ALL_INDEXES
.........2 SYS.ALL_IND_STATISTICS
........16 SYS.ALL_OBJECT_TABLES
.........2 SYS.ALL_QUEUES
.........2 SYS.ALL_QUEUE_TABLES
........81 SYS.ALL_TABLES
.....16139 SYS.ALL_TAB_COLS
.....15195 SYS.ALL_TAB_COLUMNS
.......266 SYS.ALL_TAB_COL_STATISTICS
........85 SYS.ALL_TAB_STATISTICS
........22 SYS.ALL_USERS
.........1 SYS.EXU8USRU
ErrAccess. SYS.FLASHBACK_TRANSACTION_QUERY (ORA-1031)
.........1 SYS.GV_$AW_SESSION_INFO
.........1 SYS.IMP9USR
........30 SYS.KU$_PROCACT_SCHEMA_VIEW
.........8 SYS.KU$_SCHEMA_CALLOUT_VIEW
.........5 SYS.USER_ALL_TABLES
.........2 SYS.USER_INDEXES
.........2 SYS.USER_IND_STATISTICS
.........2 SYS.USER_ROLE_PRIVS
.........1 SYS.USER_SYS_PRIVS
.........5 SYS.USER_TABLES
........29 SYS.USER_TAB_COLS
........29 SYS.USER_TAB_COLUMNS
.........9 SYS.USER_TAB_STATISTICS
.........1 SYS.USER_USERS
.........1 SYS.V_$AW_SESSION_INFO
........28 SYS.V_$SESSION_CONNECT_INFO
.........1 WMSYS.ALL_WORKSPACES

Besondere Features:
* mehrere Twitter-Accounts
* automatische Hashtag-Suche
* zeitgesteuerte Tweet-Veröffentlichung

Mehr Infos hier …

Bei einer Brownbag-Sitzung treffen sich interessierte Kollegen freiwillig z.B. in der Mittagspause, um sich über bestimmte Themen auszutauschen. Der Name kommt daher, dass die Amis ihr Essen in einer braunen Papiertüte mitbringen. Zur Auftacktveranstaltung wurden bei uns 50 Brownbags mit Brötchen, Getränk und Schokoriegel gesponsort. Trotz materiellem Anreiz durch ein kostenloses Lunchpaket waren wir nur ca. 25 interessierte Entwickler aus dem IT-Bereich.

Ziel ist es, sich auch gern mal über Themen abseits des Kerngeschäfts zu informieren. Ralf hat uns live die Entwicklung einer native Applikation für’s iPhone in ObjectC und der Entwicklungsumgebung Xcode gezeigt. Herausgekommen ist eine Mini-Einkaufsliste, die nach 30 Minuten fertig war. Seiner Erfahrung nach bedarf es für anspruchsvollere Anwendungen viel Tuning, da die Hardware real wesentlich langsamer ist, als der Simulator im SDK. Auch stören die 99$ Jahresgebühr für die Apple Developer Connection (ADC), um selbst kostenlose Tools im AppStore von Apple zu veröffentlichen. Zudem zahlt Apple erst aus, wenn 200$ Umsatz nach Abzug der 30% Provision erwirtschaftet wurden. In seinem Fall wird es Jahre dauern, da er gerade mal zwei Verkäufe seiner App zu 1,59€ in 2009 hatte. Es ist der Mythos vom schnellen Geld, daß viele Entwickler sich extra einen Mac kaufen, um dann Apps zu bauen (es reicht ein MacMini auf Intel-Basis). Der eigentliche Gewinner ist Apple, weil die meisten Entwickler letztlich Geld drauf zahlen dürften.

Bisher hatte ich keine Berührung mit ObjC-Quellcode. Mein erster Eindruck: die Syntax sieht nicht „schön“ aus. Python ist ja schon gewöhnungsbedürftig mit seinen Einrückungen ohne Klammern. Bei Java finde ich die Verbindung zwischen Objekte, Methoden und Attributen über einen Punkt noch am übersichtlichsten. Bei ObjectC kann man den Code durch die ständige Vermischung von [],@,“ als Einsteiger schlecht erfassen.

Was bleibt ist für mich die Erkenntnis, daß es sich finanziell nicht unbedingt lohnt sich extra in das Thema native iPhone Apps einzuarbeiten. Erstens bräuchte ich einen Mac, zweitens viel Zeit für das Framework & ObjectC und drittens sind da noch die jährlichen Zwangsgebühren an Apple. Die Frage ist, ob es nicht eher lohnt sich mit HTML5-basierten WebApps zu beschäftigen, die dann auch auf Smartphones anderer Hersteller laufen. PhoneGap wäre ein alternativer Ansatz für ein übergreifendes Framework.