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