/aplic/DSNI/A06P065P.cot
/aplic/DSNI/A06R100.cot
/aplic/DSNI/A06T013.cot
/aplic/SISI/T00W500.cot
/aplic/SISI/Z22P1002.cot
/aplic/SISI/Z22P1003.cot
/aplic/SISI/Z22P750Z.cot

find /aplic/DSNI/ /aplic/SISI/ -maxdepth 1 -type f -name '*.cot' | sort > ELEMENTOS_LINEAS.txt
cont_elem=0
contador_total=0
aplic_old='A06' # the first app
while read fichero
       do
          aplic=$(cut -d "/" -f 4 $fichero)
          aplic_act=$(cut -c1-3 $aplic | sort -u) # here is the problem
          echo "$aplic_act"
          if [[ $aplic_act = $aplic_old  ]]; then
             ddconta_line=$(wc -l $fichero | awk '{ print $1 }')
             let contador_total=ddconta_line+contador_total
             let cont_elem=cont_elem+1
          else
            echo Numero de lineas de la aplicacion: $aplic_old  son: $contador_total
            contador_total=0

            ddconta_line2=$(wc -l $fichero | awk '{ print $1 }')
            let contador_total=ddconta_line2+contador_total
            let cont_elem=cont_elem+1
          fi
          aplic_old=$aplic_act
       done < ELEMENTOS_LINEAS.txt