my %TEST_REC_PACK_FLDS = {
   status => 'n  ',   #   0
   time   => 'n  ',   #   2
   date   => 'N  ',   #   4
   code   => 'a16',   #   8   key
   msid   => 'a10',   #  24   key
};

##</code><code>##

use constant @TEST_FLDS => keys %TEST_REC_PACK_FLDS;

##</code><code>##

use constant TEST_REC_PACK => $join ' ', values %TEST_REC_PACK_FLDS;