紹介マニアMoinMoin

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

紹介マニアMoinMoin: ORACLEコレクション (last edited 2005-02-01 14:34:25 by )