cleancdr()
{
sqlplus /nolog << END_OF_cleancdr
set echo on
connect cdrr33/cdrr33@cdr31fodbs01
truncate table cdr_current;
truncate table cdr_standby;
#truncate table cdr_history;
connect cdrr33/cdrr33@cdr31_dbs02
truncate table cdr_current;
truncate table cdr_standby;
#truncate table cdr_history;
set echo off
exit;
END_OF_cleancdr
}

	print "count before clean";
	$HOME/tools/countcdr.sh
	cleancdr;
	print "count after clean";
	$HOME/tools/countcdr.sh
	print "done."