Fix problem with INTRODUCER reported by Pavel Zotov.

create or alter user foo password 'bar' lastname _ascii 'john';

Statement failed, SQLSTATE = 2C000
Dynamic SQL Error
-SQL error code = -504
-CHARACTER SET "ASCII" is not defined

Author: asfernandes

src/dsql/DdlNodes.h

@@ -2244,6 +2244,14 @@ class MappingNode final : public DdlNode, private ExecInSecurityDb
 	void validateAdmin();
 
 public:
+	DdlNode* dsqlPass(DsqlCompilerScratch* dsqlScratch) override
+	{
+		if (from)
+			from->dsqlPass(dsqlScratch);
+
+		return DdlNode::dsqlPass(dsqlScratch);
+	}
+
 	Firebird::string internalPrint(NodePrinter& printer) const override;
 	void checkPermission(thread_db* tdbb, jrd_tra* transaction) override;
 	void execute(thread_db* tdbb, DsqlCompilerScratch* dsqlScratch, jrd_tra* transaction) override;

src/dsql/dsql.cpp

@@ -718,6 +718,12 @@ static UCHAR* put_item(	UCHAR	item,
 }
 
 
+void IntlString::dsqlPass(DsqlCompilerScratch* dsqlScratch)
+{
+	if (charset.object.hasData())
+		dsqlScratch->qualifyExistingName(charset, obj_charset);
+}
+
 // Return as UTF8
 string IntlString::toUtf8(jrd_tra* transaction) const
 {

src/dsql/dsql.h

@@ -648,6 +648,8 @@ class IntlString
 		  s(p)
 	{ }
 
+	void dsqlPass(DsqlCompilerScratch* dsqlScratch);
+
 	Firebird::string toUtf8(jrd_tra* transaction) const;
 
 	const QualifiedName& getCharSet() const

src/dsql/parse.y

@@ -8398,7 +8398,10 @@ sql_string
 %type <stringPtr> utf_string
 utf_string
 	: sql_string
-		{ $$ = newString($1->toUtf8(scratch->getTransaction())); }
+		{
+			$1->dsqlPass(scratch);
+			$$ = newString($1->toUtf8(scratch->getTransaction()));
+		}
 	;
 
 %type <int32Val> signed_short_integer