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;
RETURN retvar;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line ('OTHERS = '||sqlerrm);
utl_file.fclose(inifile_handler);
RETURN NULL;
END;
もっとよくできるはずだが架空のコードなのでこんな物かな。
select * from all_tab_columns where owner = 'ユーザ名' and table_name = 'テーブル名' order by owner, table_name, column_id