Powerbuilder中调用存储过程

DECLARE SfmxCheck PROCEDURE FOR SFMX_CHECK @lsh=:il_string_lsh,@xsdj=:ld_xsdj,@xssl=:ld_xssl,@xsdw=:ls_xsdw,@OutParm=:ls_OutInfo output;
EXECUTE SfmxCheck;
FETCH SfmxCheck into :ls_OutInfo;
if not (sqlca.sqlcode=0 and ls_OutInfo="0") then
 //如果返回值的第一位是1的，可以提示是否继续操作
 if left(ls_OutInfo,1)='?' then
  int il_Reult;
  il_Reult=messagebox("提示信息",ls_OutInfo+"是否许可继续操作[Yes/No]",Exclamation!, YesNo!, 2)
  if il_Reult<>1 then
   close SfmxCheck;
   return
  end if
 else
  messagebox("提示信息",ls_OutInfo+sqlca.sqlerrtext)
  close SfmxCheck;
  return
 end if
end if
close SfmxCheck;