#!/usr/bin/tclsh

set system_date [exec date +%b-%d-%Y-%H:%M]

set destination_path "/u04/oracle/backup/"

set log_file $destination_path

append log_file "exp-log-$system_date"

set backup_file $destination_path

append backup_file "export-$system_date.dmp"

set result [catch {exec exp <username/password removed> COMPRESS=Y CONSISTENT=Y DIRECT=Y FILE=$backup_file FULL=Y >>& $log_file} exp_result]