Shell Programming and Scripting

#,NODE,IMSIS,M,NA,OBA,BO,PLMN,MAPVER,NRRG,CBA,CBAZ,CAMEL,INOPER,OWNMS,NATMS,ERIS,STALL
1,MGCPTS 13,99995626,6-77182,4,200,200,0,2,0,58,58,,121,,,,
2,MGCPTS 13,80321,5-44531,4,60,35,0,2,0,15,15,3,120,1,1,0,1
3,MGCPTS 13,29783,5-38889,4,200,200,0,2,0,18,18,0,,,,,
1,EXCH 214,53002,UNIDENTIFIED,,,,,,,,,,,,,,
1,MGCLS-05,942111,6-33313,4,150,49,0,2,0,22,22,3,,,,,
1,MGCLS-05,942123,6-889134,4,150,49,0,2,0,22,22,,,,,,
1,MGCLS-05,94201,5-777714,4,150,49,0,2,0,50,50,0,,,,,
2,MGCLS-05,2556798,5-44770,4,150,49,0,2,0,67,67,2,,,,,

awk '
BEGIN {
  z="#,NODE";
  s="IMSIS,M,NA,OBA,BO,PLMN,MAPVER,NRRG,CBA,CBAZ,CAMEL,INOPER,OWNMS,NATMS,ERIS,STALL";
  k=split(s,h,","); print z "," s;
}
$1 == "END" && c==0 {
  a[h[1]]=v; a[h[2]]="UNIDENTIFIED";
  printf cn[node] "," node ",";
  for (i=1; i<=k; i++) printf  (i<k) ? a[h[i]]",":a[h[i]]"\n";
  delete a;
}
!$1 && c==1 {
  if (a[h[1]]) {
    printf cn[node] "," node ",";
    for (i=1; i<=k; i++) printf  (i<k) ? a[h[i]]",":a[h[i]]"\n";
  }
  delete a;
}
/<..*;/ {++n; c=0; j=split($0,o,"[:=;!]"); w=o[j-4]; v=o[j-3]; node=o[j-1]; cn[node]++}
!$1 && c==0 {next}
$1 && c==1 {
  if (NF>1) for (i=1; i<=NF-1; i++) a[h[i]]=$i;
  f=v=$NF; x=sub("[-].*","", f); x=sub(".*[-]","", v);
  if (x) {a[f]=v} else {a[f]=1};
}
$1 == w {c=1}
' input2.txt