DECLARE
  sd CLIENT_OLE2.OBJ_TYPE;
  args CLIENT_OLE2.LIST_TYPE;
BEGIN
  sd := CLIENT_OLE2.CREATE_OBJ('yyy.xxxcom');
  CLIENT_OLE2.SET_PROPERTY(sd,'p1',1);
  -- ...
END;

 FUNCTION create_obj(object IN VARCHAR2) RETURN CLIENT_OLE2.OBJ_TYPE is
    v_objHandle CLIENT_OLE2.OBJ_TYPE;
    v_javaHandle varchar2(6);
  BEGIN
    MSG(4,4,0);
    -- check if OLE object name is valid
    if  ((object is null) or (object = '')) then
      raise CLIENT_OLE2.OLE_ERROR;
    end if;
    WebUtil_Core.setProperty(WebUtil_Core.WUO_PACKAGE,'WUO_OLE2_OBJNAME',object);
    MSG(6,6,0);    
    v_javaHandle := WebUtil_Core.getProperty(WebUtil_Core.WUO_PACKAGE,'WUO_OLE2_CREATE_OBJ');

    -- check if the OLE Object handle is valid
    if (v_javaHandle is null) or (v_javaHandle='') or (v_javaHandle='-1') then
      raise CLIENT_OLE2.OLE_ERROR;
    end if;
    MSG(7,7,0);    
    v_objHandle := to_number(v_javaHandle);
    MSG(8,8,0);        
    return(v_objHandle);
  EXCEPTION
    when WebUtil_Core.BEAN_NOT_REGISTERED then 
        MSG('N','N',0);
      WebUtil_Core.ErrorAlert(WebUtil_Core.getImplClass(WebUtil_Core.WUO_PACKAGE)
                              ||' bean not found. CLIENT_OLE2.create_obj will not work');
      RAISE CLIENT_OLE2.OLE_ERROR; 
    when WebUtil_Core.PROPERTY_ERROR then 
    MSG('T','T',0);
      RAISE CLIENT_OLE2.OLE_ERROR;
    when VALUE_ERROR then
    MSG('V','V',0);
      RAISE CLIENT_OLE2.OLE_ERROR; 
    when CLIENT_OLE2.OLE_ERROR then 
    MSG('O','O',0);
      RAISE FORM_TRIGGER_FAILURE;

 END create_obj;

v_javaHandle := WebUtil_Core.getProperty(WebUtil_Core.WUO_PACKAGE,'WUO_OLE2_CREATE_OBJ');