#!/usr/bin/perl

print <<ENDOFFILE;
#############################################################
# Program Name : j204_mgr_email1
# Purpose      : Create Billing Email Master List in t204_mgr_email_ids
#
# Date          Author             Description
# ----------------------------------------------
# 03/03/2005    Blake McNulty      Initial Version
#############################################################
ENDOFFILE

require($ENV{'BINDIR'}."/lib.pl");

$infile  = "/t204_mgr_email1.sql";
$sqlfile = $sqldir.$infile;
$sqlstmt = `cat $sqlfile`;

$rtn = &execute_sql_stmt("$sqlstmt");

if ($rtn != 0) 
 {
   print "\n*****ERROR***** Failure exit - \n\n";
 }
else 
 {
   $cmd = "cat ".$sqlout;
   system($cmd);
   print "\n*AIX*Successful exit - \n\n";
 }

print "############################################################# \n";
print "   j204_mgr_email1           end execution                    \n";
print "############################################################# \n";

exit;
