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