$name = 'NACHA';
-$DEBUG = 1;
+$DEBUG = 0;
%import_info = (
#XXX stub finish me
my $origin = $1;
my $company = $conf->config('company_name', $pay_batch->agentnum);
- $company = substr($company. (' 'x23), 0, 23);
+ $company = substr(uc($company). (' 'x23), 0, 23);
my $now = time;
my $batchnum = substr( ('0'x7). $pay_batch->batchnum, -7);
- warn "building Batch and File Control Records\n" if $DEBUG;
+ warn "building Batch & File Control Records\n" if $DEBUG;
###
# Batch Control Record