create or replace procedure pro_union_binary(recordid number) is
  cursor v_cursor is
    select * from tb_image_info where itemid = recordid order by ilineid;
  v_item       v_cursor%rowtype;
  v_count      integer default 0;
  v_ilineid    integer default 0;
  v_sql        varchar2(32767) default '';
  v_characters clob;
  v_seq        integer default 1;
  v_blob       blob;
  warning      integer;
  dest_offset1 integer := 1;
  src_offset1  integer := 1;
  lang_ctx     INTEGER := DBMS_LOB.default_lang_ctx;
begin
  select count(*) into v_count from tb_image_info where itemid = recordid;
  if v_count = 1 then
    return;
  end if;
  open v_cursor;
  loop
    fetch v_cursor
      into v_item;
    exit when v_cursor%notfound;
    if v_ilineid = 0 then
      v_ilineid := v_item.ilineid;
    end if;
    v_characters := v_characters || v_item.image; --获取已经得到的二进制文件流对应的十六进制字符串
   if v_seq = v_count then
      if dbms_lob.getlength(v_characters) = 0 then
        return;
      end if;
      DBMS_LOB.createtemporary(v_blob, TRUE);
      DBMS_LOB.OPEN(v_blob, DBMS_LOB.lob_readwrite);
      DBMS_LOB.convertToBlob(v_blob,
                             v_characters,
                             DBMS_LOB.lobmaxsize,
                             dest_offset1,
                             src_offset1,
                             DBMS_LOB.default_csid,
                             lang_ctx,
                             warning);
    
      v_sql := 'update tb_image_info set image0 = :1 where ilineid = :2';
      execute immediate v_sql
        using v_blob, v_ilineid;
    end if;
    v_seq := v_seq + 1;
  end loop;
end pro_union_binary;