feat: XML host file reference variable array support

server/engine/src/main/antlr4/org/eclipse/lsp/db2/parser/Db2SqlParser.g4

@@ -47,7 +47,7 @@ result_set_locator_variable: dbs_level_01 entry_name host_variable_usage result_
 
 tableLocators_variable: dbs_host_var_levels entry_name host_variable_usage tableLocators;
 
-lob_xml_host_variables: dbs_host_var_levels entry_name  host_variable_usage xml_as (lobWithSize | xml_lobNO_size);
+lob_xml_host_variables: dbs_host_var_levels entry_name host_variable_usage xml_as (lobWithSize | xml_lobNO_size) host_variable_array_times?;
 
 lob_host_variables: dbs_integer entry_name host_variable_usage (lobWithSize | lobNoSize);
 

server/engine/src/test/java/org/eclipse/lsp/cobol/usecases/sql/TestSqlHostVariable.java

@@ -199,6 +199,16 @@ public class TestSqlHostVariable {
                   + "          49 {$*VAR|1} USAGE IS SQL TYPE IS XML AS CHARACTER LARGE OBJECT (10).\n"
                   + "        PROCEDURE DIVISION.\n"
                   + "           DISPLAY {$var-name1}.";
+
+  public static final String LOB_XML_ARR_TEXT1 =
+          "        Identification Division.\n"
+                  + "        Program-Id. 'TEST1'.\n"
+                  + "        Data Division.\n"
+                  + "         Working-Storage Section.\n"
+                  + "       01 {$*VAR-NAME1}.\n"
+                  + "       04 {$*VAR} USAGE IS SQL TYPE IS XML AS CLOB (10) OCCURS 12345 TIMES.\n"
+                  + "        PROCEDURE DIVISION.\n";
+
   @Test
   void testSupportForResultSetLocator() {
     UseCaseEngine.runTest(TEXT, ImmutableList.of(), ImmutableMap.of());
@@ -350,4 +360,9 @@ void testBinaryHostVariableArray3() {
   void testBinaryHostVariableArray4() {
     UseCaseEngine.runTest(BINARY_ARR_TEXT4, ImmutableList.of(), ImmutableMap.of());
   }
+
+  @Test
+  void testLobXMLVariableArray1() {
+    UseCaseEngine.runTest(LOB_XML_ARR_TEXT1, ImmutableList.of(), ImmutableMap.of());
+  }
 }