#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;
}}}
もっとよくできるはずだが架空のコードなのでこんな物かな。

{{{
select * from all_tab_columns
 where owner = 'ユーザ名' and table_name = 'テーブル名'
 order by owner, table_name, column_id
}}}

----
["Oracle"]