#pragma section-numbers off

varrayとnested tableがある。

{{{
DECLARE
   TYPE RETARR IS VARRAY(10) OF VARCHAR2(3);
   retvar RETARR;
BEGIN
   retvar := RETARR('');
   i := 1;
   LOOP
     IF i > 1 THEN
       retvar.EXTEND; 
     END IF;
     retvar(i) := '文字列';
     i := i + 1;
   END LOOP;
   WHEN NO_DATA_FOUND THEN
     dbms_output.put_line ('NO_DATA_FOUND = '||sqlerrm);
     utl_file.fclose(inifile_handler);
   WHEN OTHERS THEN
     dbms_output.put_line ('OTHERS = '||sqlerrm);
     utl_file.fclose(inifile_handler);
     RETURN SQLCODE;
END;
}}}
もっとよくできるはずだが架空のコードなのでこんな物かな。

----
["Oracle"]