$packet= pack( "c c c C n n NN n N",
    $B, $Mgmt, $ClassV, ($R<<7)|$Method, $Status,
    $ClassSpec, $TransID_Hi, $TransID_Lo, $Rez, $AttMod )
    . $Data;