CREATE PROCEDURE ALLOCKEY (
    STABNAME VARCHAR( 32 ) CHARACTER SET NONE)
RETURNS (
    ICURID INTEGER)
AS
BEGIN
SELECT recid FROM keys WHERE tabName = :sTabName INTO :iCurId;
        IF (:iCurId IS NULL) THEN BEGIN
                INSERT INTO keys (tabName,recId) VALUES (:sTabName, 1 ); 
                iCurId =  1 ;
        END
        ELSE BEGIN
                iCurId = iCurId +  1 ;
                UPDATE keys SET recId = :iCurId WHERE tabName = :sTabName;
                WHEN SQLCODE - 913  DO
                        EXECUTE PROCEDURE allocKeyDeadLock RETURNING_VALUES iCurId;
        END
EXIT;
END