my($daysql) =
"select convert(char(8),getdate(),112),convert(char(8,dateadd(month,1,getdate())),112)";
my($dtcursor)=$scb_db->prepare($daysql);
$dtcursor->execute;
my($ddate,$nextddate)=$dtcursor->fetchrow_array;
my($day) = substr($ddate,6,2);
print STDOUT "$ddate,$nextddate,$day\n";
close (OUT); #files that I opened at start of program
close (ERROR);
###########################################################################################
########################################################################################
print STDOUT "Normal Exit\n";
$apex_db->disconnect;
$DBI::err $DBI::errstr\n" if $DBI::err
;
$scb_db->disconnect;
die "Error disconnecting from database:
$DBI::err $DBI::errstr\n" if $DBI::err
;
exit (0);