实现一个功能,请高手帮助!!

Question

自已写一的PROCEDURE是最好了，你试一下
（1）得到所有表
    select object_name from all_objects where object_type='TABLE'
（2）取出各个表数据
    select col1,col2  into var1,var2 .....from 各个表名
 (3) 将（2）中得到的第一行数据写入文本文件
    begin
     vPath := 'D:\';
     vName := 'Data.Txt';
     Begin
          MyHandle := Utl_File.FOpen( vPath, vName, 'a' );
          For Cur In ( Select * From Plusmoney )
          Loop
              Utl_File.Put_Line( MyHandle, 
                                ......
                                字符串变量);
          End Loop;
     Exception
              When UTL_FILE.INVALID_PATH Then 
                   Return;
              When UTL_FILE.INVALID_MODE Then 
                   Return;
              When UTL_FILE.INVALID_OPERATION Then 
                   Return;
     End;
     Utl_File.FClose( MyHandle );