[Ora10] 配列を返すパッケージを SQL*Plus からテストする方法

CREATE OR REPLACE PACKAGE KOBA 

   ----RECORDの結合配列（索引付き表）は

   ----PL/SQLでは処理できないためネストした表に変更

   TYPE TYP_DAYARY IS TABLE OF TYP_DAY ;



   ----コレンクション型（ネストした表またはVARRAY）を戻す

   FUNCTION FTEST RETURN TYP_DAYARY PIPELINED;

END; 



CREATE OR REPLACE PACKAGE BODY KOBA 

IS 

  FUNCTION FTEST RETURN TYP_DAYARY PIPELINED

  IS 

    REC_DAYS TYP_DAYARY; 

  BEGIN

    ----ﾈｽﾄｼﾀ表ﾉ初期化 要素数5

    REC_DAYS := TYP_DAYARY(null,null,null,null,null);

    

    REC_DAYS(1).日付 := 20080701; 

    REC_DAYS(1).区分 := 0;

    PIPE ROW(REC_DAYS(1));



    REC_DAYS(2).日付 := 20080702; 

    REC_DAYS(2).区分 := 1; 

    PIPE ROW(REC_DAYS(2));

    ----

    RETURN;

  END; 

END; 

----既存のPROCEDUREコールをラップ

----コールインターフェースはパイプライン表関数

  FUNCTION FTEST2

    return TYP_DAYARY

    PIPELINED

  is

    out_recs TYP_DAYARY;

    REC_DAYS TYP_DAYS;

  BEGIN

    out_recs :=TYP_DAYARY();



    TEST(REC_DAYS);



    for i in REC_DAYS.First .. REC_DAYS.LAST loop

      out_recs.EXTEND;

      out_recs(i+1) := REC_DAYS(i);

      pipe ROW(out_recs(i+1));

    end loop;

  return ;

  end;