Select Code to Download

Select or download this

my      ($RequestYear,$RequestMonth,$RequestDay,$RequestSequence,$Reco
+rdType,$RecordSequence,$Record)        
=unpack("A2           A2            A2          A4               A2   
+       A2              A1486",$_) ;

Select or download this

 elsif ($RecordType==94){                                     
        my ($Destination, $DestinationType)                   
   =unpack("A8            A40", $Record);

Select or download this

@HeaderRecordNames   = qw/$RequestYear $RequestMonth $RequestDay $Requ
+estSequence $RecordType $RecordSequence $Record/;
@HeaderRecordLengths = qw/A2           A2            A2          A4   
+            A2          A2              A1486/;
...
my (@HeaderRecordNames) = unpack(@HeaderRecordLengths, $_);

my (@RecordNames[$Recordtype])=unpack(@RecordLengths[$RecordType]);