You need perl. First, you know awk, so, the way to learn perl from awk is to use a2p (awk to perl translator)
Simplified output from a2p
--8<---
#!/usr/bin/perl
$[ = 1; # set array base to 1
$FS = ' ';
while (<>) {
chomp; # strip record separator
print $_ if $value1 = substr($_, 1, 14);
print $_ if $gl_acct = 1234;
#acct = substr($0, 4, 8)
print $_ if $damt = substr($_, 93, 13);
print $_ if $camt = substr($_, 105, 13);
print $_ if $desc = 'W&S BATCH-' . $b_month . '' . $b_day . '' . $b_year;
print $_ if $transamt = $damt - $camt;
if ($value1 = '4111151000000') {
$fund = 411;
$acct = 2071130;
printf "||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n",
$fund, $acct, $gl_acct, $desc, $transamt, $b_month, $b_day,
$b_fullyear, $b_month, $b_day, $b_year;
}
}
-->8---
I know perl much better than awk, and looking at that code, it's probably not what you want
I also don't see b_month, b_day, b_year, and b_fullyear being defined anywhere
In the if statement, you are using = instead of ==, causing an asignment instead of a comparison
--8<---
#!/usr/bin/perl
while (<>) {
chomp;
my ($b_day, $b_month, b_year) = (localtime)[3,4,5];
my $b_fullyear = $b_year + 1900;
my $gl_acct = 1234;
my ($value1, $damt, $camt) = unpack "A14 x79 A13 A13", $_;
my $transamt = $damt - $camt;
my $desc = sprintf "W&S BATCH-%4d%02d%02d", $b_fullyear, $b_month + 1, $b_day;
$value1 eq "4111151000000" or next;
my $fund = 411;
my $acct = 2071130;
printf "||%s|%s||||%s||%s|%s|N|%s/%s/%s|WSIMPORT|WS%s%s%s|||\n",
$fund, $acct, $gl_acct, $desc, $transamt, $b_month, $b_day, $b_fullyear, $b_month, $b_day, $b_year;
}
-->8---
Do my comments make any sense?
Enjoy, Have FUN! H.Merijn
Enjoy, Have FUN! H.Merijn
