procedure ExpBlob(p_file in varchar2, p_blob in  blob)
  as language java
  name 'BlobHandler.ExpBlob(java.lang.String, oracle.sql.BLOB)';

  FUNCTION new RETURN ORA_JAVA.JOBJECT IS
  BEGIN
    args := NULL;
    RETURN (JNI.NEW_OBJECT('work/BlobHandler', '()V', args));
  END;
  PROCEDURE ExpBlob(
    a0    VARCHAR2,
    a1    ORA_JAVA.JOBJECT
    ) IS
  BEGIN
    args := JNI.CREATE_ARG_LIST( 2 );
    JNI.ADD_STRING_ARG(args, a0);
    JNI.ADD_OBJECT_ARG(args, a1, 'oracle/sql/BLOB');
    JNI.CALL_VOID_METHOD(TRUE, NULL, 'work/BlobHandler', 'ExpBlob', '(Ljava/lang/String;Loracle/sql/BLOB;)V', args); 
  END;