PLSQL: 执行动态SQL

 

使用动态SQL获取 订单编号

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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;