PB调用带返回值的存储过程

/**

实例变量:

string is_vouchertype = '',is_jd = '' ,is_accountnum = ''

**/

string ls_sqlerrtext,ls_sql_out

sqlca.autocommit = false

DECLARE p_voucher_setsql PROCEDURE FOR p_voucher_setsql
@vouchertype = :is_vouchertype,
@jd = :is_jd,
@accountnum = :is_accountnum,
@sql_out = :ls_sql_out out
using sqlca;
execute p_voucher_setsql;
ls_sqlerrtext = sqlca.sqlerrtext
fetch  p_voucher_setsql into :ls_sql_out;
IF sqlca.sqlcode <> 0 or isnull(ls_sql_out) THEN
sqlca.of_rollback();
MessageBox('警告',"生成凭证SQL失败!!!~r~n" + ls_sqlerrtext,StopSign!)
ELSE
commit using sqlca;
Messagebox("提示","生成凭证SQL成功 " + ls_sql_out)
END IF
CLOSE p_voucher_setsql;
sqlca.autocommit =false