5,888
社区成员
发帖
与我相关
我的任务
分享
declare sqlstate char(5) default '00000';
declare l_error char(5) default '00000';
declare sqlcode integer default 0;
declare l_sqlcode integer default 0;
declare continue handler for not found
set l_error = '00000';
declare continue handler for sqlexception, sqlwarning
begin
values (sqlstate, sqlcode) into l_error, l_sqlcode;
rollback;
end;
/*找到该出库单信息,如果不存在,则退出*/
exec sql select count(CKDBH) into :vNUM from T_CKD where CorpID=:vCorpID and ckdbh=:vCKDBH;
if (vNUM==0)
{
*(long *)(inout_sqlda->sqlvar[3].sqldata)=1;
goto error_exit;
}