带输出的存储过程，如何调用？

[老本]

产生存储过程：
create or replace function getTCBL(DWDM IN VARCHAR2, ND OUT NUMBER) return NUMBER AS
TCBL NUMBER;
myYEAR NUMBER;
nowYEAR NUMBER;
CURSOR myCursor IS
SELECT LACKPERCENT, YEAR FROM sys_unitlackpercent
WHERE UNITCODE = DWDM
ORDER BY YEAR DESC;
BEGIN
select substr(Sysdate,1,4)-1 INTO nowYEAR from dual;
OPEN myCursor;
FETCH myCursor INTO TCBL, myYEAR;
CLOSE myCursor;
IF (myYEAR=nowYEAR+1) THEN
ND:=1;
RETURN TCBL;
ELSIF (myYEAR=nowYEAR) THEN
ND:=0;
RETURN TCBL;
END IF;
RETURN -1;
end;
/

访问时出错，语句：
DECLARE
i NUMBER;
BEGIN
SELECT getTCBL('02',i) FROM DUAL;
dbms_output.put_line(I);
END;
/

显示：
SELECT getTCBL('02',i) FROM DUAL;
*
ERROR 位于第 4 行:
ORA-06550: 第 4 行, 第 10 列:
PL/SQL: ORA-06572: 函数 GETTCBL 具有输出参数
ORA-06550: 第 4 行, 第 3 列:
PL/SQL: SQL Statement ignored

采用Exec也一样。（在SQL Plus中测试）

[leborety]

你主要是要得到 ND OUT NUMBER 么？
如果是，写成过程，然后执行就行了

[leborety]

你写的是函数哦，是你理解错了，还是写错了？

[老本]

我倒不关心ND的值。他不执行啊！
不会非得将测试代码作成存错过程吧！

[老本]

函数或者过程，区别不大吧？

[caral525]

你建函数的语句有问题
create or replace function getTCBL(DWDM IN VARCHAR2) return NUMBER
你返回的就是ND呀

create or replace procedure才是建过程，你的语句怪怪的

[lialin]

呵呵，你不关心这个参数，就把它删除算了，好象有输出的参数调用麻烦一点，其实有输入写成函数的返回值不是更好调用嘛!

[老本]

实际上存在2个返回值才采用我的这种“怪怪”的办法实现。
当然，也可以改成 Procedure， 2个OUT参数。
至于ND，实际上是指示取出的数是计划值，还是执行值；优先取计划值。
创建语句中的 Cursor 为测试Cursor的使用写的，才真的没有必要用。
好长时间没有用Oracle了，全忘了。

[leborety]

你到底要哪个值？是nd，还是你的函数返回的值，函数可以这样带输出参数么？

[老本]

5到8年前，我就肯定用过的。这样的返回方式绝对是可以的。
现在忘光光了。汗。

[老本]

还有一个问题：我就是想在SQL Plus下进行调试而输出，
dbms_output.put_line(...);
好像没有输出啊！也不知道以前是采用什么办法进行调试的？

[老本]

分不够，可以再加的！

[leborety]

set serveroutput on

[老本]

感谢各位。
在 SQL Plus中进行测试的语句如下：

DECLARE
i NUMBER;
j number;
BEGIN
j := getTCBL('02',i);
dbms_output.put_line(i);
dbms_output.put_line(j);
END;
/

真简单。
大家可以提供Java、Delphi等中如何调用的做法，继续给分。

[TDwebber]

那这个存储过程在vc里通过odbc调用呢？

[leborety]

大家可以提供Java、Delphi等中如何调用的做法，继续给分。

先把这里揭了吧!!

[ZhaQiong]

执行：
select getTCBL(....) from dual ;