declare
v_item_ship_id      number(12); --gpu_ident2.item_ship_id%type;
v_IDENT_SHORT_DESC  varchar2(32000); --GPU_ISH_EXPED_5.IDENT_SHORT_DESC%type;
l_cursor            GPU_PCK2.gpu_ref_cursor;
begin
--execute immediate 'ALTER SESSION SET NLS_LENGTH_SEMANTICS=CHAR';
  l_cursor := GPU_PCK2.hmm_1(gpu_type_varchar2_tab('ITEM_SHIP_ID', 'IDENT_SHORT_DESC'), gpu_type_numbers(4), 1);
  fetch l_cursor into v_item_ship_id, v_IDENT_SHORT_DESC;
  dbms_output.put_line(v_IDENT_SHORT_DESC);
  close l_cursor;
exception
when others then
  close l_cursor;
  raise;
end;