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