my $TEST_REC_FORMAT = get_msg_format [
   status => 'n  ',   #   0
   time   => 'n  ',   #   2
   date   => 'N  ',   #   4
   code   => 'a16',   #   8   key
   msid   => 'a10',   #  24   key
];

my %test_vals = parse_msg($TEST_REC_FORMAT, $rec);

##</code><code>##

my $TEST_REC_FORMAT = MessageFormat->new([
   status => 'n  ',   #   0
   time   => 'n  ',   #   2
   date   => 'N  ',   #   4
   code   => 'a16',   #   8   key
   msid   => 'a10',   #  24   key
]);

my %test_vals = $TEST_REC_FORMAT->parse($rec);