WI TypeCobolTeam#1301 Calculate fully qualified name of variable only…

… if needed

When searching variable in SymbolTable, fully qualified name is only
used when:
- Display errors when the searched SymbolReference is ambiguous
- Codegen: the full qualified name is use to create a unique hash for
index

For variable outside typedef call property VisualQualifiedName only if
needed.
For variable under typedef replace full qualified name of variable
with a more lightweight system (DataDefinitionPath).

DataDefinitionPath only store key DataDefinition.
These key DataDefinition can be used to reconstruct the full
qualified path of a variable under a typedef.

Codegen/src/Actions/Qualifier.cs

@@ -153,8 +153,10 @@ private void QualifiedStorageAreaSelecterForIndexes(StorageArea storageArea, Tup
                 {
                     if (UsedStorageArea != null && UsedStorageArea.Contains(storageArea))
                         return;
-                    string name = storageArea.SymbolReference.Name;
-                    string qualified_name = this.CurrentNode.QualifiedStorageAreas[storageArea];
+
+
+                    string qualified_name = this.CurrentNode.GetQualifiedName(storageArea);
+
                     GenerateToken item = null;
                     string hashName = GeneratorHelper.ComputeIndexHashName(qualified_name, this.CurrentNode);
                     item = new GenerateToken(
@@ -255,7 +257,6 @@ public override bool Visit(IndexDefinition indexDefinition)
                                     if (index.Name.Equals(indexDefinition.Name))
                                     {
                                         Tuple<int, int, int, List<int>, List<int>> sourcePositions = this.Generator.FromToPositions(indexDefinition.Parent);
-                                        string name = index.Name;
                                         string qualified_name = indexDefinition.QualifiedName.ToString();
                                         GenerateToken item = null;
                                         string hashName = GeneratorHelper.ComputeIndexHashName(qualified_name, indexDefinition.Parent);
@@ -527,7 +528,9 @@ internal bool AreItemsInNodeQualifiedStorageAreas(IList<SymbolReference> items,
                         }
                         if (nCountInner == items.Count)
                         {
-                            qualified_name = sourceNode.QualifiedStorageAreas[storage_area];
+
+                            qualified_name = this.CurrentNode.GetQualifiedName(storage_area);
+
                             return true;
                         }
                     }