Shell Programming and Scripting

function getlines_from(fname,arr,p,fldlimit ,i) {

        while ( (getline < fname) > 0) {
                 for (i=0 ; i <= fldlimit ; i++) {
                      if (i == 0) {arr[p++] = " Next record group for working file " fname; i++}
                      arr[p++] = $i
                 }
        }
return p
}

BEGIN {
x=0
g=0
f=0
record[g]=""

       for (x=1 ; x < ARGC ; x++) {
           f = getlines_from(ARGV[x],record,g,6)
           g = f
           close(ARGV[x])
       }
       #for (f=1 ; f < g ; f++) {print f,record[f]}
}

{
  
  for (j=1 ; j <= 6 ; j++) {
       for (ab in record)
            if (record[ab] == $j) {printf "Match at %s, with indice %d for field $%d\n",record[ab],ab,j}  
       }
}