Added a new file loop expansion token <FLOOP_STRUCTURE_COUNT> and a new file loop expression <IF MULTIPLE_STRUCTURES_ASSIGNED>.

Author: SteveIves

CodeGenEngine/ExpressionEvaluators/ExpressionEvaluatorFileLoop.dbl

@@ -65,6 +65,7 @@ namespace CodeGen.Engine
             fileLoopExpressionEvaluators.Add("CHANGE_TRACKING", evaluateFloopChangeTracking)
             fileLoopExpressionEvaluators.Add("DESCRIPTION", evaluateFloopDescription)
             fileLoopExpressionEvaluators.Add("ISAM", evaluateFloopIsam)
+            fileLoopExpressionEvaluators.Add("MULTIPLE_STRUCTURES_ASSIGNED", evaluateFloopMultipleStructures)
             fileLoopExpressionEvaluators.Add("NOCHANGE_TRACKING", evaluateFloopNoChangeTracking)
             fileLoopExpressionEvaluators.Add("NODESCRIPTION", evaluateFloopNoDescription)
             fileLoopExpressionEvaluators.Add("NORECORDCOMPRESSION", evaluateFloopNoRecordCompression)
@@ -162,6 +163,16 @@ namespace CodeGen.Engine
             mreturn EvaluateFileLoopExpression(tkn, template, loops, doEvaluate)
         endmethod
 
+        private static method evaluateFloopMultipleStructures, boolean
+            tkn, @Token 
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode> 
+            endparams
+        proc
+            lambda doEvaluate(files, currentfile, index) (currentfile.StructureCount > 1)
+            mreturn EvaluateFileLoopExpression(tkn, template, loops, doEvaluate)
+        endmethod
+
         private static method evaluateFloopNoChangeTracking, boolean
             tkn, @Token 
             template, @FileNode 

CodeGenEngine/TokenExpanders/TokenExpanderFileLoop.dbl

@@ -74,6 +74,7 @@ namespace CodeGen.Engine
             fileLoopTokenExpanders.Add("FLOOP_RPS_NAME", expandFloopRpsName)
             fileLoopTokenExpanders.Add("FLOOP_STATIC_RFA", expandFloopStaticRfa)
             fileLoopTokenExpanders.Add("FLOOP_STORED_GRFA", expandFloopStoredGrfa)
+            fileLoopTokenExpanders.Add("FLOOP_STRUCTURE_COUNT", expandFloopStructureCount)
             fileLoopTokenExpanders.Add("FLOOP_TYPE", expandFloopType)
             fileLoopTokenExpanders.Add("FLOOP_UTEXT", expandFloopUserText)
 
@@ -286,6 +287,16 @@ namespace CodeGen.Engine
             mreturn ExpandFileLoopToken(tkn, template, loops, doExpand)
         endmethod
 
+        private static method expandFloopStructureCount, string
+            tkn, @Token 
+            template, @FileNode 
+            loops, @IEnumerable<LoopNode> 
+            endparams
+        proc
+            lambda doExpand(currentFile) %string(currentFile.StructureCount)
+            mreturn ExpandFileLoopToken(tkn, template, loops, doExpand)
+        endmethod
+
         private static method expandFloopType, string
             tkn, @Token 
             template, @FileNode 

CodeGenEngine/Tokenizer.dbl

@@ -546,6 +546,7 @@ namespace CodeGen.Engine
             &    { makeTokenMeta_AllVariants("FLOOP_RPS_NAME", TokenType.FileLoop, TokenValidity.FileLoop, true) }, 
             &    { makeTokenMeta_UpperLower ("FLOOP_STATIC_RFA", TokenType.FileLoop, TokenValidity.FileLoop, true) }, 
             &    { makeTokenMeta_UpperLower ("FLOOP_STORED_GRFA", TokenType.FileLoop, TokenValidity.FileLoop, true) }, 
+            &    { makeTokenMeta_UpperLower ("FLOOP_STRUCTURE_COUNT", TokenType.FileLoop, TokenValidity.FileLoop, true) }, 
             &    { new TokenMeta() {Name = "FLOOP_TYPE", TypeOfToken = TokenType.FileLoop, IsPaired = false, Validity = TokenValidity.FileLoop, RequiresRepository = true} }, 
             &    { new TokenMeta() {Name = "FLOOP_UTEXT", TypeOfToken = TokenType.FileLoop, IsPaired = false, Validity = TokenValidity.FileLoop, RequiresRepository = true} }, 
             &    
@@ -922,6 +923,7 @@ namespace CodeGen.Engine
             expressions.Add("MORE_OUT_OR_INOUT",                TokenValidity.ParameterLoop)
             expressions.Add("MULTIPLE_SEGMENTS",                TokenValidity.KeyLoop)
             expressions.Add("MULTIPLE_STRUCTURES",              TokenValidity.Anywhere)
+            expressions.Add("MULTIPLE_STRUCTURES_ASSIGNED",     TokenValidity.FileLoop)
             expressions.Add("MULTIPLE_TAGS",                    TokenValidity.TagLoop)
             expressions.Add("NAME_LINK",                        TokenValidity.FieldLoop)
             expressions.Add("NAMESPACE",                        TokenValidity.Anywhere)