Shell Programming and Scripting

BEGIN
{
OFS="\t"
}

NR==1  
{
$7="NUMB";
$8="STRING_COM";
$9="STRING_STATUS"; 
print $0; 
next
} $8 != "c"      
{
$9=$8; 
$8=""
} NF > 9
 {
for (i=10; i<=NF; i++) 
$i=""
}               1

BEGIN {   FS=","; OFS="\t";   a["ODT"]=1;a["AGE"]=1;a["CDT"]=1;a["CO"]=1;    
 a["SEX"]=1;a["TIME"]=1;a["VALUE"]=1;a["COMMENT"]=1; } 
NR==1 {     $NF=substr($NF,1,length($NF)-1);     for(i=1;i<=NF;i++) if($i in a) a[$i]=i; } {   print $a["ODT"],$a["AGE"],$a["CDT"],$a["CO"],$a["SEX"],$a["TIME"],NR==1?"NUMB":$a["VALUE"],     
NR==1?"STRING_COM"OFS"STRING_STATUS":($a["COMMENT"]!="c"?""OFS$a["COMMENT"]:$a["COMMENT"]); }

if the VALUE is ":" then NUMB is null
if the VALUE is ":" and COMMENT "c" then NUMB is null and STRING_COM is "c"
if the VALUE is ":" and COMMENT "u" then NUMB is null and STRING_STATUS is "u"
if the VALUE is "14,38" and COMMENT "d" then NUMB is "1438" and STRING(both) is null 
if the VALUE is "14,38" and COMMENT "du" then NUMB is "1438" and STRING_STATUS is "u"
if the VALUE is ":" and COMMENT "cd" then NUMB is null and STRING_COM is "c"
if the VALUE is ":" and COMMENT "bc" then NUMB is null and STRING_COM is "c" and STRING_STATUS is "b"