Recent errors in database alert log

 #!/bin/ksh
 printf "Enter Destination File: "
 read dest
 files="/*/u??/oradata/$ORACLE_SID/oralogs -name alert_$ORACLE_SID.log"
 for file in $(find $files)
 do
     DT=$(date)
     awk '
     BEGIN {Flg=0}
     NR==1 {
         R=split(DATE,TMP," ")
         Day=TMP[[1]]
         Month=TMP[[2]]
         NoDay=TMP[[3]]
     }
     {NoDayM=NoDay-1}
     NF==5 && $2==Month && ($3==(NoDayM) || $3==(NoDayM)) {Flg=1}
     Flg==1 {print $0}
     ' DATE="$DT" $file | awk '
     /^ORA-/ || /cannot/ {print DATE print $0}
     NF==5 {DATE=$0}
     ' >> $dest
 done
 exit 0