PLSQL: 执行动态SQL

DECLARE 
     c              integer;
     row_processed  integer;
     temp           integer;
     val            integer;
     next_val     integer;
     proc_stmt    varchar2(200);
     dbseqnm      varchar2(50);
BEGIN     
    dbseqnm := 'FND_DOC_SEQ_1124_S';
    -- 使用标准API获取序列号 
   -- val := apps.fnd_seqnum.get_next_auto_seq(dbseqnm);
     -- NEXT_VAL= 102602472112  NEXT_VAL= 102602472113
    
    c := dbms_sql.open_cursor;  -- 打开游标  
    proc_stmt := 'begin select ' || dbseqnm || '.nextval ' ||
                 'into :next_val from sys.dual; end;';
    dbms_sql.parse(c, proc_stmt, dbms_sql.native);  -- 解析SQL语句 ，使用常量 dbms_sql.native。 
    dbms_sql.bind_variable(c, 'next_val', next_val); --绑定参数 
    row_processed := dbms_sql.execute(c);  -- 执行SQL脚本 
    dbms_sql.variable_value(c,'next_val', val); -- 接收 输出结果 
    dbms_sql.close_cursor(c); -- 关闭游标 
    
    DBMS_OUTPUT.PUT_LINE('NEXT_VAL= '|| VAL);        
END;