UNIX for Dummies Questions & Answers

 
cat test_tes123.dml
 
record
  string("\001") emp_num; /* CHAR(11) NOT NULL*/
  date("YYYYMMDD") start_date = NULL; /* DATE NOT NULL*/
  date("YYYYMMDD") end_date = NULL; /* DATE NOT NULL*/
  string(1) status = NULL; /* CHAR(1) NOT NULL*/
  string(1) flag = NULL; /* CHAR(1)*/
  decimal("\001", maximum_length=12) unit_number = NULL; /* VARCHAR2(9)*/
  string("\001", maximum_length=9) Sal= NULL; /* VARCHAR2(9) NOT NULL*/
  string("\001", maximum_length=11) manager = NULL; /* VARCHAR2(11)*/
  decimal("\001", maximum_length=12) d_no  = NULL;
end;

 
-------
 
awk 'NF>1{s=s (s?";":x) $2; sub(/;$/,x,s)} END{print s}' test_tes123.dml
 
emp_num;start_date;end_date;status;flag;maximum_length=12);maximum_length=9);maximum_length=11);maximum_length=12)

 
---Where expected output is:
 
emp_num;start_date;end_date;status;flag;unit_number;Sal;manager;d_no

awk     '
                        {gsub (/\([^)]*\)|;.*$/,"")}

/record|end$/           {next}
                        {X=$NF}
match($0, /[^ ]* *=/)   {X=substr ($0, RSTART, RLENGTH)}

                        {sub (/ *=$/,"", X)
                         printf "%s%s", DEL, X
                         DEL=";"
                        }
END                     {print _}

' file