or download this
my $transaction_record_fields = {
'Batch_Agency' => { COL => 0, POS => [ 1 .. 3], VALUE =>
+ "AAA" },
'Batch_Date' => { COL => 1, POS => [ 4 .. 11], VALUE =>
+ "BBBBBBBB"},
'Batch_Type' => { COL => 2, POS => [ 12 .. 12], VALUE =>
+ "C"},
};