},
header => sub {
my $pay_batch = shift;
- sprintf( "A%10s%04u%06u%05u%54s\n",
+ sprintf( "A%10s%04u%06u%05u%54s\n", #80
$origid,
$pay_batch->batchnum,
jdate($pay_batch->download),
$datacenter,
"") .
- sprintf( "XD%03u%06u%-15s%-30s%09u%-12s \n",
+ sprintf( "XD%03u%06u%-15s%-30s%09u%-12s \n", #80
$typecode,
jdate($pay_batch->download),
$shortname,
row => sub {
my ($cust_pay_batch, $pay_batch) = @_;
my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
- sprintf( "D%010.0f%09u%-12s%-29s%-19s\n",
+ sprintf( "D%010.0f%09u%-12s%-29s%-19s\n", #80
$cust_pay_batch->amount * 100,
$aba,
$account,
},
footer => sub {
my ($pay_batch, $batchcount, $batchtotal) = @_;
- sprintf( "YD%08u%014.0f%56s\n", $batchcount, $batchtotal*100, "").
- sprintf( "Z%014u%04u%014u%05u%41s\n",
+ sprintf( "YD%08u%014.0f%56s\n", $batchcount, $batchtotal*100, ""). #80
+ sprintf( "Z%014u%04u%014u%05u%42s\n", #80 now
$batchtotal*100, $batchcount, "0", "0", "");
},
);