分不多了，请那位大师帮忙看看，解决立刻给分！！

Question

我建立一个过程，目的是返回唯一的序号，代码如下：
create or replace procedure GetMYCODE(code out char)
is
   v_str char(13) ;
   v_int char(13) ;
   v     number ;
begin   
   v_str := to_char(sysdate,'yyyyMMdd') ;
   v := seq_id.nextval ;
   v_int := to_char(v) ;   
   code := v_str + v_int ;
end GetMYCODE ;
/
注：seq_id 是我自己建立的序列
但是该程序运行不过关，说“v := seq_id.nextval ;”有问题，
我想问问，看问题出在什么地方，如何解决。
谢谢了!!!

Answer 1

用show error来看详细错误信息可能是权限问题

Answer 2

这样赋值可能不行，可以这样：select  seq_id.nextval into v from dual;
这样的话就可以用了。

Answer 3

谢谢楼上的各位了，
更要谢谢zfrandzfr(紫芙蓉) 
分不多，但是代表我的心意.
谢谢了!!