usando SQLCODE en procedimiento /trigger

[ASAPLTDA]

Apreciados amigos del foro feliz ano 2006
Estoy efecutando agunos procedimiento en firebird 1.6 y quisiera tener un miniejemplo de los siguientes procesos
1. Seleccionar un registro y verificar si existe en la base de datos algo parecido a esto

Código SQL [-]
 SELECT SALDO FROM EXISTENCIAS WHERE CODIGO = :CODIGO;
 IF SQLCODE = 100 then
    EXCEPT MENSAJE'CODIGO SIN EXISTENCIAS';

2. ACTUALIZANDO LA BASE DE DATOS

Código SQL [-]
UPDATE EXISTENCIAS SET SALDO = SALDO + :CANTIDAD WHERE CODIGO = :CODIGO
IF SQLCODE <> 0 THEN
    EXCEPT MENSAJE'CODIGO SIN SALDO';

Como ustedes pueden observar la idea en chequear los codigos sqlcod para contralar la aplciacion. Los ejemplos que yo veo en el manul nunca usan codigos para este tipo de errores, Podrain ayudarme.
Gracias

[rastafarey]

Tu idea es buena pero no veo por que el uso de sql code ya que en el ejemplo que planteas este te devolvera cero ya que no ubo error. Sqlcode se usa ver si hubo o no error en tu caso deverias hacer un select saldo into from ... into : "N";
entonces verificas si n tiene un valor diferente al deseado y enviar tu error.

El uso de sql code es po ejemplo para tratar de hacer un insercion y si sqlcode = 802 (vilocaion de primary key o foereing key) entonces haces un uddate
ejmp.

Código SQL [-]
insert into ... values..
when sqlcode 802 do 
  update ...

Segun veo y entiendo este es el uso que quieres darle.