Shell Programming and Scripting

awk -F, '                                                                                       # set field separator to comma
FNR == 1        {FLNR++                                                                         # on 1. line of each file: count files
                 FN[FLNR] = FILENAME                                                            # save respective file name
                 next                                                                           # don't process each file's first line further
                }
                {V[FLNR, $2] = $3                                                               # save Volume data in array indexed by file No. and Source Well No.
                 D[FLNR, $2] = $4                                                               # save Dest Well with same index
                 if ($2 > MX2) MX2 = $2                                                         # save max. Source Well No.
                }
END             {print "Source,Well_Source,Volume,Destination_Well,Destination"                 # print header
                 for (f=1; f<=FLNR; f++)                                                        # process files 1 - max. file No.
                   for (i=1; i<=MX2; i++)       {ft = f                                         # process 1 - MX2 wells in files; assign temp file No.
                                                 while ((ft <= FLNR) && (V[ft,i] == 0)) ft++    # test if Volume is not zero in actual and following files
                                                                                                # and we don't exceed max file No.
                                                 if (ft > FLNR) ft = f                          # if exceeded, use original f No.
                                                 print FN[ft], i, V[ft,i], D[f,i], "Deadpool"   # print actual (saved) file name, source well No., first non-
                                                                                                # zero Volume, respective dest well, and string constant
                                                 V[ft, i] = 0                                   # set consumed Volume to zero
                                                }
                }
'  OFS=, file[1-4]                                                                              #  set output field separator to comma, specify 1 - n file names