BEGIN
  DEFINE vMSG varchar( 70 );
  DEFINE vSQL, vISAM integer;
  ON EXCEPTION SET vSQL, vISAM, vMSG
    LET errStr='DATABASE error: '||vMSG||' '||vSQL||'('||vISAM||') in '||errBlock;
    IF needToRollback='Y' THEN
      ROLLBACK WORK;
    END IF;
    INSERT INTO ib_proto (Event,EventType)
    SELECT event, eventtype FROM ib_proto_temp;
    DROP TABLE ib_proto_temp;
    INSERT INTO ib_proto (Event,EventType) VALUES (errStr, 1 );
    LET errStr='UPLOAD WAS FALSE';
    INSERT INTO ib_proto (Event,EventType) VALUES (errStr, 1 );
    RETURN - 1 ;
  END EXCEPTION;