fix: update db2 select grammar as per doc

update as per doc https://www.ibm.com/docs/en/db2-for-zos/13?topic=queries-select-statement

Signed-off-by: Aman Prashant <[email protected]>

Author: ap891843

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

@@ -888,7 +888,7 @@ dbs_select: dbs_select_unpack_function_invocation | (WITH common_table_expressio
              | (QUERYNO dbs_integer)
              | (SKIPCHAR LOCKED DATA))*;
 dbs_select_update: FOR UPDATE (OF dbs_column_name (dbs_comma_separator dbs_column_name)*)? ;
-dbs_select_readOnly: FOR READ ONLY;
+dbs_select_readOnly: FOR (READ | FETCH) ONLY;
 dbs_select_optimize:OPTIMIZE FOR dbs_integer (ROWS | ROW);
 /*Queries Subselects (all)*/
 dbs_select_unpack_function_invocation: UNPACK LPARENCHAR dbs_expression RPARENCHAR DOT_FS ASTERISKCHAR AS LPARENCHAR dbs_field_name db2sql_data_types (dbs_comma_separator dbs_field_name db2sql_data_types)* RPARENCHAR;
@@ -1285,7 +1285,7 @@ dbs_select_into: (WITH common_table_expression_loop)?  dbs_select_clause INTO (t
 common_table_expression_loop: dbs_select_statement_common_table_expression (dbs_comma_separator dbs_select_statement_common_table_expression)*;
 target_variable_names_loop: target_variable_names_opts (dbs_comma_separator target_variable_names_opts)*;
 target_variable_names_opts: dbs_global_variable_name | dbs_host_variable | dbs_sql_parameter_name | dbs_sql_variable_name | dbs_transition_variable_name;
-dbs_select_statement_common_table_expression: dbs_sql_identifier LPARENCHAR dbs_sql_identifier (dbs_comma_separator dbs_sql_identifier)* RPARENCHAR AS dbs_fullselect;
+dbs_select_statement_common_table_expression: dbs_sql_identifier (LPARENCHAR dbs_sql_identifier (dbs_comma_separator dbs_sql_identifier)* RPARENCHAR)? AS dbs_fullselect;
 dbs_select_statement_isolation_clause: WITH (RR dbs_select_statement_isolation_clause_lock_clause | RS dbs_select_statement_isolation_clause_lock_clause | CS | UR );
 dbs_select_statement_isolation_clause_lock_clause: USE AND KEEP (EXCLUSIVE | UPDATE | SHARE) LOCKS;
 dbs_select_statement_queryno_clause: QUERYNO dbs_integer;

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

@@ -139,9 +139,38 @@ class TestSqlSelectStatement {
           + "            FROM SYSIBM.SYSDUMMY1                                       00095700\n"
           + "           END-EXEC.                                                    00095800";
 
+  private static final String SELECT14 =
+      TEXT
+          + "            DECLARE C1 CURSOR FOR \n"
+          + "             SELECT * FROM RMTTAB\n"
+          + "               FOR FETCH ONLY \n"
+          + "           END-EXEC.\n";
+
+  private static final String SELECT15 =
+      TEXT
+          + "              WITH T1 AS\n"
+          + "              (\n"
+          + "              SELECT  CARD           AS PAN\n"
+          + "                     ,CVV            AS CVV2\n"
+          + "                     ,Y1             AS W1\n"
+          + "                     ,Y2             AS W2\n"
+          + "              FROM TABLEY\n"
+          + "              )\n"
+          + "              SELECT  'Y'\n"
+          + "              INTO   :{$WS-D-DEB}\n"
+          + "              FROM TABLEY\n"
+          + "              INNER JOIN T1 ON\n"
+          + "                       TABLEY.Y1         = T1.W1\n"
+          + "                  AND  TABLEY.Y2         = T1.W2\n"
+          + "              WHERE 1 = 1\n"
+          + "             FETCH FIRST 1 ROW ONLY\n"
+          + "             WITH UR\n"
+          + "           END-EXEC.\n";
+
   private static Stream<String> textsToTest() {
-    return Stream.of(SELECT, SELECT2, SELECT3, SELECT4, SELECT5, SELECT6, SELECT7, SELECT8, SELECT9, SELECT10,
-            SELECT11, SELECT12, SELECT13);
+    return Stream.of(
+        SELECT, SELECT2, SELECT3, SELECT4, SELECT5, SELECT6, SELECT7, SELECT8, SELECT9, SELECT10,
+        SELECT11, SELECT12, SELECT13, SELECT14, SELECT15);
   }
 
   @ParameterizedTest