Re^4: Perl Unpack Cobol Binary File and Fields

[dbarkho14]

Seems like unpack "N" is on the right track but I am supposed to get some records with 425 on them and I did not get any after processing the whole file. FIELD2 is supposed to be the year with 2019 as the value but I am not getting anything close to this. Maybe if you can see how to get 2019 in FIELD2 then all could fall into place. Thanks again for helping. I will keep looking.

[Corion]

This suggests that every field is just 2 bytes wide and you have two dummy bytes at the start of your record. Because I get 2020 when I look at the next two bytes as a 16-bit word:

my $data1 = unpack 'n', substr( $str, 2,2 );
my $data2 = unpack 'n', substr( $str, 4,2 );

The data itself looks plausible but are you really sure that you are looking at the correct record?

[dbarkho14]

yes I was looking at the wrong record. Now that I am looking at the correct one, first rec has 431 and 2020 as expected. I should be able to take it from here. Thanks so much for help!