Devart Forum

Код: Выделить всё

-- Заголовок пакета
  type r_test is record (
    item1 varchar2(100),
    item2 number,
    item3 date
  );
  type a_test is table of r_test;

  function test_piplenined (
    p_d_beg   date default null,
    p_d_end   date default null
  )
  return a_test parallel_enable pipelined;

-- Тело пакета
  function test_piplenined (
    p_d_beg   date default null,
    p_d_end   date default null
  )
  return a_test parallel_enable pipelined
  is
    result_row r_test;
  begin
    result_row.item1 := 'p_d_beg='||to_char(p_d_beg, 'yyyy-dd-mm')||'; p_d_end='||to_char(p_d_end, 'yyyy-dd-mm');
    result_row.item2 := 1;
    result_row.item3 := sysdate;
    pipe row(result_row);
    result_row.item2 := 2;
    result_row.item3 := sysdate;
    pipe row(result_row);
    result_row.item2 := 3;
    result_row.item3 := sysdate;
    pipe row(result_row);
  end;