CREATE PROCEDURE TEST_ERR
 (OUT ERR_STR VARCHAR(1024)
 ) 
  SPECIFIC "TEST_ERR"
  LANGUAGE SQL
  NOT DETERMINISTIC
  CALLED ON NULL INPUT
  EXTERNAL ACTION
  OLD SAVEPOINT LEVEL
  MODIFIES SQL DATA
  INHERIT SPECIAL REGISTERS
  BEGIN
  DECLARE SQLCODE INTEGER DEFAULT 0;
  DECLARE RETCODE INTEGER DEFAULT 0;
  DECLARE SQLSTATE CHAR(5) DEFAULT '00000';
  DECLARE P_SQLSTATE CHAR(5);
  DECLARE ERR_TEXT VARCHAR(1024) DEFAULT '';
  DECLARE STR_TEXT VARCHAR(1024) DEFAULT '';

 DECLARE EXIT HANDLER FOR SQLEXCEPTION
 
ERR_HANDLER:   BEGIN
  
   GET DIAGNOSTICS EXCEPTION 1
      ERR_TEXT = MESSAGE_TEXT,
	  STR_TEXT = DB2_TOKEN_STRING;

	  SET (RETCODE,P_SQLSTATE)  = (SQLCODE, SQLSTATE ) ;
	   
     SET ERR_STR = 'CODE = '||VARCHAR(SQLCODE)||
                            ' STATE = '||P_SQLSTATE||
		 ' MESS_TEXT = '||STR_TEXT||
		 ' ERR_TEXT = '||ERR_TEXT;
	
  END ERR_HANDLER;
  
  
   SIGNAL SQLSTATE '98000'
        SET MESSAGE_TEXT = 'Êàêàÿ-òî îøèáêà!!!' ;
	
	SET ERR_STR = 'Íåò îøèáîê!';
	
END;

COMMIT;
	
	
CALL TEST_ERR(?);