如何将 sqlplus 执行存储过程后的结果返回操作系统，求大神指点！

mailsafe

现在小弟有一个可执行的存储过程，脚本可正常调用该存储过程，但是无法将存储过程返回的值，
再返回给操作系统，请大神指点！

脚本如下：

#!/bin/ksh

sqlplus abc/abc << !
   declare
         a1 varchar2(3);
         a2 varchar2(;
         retcode  number;
         retmsg   varchar2(100);

         begin
                 myproc(a1, a2, retcode, retmsg);
                 IF retcode <> 0
                 then
                       DBMS_OUTPUT.PUT_LINE（'retcode = [' || retcode ']');
                 END IF;
         end;
         /
!
echo $?


其中，myproc 为 存储过程名，可正确执行，也能得到 retcode 的值。
现在的问题是，如果我想将这个 retcode 的值返回给操作系统还无法实现。
（例如：在 retcode == -1 情况下，让  $? 显示为 -1；在 retcode == 0 的情况下，让  $? 显示为 0）
无论在什么情况下，只要这个脚本执行了， echo $? 都显示为 0. 而不是 retcode 的值
请大神指点迷津。

songyc_2015

回复 1# mailsafe

方法1:
sqlplus abc/abc << !
   declare
         a1 varchar2(3);
         a2 varchar2(3);
         retcode  number;
         retmsg   varchar2(100);

         begin
                 myproc(a1, a2, retcode, retmsg);
                 IF retcode <> 0
                 then
                       DBMS_OUTPUT.PUT_LINE（'retcode = [' || retcode ']');
                 END IF;
         end;
         /
         exit retcode;
!
echo $?

方法2:
func_a()
{
sqlplus abc/abc << !
   declare
         a1 varchar2(3);
         a2 varchar2(3);
         retcode  number;
         retmsg   varchar2(100);

         begin
                 myproc(a1, a2, retcode, retmsg);
                 DBMS_OUTPUT.PUT_LINE（retcode);
         end;
         /
!
}

rtn=`func_a 2>/dev/null`
echo $rtn

mailsafe

方法一，我试一下，我原来是把  exit retcode 放在 end 前，结果提示 retcode 需定义。
先预谢，预谢。

mailsafe

按照 songyc_2015 的方法改了一下试试，结果还是不行，提示如下：



源码如下：

ly5066113

回复 4# mailsafe


shell 中 $? 的值只能是 0 ~ 255 之间的数。
exit 后面的数值也要遵循这个范围，-1 之类的值是不可能显示出来的。

mailsafe

ly5066113 发表于 2015-04-20 10:24
回复 4# mailsafe

是的，但是我这里存储过程返回的值为：9，我也能得到这个值，我 exit retcode ，就不能将这个 9 返回到操作系统，让 echo 显示出来了。

ly5066113

回复 6# mailsafe


用上面的第二种方法吧。

在 begin end 之外，retcode 已经不存在了。

songyc_2015

回复 5# ly5066113

感谢大神指正，由于测试不彻底，误导了楼主，我当时的测试代码如下：

sqlplus -S -L sss/yyy@ccc <<!
    set serveroutput on
    set feedbach off
    set pages 0
    set line 32767
    set trims on
   
    var retcode number;
   
    declare
        retmsg varchar2(60);
    begin
        :retcode := 55;
        retmsg := 'retmsg555';
        dbms_output.put_line('retmsg=[' || retmsg || ']');
    end;
    /
   
    exit :retcode
!
echo $?
如果retcode在0-255之间返回是正常的，不在这个范围就有问题了，建议楼主还是用第2中方法试试吧

测试环境：
数据库版本：10.2.0.4.0
shell：ksh
系统：ibm aix6.1

ly5066113

回复 8# songyc_2015


学习了，原来用 var retcode number;
就可以在 begin  end 外使用了。

mailsafe

ly5066113 发表于 2015-04-20 13:15
回复 6# mailsafe


用上面的第二种方法吧。

在 begin end 之外，retcode 已经不存在了。

感觉上只有这一种方法可行。