Archivelog Purges

A simple script to help me purge older archive logs when required:

############################
# Archivelog Purges
############################

for i in 1
do
echo -e "\nEnter number of days to retain: "
read ANS
rman <<END
connect target /
run {
allocate channel D1 type disk;
delete noprompt archivelog until time 'SYSDATE -${ANS}';
}
exit
END
done