Shell Programming and Scripting

#!/usr/bin/perl
#
# OBJECTIVE:
# 1) Get the OMS # from the 944.
# 2) Get the SKU/LOT/ACTUAL QUANITY from the DB
# 3) insert those 3 things into the 944
#

use DBI;

$FILE='Q206.944';
$COUNT=0;

open (FILE944, "$FILE") or die "Can not read file ($!)";
open (FILEOUT, ">outme") or die "Can not write file ($!)";

while (<FILE944>) {
        chomp;  # remove end of line
        if ($_ =~ /^03/) {
                $doc_code=substr($_,39,9); # grab the doc_code number from the 03 segment

                #OMS PROD
                my $dbh = DBI->connect( 'dbi:Informix:standard@prod', 'USER', 'PASS', {
                        PrintError=>1,
                        RaiseError=>1 });

                $sth = $dbh->prepare("
                        SELECT prod_code, lot_code, actual_qty
                        FROM wattrn
                        WHERE doc_code = ? ");  # get all of my needed information from the DB
                $sth->execute($doc_code);

                while ( $array_ref = $sth->fetchrow_arrayref ) {        #feed the return results to an array
                        push @jackpot, [ @$array_ref ];
                }
                $dbh->disconnect();
        print FILEOUT "$_\n";   #print out the current line to the new file.

        }
        elsif ($_ =~ /^30/ ) {
                $prod=pack A20, $jackpot[$COUNT][0];    #set the proper space needed for the prod_code
                $lot =pack A30, $jackpot[$COUNT][1];    #set the proper space needed for the log_code
                substr($_,10,50)="${prod}${lot}";       #insert the DB info into the file in the 30 segment
                print FILEOUT "$_\n";
        }
        elsif ($_ =~ /^33/ ) {
                $pad="         $jackpot[$COUNT][2].00"; #makeup for provias mistakes
                $aqty=pack A12, substr($pad,-12,12) ;   #packit up for the proper space for actual_qty
                substr($_,92,12)="${aqty}";
                print FILEOUT "$_\n";
        $COUNT++;       #incroment the counter to step up to the next set of values for the 30 and 33 segments.
        }
        else {
        print FILEOUT "$_\n";
        }

}