CREATE PROCEDURE SCH.GET_BLOB(
  IN ID INT, INOUT PROFILE BLOB(100k) )
      DYNAMIC RESULT SETS  0 
      LANGUAGE C
      PARAMETER STYLE SQL
      NO DBINFO
      FENCED
      MODIFIES SQL DATA
      PROGRAM TYPE SUB
      EXTERNAL NAME 'getblob!getblob';

SQL_API_RC SQL_API_FN getblob (
    SQLUDF_INTEGER    *iID,       SQLUDF_BLOB         *oBlob,
    SQLUDF_NULLIND    *iID_ind,  SQLUDF_NULLIND     *oBlob_ind,
    SQLUDF_TRAIL_ARGS
)

  EXEC SQL INCLUDE SQLCA;

  EXEC SQL BEGIN DECLARE SECTION;
     long                             id;
     SQL TYPE IS BLOB(100k) bdata;
     short                           bdata_ind;
  EXEC SQL END DECLARE SECTION;

    EXEC SQL
      SELECT BDATA
        INTO :bdata:bdata_ind
        FROM SHL.BLOBS
       WHERE ID = :id;

  oBlob->length = bdata.length;
  memcpy( oBlob->data, bdata.data, bdata.length );