Exceptions

SET TERM ^ ;

/* Stored procedures */

CREATE PROCEDURE "RECCOMPRATXT" 
(
  "NOSSONUMTXT" VARCHAR(15) CHARACTER SET WIN1252
)

AS
/*DECLARE VARIABLE VRPAGO DOUBLE PRECISION;
DECLARE VARIABLE DATAPGTO DATE;*/
DECLARE VARIABLE RESULTADO INTEGER;
BEGIN
 SELECT COUNT(*) FROM TABFATURAS FT WHERE
 FT.NOSSONUM=:NOSSONUMTXT INTO :RESULTADO;
  BEGIN
   IF (:RESULTADO > 0) THEN
    BEGIN
     /*codigo*/
    END
    WHEN SQLCODE -84 DO EXCEPTION NOSSONUM;
  END
END
 ^

SET TERM ; ^