Select Code to Download

@RecordNames[94]       = qw/$Destination  $DestinationType/;
@RecordLengths[94]     = qw/$A8            A4/;

$RecordNames[94] = "$Destination";
$RecordLengths[94] = "$A8";

$fields[94]  = [ qw/Destination DestinationType/ ];
$lengths[94] =   qq/A8          A4             /  ;
...
#
# $data{Destination}
# $data{DestinationType}