>SP side-
>   if @@error<>0 return -1
>or
>   if @@error<>0
>   begin
>    raiserror(' Customized error message here',19,1) with log
>    return -1
>   end
>-----------------------------------------------------------------
>VFP side -
>   if sqlexec(nsqlhnd,"exec SP_name")<0
>      AERROR(a_err)
>  *   DISPLAY MEMORY LIKE a_err
>      lcerr=STREXTRACT(a_err(2),"[SQL Server]")
>      Messagebox(lcerr,16,"")
>   endif
>