my $dbh = DBI->connect('dbi:Oracle:miemsdb', 'ipse', 'ipse', {AutoCommit => 0}) || die "RC-E\n";
open (STDERR, ">ERR/ERRORS_${myPID}");

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

my $DirChk = $dbh->prepare($sqlChkDir) || die "RC-E\n";
$DirChk->execute($DirName) || die "RC-E\n";