complinagetest () #function name
{
if [ -f complins.dat ];then
rm complins.dat
fi
touch complins.dat
i=0
while read line
do
if [ $line == "SNA" ]; then
 
 va=`grep -w "$line" datalins1.dat | awk  BEGIN'{FS="\`~"}{if ( $3=="'$line'" ) {print $4}}'`
 i=$(($i+1))
 varits=$(echo $va|awk -v varif="$i" '{print $varif}')
 
      if [ "$varits" = "DNA" ]; then
          grep -w "$varits" datalins1.dat | awk  BEGIN'{FS="`~"}{if ( $3=="'$line'" ) {print $1}}'|sed 's/$/~>/' >> complins.dat
        else 
       grep -w "$varits" datalins1.dat | awk  BEGIN'{FS="`~"}{if ( $3=="'$line'" ) {print $1}}'| tr '\n' '~' | sed 's/~/~>/g'   >> complins.dat
 
 
 while [ "$varits" != "DNA" ]
 do
 
                while read line
                do
 
                  if [ $line == "$varits" ] ; then
                varits=`grep -w "$line" datalins1.dat | awk  BEGIN'{FS="\`~"}{if ( $3=='$line' ) {print $4}}'`
                check=`echo $varits|awk '{print NF}'`
 
                        if [ "$check" == "1" ];then 
                echo "inside if"                  
                grep -w "$varits" datalins1.dat  | awk  BEGIN'{FS="`~"}{if ( $3=='$line' ) {print $1}}'| tr '\n' '~'| sed 's/~/~>/' >> complins.dat
 
                        else
 
    echo "problem occurs here in else case when $check > 1(ie. $4 from datalins1.dat has two number for same value of $1)"
 
                         fi
 
                fi
 
                done < source.dat
 
 done
      fi
echo "" >> complins.dat
fi
done < source.dat
 
}
 
complinagetest #calling function

#datalins1.dat
14`~abc`~9`~11
14`~abc`~9`~10
36`~ee`~7`~9
36`~ee`~8`~9
58`~rtt`~12`~7
70`~gff`~13`~8
86`~tyu`~6`~12
86`~tyu`~6`~13
92`~mjh`~5`~6
28`~jkl`~10`~DNA
32`~mjk`~SNA`~5
82`~jkli`~11`~DNA

#source.dat
9
7
8
12
13
6
5
10
SNA
11

#complins.dat
32~92~86~58~36~14~82
32~92~86~58~36~14~28
32~92~86~70~36~14~82
32~92~86~70~36~14~28