命令未正确结束PL SQL

我正在尝试实现一个pl sql程序，该程序可以导出文件中特定用户的所有表的内容，但无论何时运行它，都会遇到“命令未正确结束”的问题。 这是我的密码：

create or replace procedure userTable(name dba_tables.owner%type)
is
cursor cur1 is select table_name from dba_tables where owner = upper(name);
cursor cur(tabName in varchar2) is select column_name from dba_tab_columns where owner = upper(name) and table_name = upper(tabName);

V$FILEP UTL_FILE.FILE_TYPE;

type dyncursor is ref cursor;
dyn dyncursor;
req varchar2(32767):='select to_char(';
lig Varchar2(32767);
i integer:=1;

begin
  if existUser(name) = true then
    V$FILEP := UTL_FILE.FOPEN('DIRT001','TEST09.UTL','W');
    for vc1 in cur1 loop
      for vc in cur(to_char(vc1.table_name)) loop
        if (i=1) then
          req:=req||vc.column_name||')';
          i:=0;
        else
          req:=req||'||'||''','''||'||'||'to_char('||vc.column_name||')';
        end if;
      end loop;
      req:=req||' from '||name||'.'||'to_char('||vc1.table_name||')';
      open dyn for req;
      loop
        fetch dyn into lig;
        exit when dyn%notfound;
        dbms_output.put_line(lig);
        UTL_FILE.PUT_LINE(V$FILEP,lig );
      end loop;
      close dyn;
    end loop;
    UTL_FILE.FCLOSE(V$FILEP);
  else
    dbms_output.put_line('user invalid');
  end if;
end;
/
create or replace function existUser(name dba_users.username%type)
return boolean is
  nb number :=0;
begin
  select count(*) into nb from dba_users where username = upper(name);
  if nb = 0 then
    return false;
  else
    return true;
  end if;
end;
/

---

扩展评论中提到的内容，添加一个DBMS_输出将向您显示“from schema.to_char（table_name）”

vc1.表名&vc.列名已经是字符（varchar2），因此首先不需要对它们执行to char操作，因此只需从所有这些内容中删除to char是一个很好的第一步

---

然后，如果仍然不起作用，请按照ArkadiuszŁukasiewicz在评论中的建议添加DBMSŁU输出，以查看可能存在的其他问题。

我没有看到任何明显的问题，除了在执行

创建或替换过程userTable…

之前应该执行

创建或替换函数existUser…

，因为前者是从后者调用的。如果愿意，请使用标签下方的

edit

按钮编辑您的问题，并包括您用来调用这些函数的代码。谢谢。你的程序有逻辑错误。添加

dbms\u输出。输出线（req）；返回打开前<代码>打开请求的dyn

会发现错误。是否需要光标来获取所有列名？你就不能只做“选择*从…”吗？