script to find last 3 months archives generated

select SEQUENCE#,round(BLOCK_SIZE*BLOCKS/1024/1024,2),THREAD#,APPLIED,to_char(COMPLETION_TIME,'DD-MON-YYYY HH24:MI:SS'),to_char(COMPLETION_TIME,'DAY') from V$ARCHIVED_LOG
where to_number(TO_CHAR(COMPLETION_TIME,'HH24'))>=18 and to_number(TO_CHAR(COMPLETION_TIME,'HH24'))<=19
and to_char(COMPLETION_TIME,'DAY')='WEDNESDAY'
and APPLIED='YES'
order by COMPLETION_TIME desc