Shell Programming and Scripting

01 tablename.
   02 group header.
     03 col1  s9(10)V99.
     03 Col2  s9(10)V9(3).
     03 Col3  XXXX
   02 group header1.
     03 Col4  X(3).
     03 Col5  S999999.
     03 Col6  s999V99.
     03 Col7  Z9(9).

Col1,12
Col2,13
Col3,4
Col4,3
Col5,6
Col6,5
Col7,9

awk -v brack="(" '{ ZZ[NR]=$0 }

END {
for ( i in ZZ)
{

if ( ZZ[i] ~ brack )
{
len=substr(ZZ[i], index(ZZ[i], "(" )+1, index(ZZ[i], ")") - index(ZZ[i], "(" )-1)
split(ZZ[i],Z)
print ZZ[i]","len
}

else 
{
split(ZZ[i], XX)

for ( i in XX )
{
gsub(".", "", XX[i])
if ( XX[i] ~ /[sSvV9]$ )
{
cntre=(/^[9]$/, "@@@", ZZ[i])
print XX[i]","cntre
}
else if ( XX[i] ~ /[X]$/ )

{
cntre=gsub(/[X]$/, "~~~", XX[i])
print XX[i]","cntre
}


}
}



}


}

#  echo hello | awk '{print length($1)}'
5

awk '

function fmtSize( fmt, typ   ,s) {
   if (! fmt) return 0;
   if (sub("^" typ "*\\(", "", fmt)) {
      s = fmt+0
   } else {
      match(fmt, "^" typ "*");
      s = RLENGTH;
   }
   return s
}

NF>=3 {
   column = $2;
   format = toupper($3);
   gsub(/^[SZ]|\.$/, "", format);
   type   = substr(format, 1, 1);
   split(format, f, /V/);
   if (type == "9")
      size = fmtSize(f[1], type) + fmtSize(f[2], type);
   else if (type == "X")
      size = fmtSize(f[1], type);
   else
      next;
   printf "Column=%s Format=%s Size=%d\n", column, $3, size;
}

' inputfile

Column=col1 Format=s9(10)V99. Size=12
Column=Col2 Format=s9(10)V9(3). Size=13
Column=Col3 Format=XXXX. Size=4
Column=Col4 Format=X(3). Size=3
Column=Col5 Format=S999999. Size=6
Column=Col6 Format=s999V99. Size=5
Column=Col7 Format=Z9(9). Size=9