bitval() есть не во всякой 9-ке, а начиная с 9.4 или 9.3
Недавно мне пришлось решить эту задачку для нашего
Informix Dynamic Server 2000 Version 9.21.UC3,
сюда не заглядывал.

И вот что интересно: имя функции выбрал абсолютно то же!
(насчет параметров и их последовательности
удивляться не приходится, но тоже совпали :)
Работают обе функции по скорости примерно одинаково.

DROP FUNCTION Is_Bit;

CREATE FUNCTION Is_Bit( p_int INTEGER, p_bit SMALLINT ) RETURNING SMALLINT;

DEFINE v_pow INTEGER;

LET v_pow = POW( 2, p_bit-1 ); -- чтобы POW() вызывать только 1 раз :)

IF MOD( p_int, v_pow*2 ) >= v_pow THEN
RETURN 1;
ELSE
RETURN 0;
END IF

END FUNCTION
DOCUMENT
'Purpose: проверить установку бита в числе',
'Return: 1: 1 - бит установлен',
' 0 - бит не установлен',
'Parameters: 1 p_int - тестируемое число',
' 2 p_bit - номер бита, младший номер 1',
'Notes: 1. Для проверки двоичной маски в числах. Пример:',
' 22 в двоичном виде выглядит как 010110, проверка битов 1-6:',
' Is_Bit(22,1) = 0',
' Is_Bit(22,2) = 1',
' Is_Bit(22,3) = 1',
' Is_Bit(22,4) = 0',
' Is_Bit(22,5) = 1',
' Is_Bit(22,6) = 0',
' 2. Функция проверяет истинность отношения',
' MOD(p_int,2**p_bit) - 2**(p_bit-1) >=0',
' Подробнее см. в Morn.er1, Движение изделий, описание и примечание',
' к полю Признаки (назначение и вывод формулы).',
' 3. При необходимости можно добавить проверки на допустимость:',
' 0 <= p_int <= 2147483647 (2**32-1)',
' 1 <= p_bit <= 32',
' и возврат, например -1, в качестве признака ошибки.',
'Author: Julian Zalutsky',
'Date: 15.05.2004 13:55';
GRANT EXECUTE ON Is_Bit TO PUBLIC;
UPDATE STATISTICS FOR FUNCTION Is_Bit;