Function to convert comp3 packed decimal data to a string. proc comp3tostring {packed_dec_data data_len} { set val 0 set ret_sign {} for {set byte_ndx 0} {$byte_ndx < $data_len} {incr byte_ndx} { scan [string index $packed_dec_data $byte_ndx] %c byte set byte [format "%02.2x" $byte] if {$byte_ndx == [expr {$data_len - 1}]} { append val [format "%x" [string index $byte 0]] if {[string index $byte 1] == {d}} { set ret_sign {-} } } else { append val "[format "%x%x" [string index $byte 0] [string index $byte 1]]" } } return "$ret_sign$val" } ---- !!!!!! %| [Category Binary Data] |% !!!!!!