###############################################################

use lib '/home/interface/scripts/Perl_Modules' ;     # Where the in-house modules live

#
# In-House written modules
#--------------------------#

use ACC_Heather ;
use ACC_Various qw(end_it mail mail_log update_report date_validation) ;

##</code><code>##

package ACC_Heather ;
#
our @EXPORT = qw(ACC_IHS_PROFILE run_SQLPLUS ACC_PUT_STEP ACC_GET_STEP ACC_BOX Update_Job_Status_Log ) ;
#our @EXPORT_OK = qw() ;
use Exporter ;
our @ISA = qw(Exporter) ;
#
use ACC_Various qw(end_it mail mail_log update_report date_validation) ;

##</code><code>##

   if (! -e $SQL_script) {
    $msg = "SQL script $SQL_script does not exist" ;
    if (! ACC_Various::&update_report("$logfile","$msg",1,1,0)) {
       print "\n\tUnable to run Sub update_report :: $!\n" ;
    }
    print "\n\t$msg\n" ;
    print "\t*****************************************\n" ;
    print "\t* Contact Analyst in Team 1 - Urgently! *\n" ;
    print "\t*****************************************\n" ;
    return 0 ;
   }

##</code><code>##

Undefined subroutine &ACC_Heather::update_report called at /home/interface/scrip
ts/Perl_Modules/ACC_Heather.pm line 737.

##</code><code>##

package ACC_Various ;
#
our @EXPORT = qw(end_it mail mail_log date_validation ACC_BOX) ;
our @EXPORT_OK = qw(run_SQLPLUS update_report error_report) ;
use Exporter ;
our @ISA = qw(Exporter) ;
#