Shell Programming and Scripting

awk 'BEGIN {split("OCTDP TCTDP GPRSTDP",TDPAr);
            print "MSISDN,OCTDP,TCTDP,GPRSTDP,GCSO,MCSO,SSLO,GC2SO,MC2SO,TIF,GPRSSO,OSMSSO,GC3SO,MC3SO,GC4SO,MC4SO,MMSO,STAT"
     }

    NR==FNR     {fldcnt[NR] = split ($0, tmp, ","); for (i=1;i<=fldcnt[NR]; i++) cmpAr[NR,i]=tmp[i]; rowcnt=NR; next}
     
     /^MSISDN/   {getline; rec=$0}
     /^TDPTYPE/  {noflds=0
                  while (1)
                     {getline; if ($0 ~ /^$/) break   
                      OFS="|"; tmp1=$1; $1=""; sub("\|",""); tmpAr[tmp1]=$0; noflds=3 ;
                     }
                  for (i=1; i<=noflds; i++) rec=rec","tmpAr[TDPAr[i]]
                 }
     /^(GCSO|GC3SO|MMSO)/ {
                  getline; OFS=","; $1=$1; rec=rec","$0}
     /^NONE/     {getline; rec=rec ",no values"}
     /END/       {split (rec, tmpAr, ","); rec=tmpAr[1]
                  dif=0
                  for (fld=2; fld <= fldcnt[i]; fld++)                        # compare fieldwise, each field on its own against all its tobe values
                    {flddif = 1                                               # assume it's different until proven wrong
                     for (row=1; row <= rowcnt; row++)                        # here we go: check against individual tobe values
                        if (tmpAr[fld] == cmpAr[row,fld]) {flddif=0; break}   # found one! Equality proven, register Equ. in flddif and break out of loop
                     if (flddif) {tmpAr[fld]=tmpAr[fld]"_I"; dif=1}           # add "_I" to field if no match found, register in dif
                     rec=rec","tmpAr[fld]}                                    # add (modified?) field to output record
                  if (dif) rec=rec",different"
                  print rec; rec=""; delete tmpAr; dif=0}
    ' tobe file