use strict;
use warnings;

# ...
#build a dynamic sql statement
my $Sql_str = &BuildSQLString($cMssFactBag);

print "Debug:  Sql_str is:  '$Sql_str'\n";

sub BuildSQLString
{
# ...
$dynam_Sql_stmt = join(" ",$dynam_Sql_stmt,
    "from $p_str_tblName where RECORDXFEREDTOFILE = 'I'");

print "Debug:  in BuildSQLString:  '$dynam_Sql_stmt'\n";

return $dynam_Sql_stmt;
}