-------------------------------
関数 uf_get_bitの定義
public function boolean uf_get_bit (long dec_dat, integer bit_no)
//      function :   uf_get_bit(ワードデータの指定ビットのON/OFFチェック)
//
//      input    :   long dec_dat(チェック対象のワードデータ。正の数値)
//               :   int  bit_no(チェックするBit No.。0オリジンで31ビットまで)
//
//      return   :   boolern  の実行結果(Bit ONでTrue、OFFでFalse)

int li_temp_dec

// 引数チェック
If Isnull(dec_dat) or Isnull(bit_no) or (bit_no > 31) then
Return false
ElseIf (dec_dat < 0) or (bit_no < 0) then
Return false
// Bitチェック
Else
li_temp_dec = dec_dat / (2^bit_no)
If Mod(li_temp_dec, 2) > 0 then
Return true
End If
End if

Return false

-------------------------
あれ、なぜかtabが表示されませんね^_^;;;;; HTMLの制約か。
スクリプトが見にくいですが、ご勘弁を

ミソは1バイト切り出したblobをlongに変換するテクニックと、
数値データのbit on/offをチェックして1/2バイト単位のデータ
を取り出すこと、それを0-Fの文字に変換するところでしょうか。

関数は、メーリング・リストで作成しているユーザオブジェクト
関数のものです(あ、まだリリースしてませんでした^_^;;;)。