WI #2836 Add OBJECT REFERENCE in the stand-alone usages

TypeCobol.LanguageServer.Test/LSRTests/CompletionOnPartialLibraryName/input/CompletionOnPartialLibraryName.tlsp

@@ -15,7 +15,7 @@
     },
     {
       "category": 1,
-      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/MILLETFL/AppData/Local/Temp/1/tcbl/DVZZMFT0579822514746277517.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":6,\"character\":8},\"end\":{\"line\":6,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input 'PROCEDURE' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":9,\"character\":12},\"end\":{\"line\":9,\"character\":15}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : no viable alternative at input 'CALL ... CALL'\"},{\"range\":{\"start\":{\"line\":5,\"character\":11},\"end\":{\"line\":5,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
+      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/MILLETFL/AppData/Local/Temp/1/tcbl/DVZZMFT0579822514746277517.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":6,\"character\":8},\"end\":{\"line\":6,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input 'PROCEDURE' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":9,\"character\":12},\"end\":{\"line\":9,\"character\":15}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : no viable alternative at input 'CALL ... CALL'\"},{\"range\":{\"start\":{\"line\":5,\"character\":11},\"end\":{\"line\":5,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
     },
     {
       "category": 0,
@@ -27,7 +27,7 @@
     },
     {
       "category": 1,
-      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/MILLETFL/AppData/Local/Temp/1/tcbl/DVZZMFT0579822514746277517.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":6,\"character\":8},\"end\":{\"line\":6,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input 'PROCEDURE' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":9,\"character\":12},\"end\":{\"line\":9,\"character\":15}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : no viable alternative at input 'CALL ... CALL'\"},{\"range\":{\"start\":{\"line\":5,\"character\":11},\"end\":{\"line\":5,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
+      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/MILLETFL/AppData/Local/Temp/1/tcbl/DVZZMFT0579822514746277517.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":6,\"character\":8},\"end\":{\"line\":6,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input 'PROCEDURE' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":9,\"character\":12},\"end\":{\"line\":9,\"character\":15}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : no viable alternative at input 'CALL ... CALL'\"},{\"range\":{\"start\":{\"line\":5,\"character\":11},\"end\":{\"line\":5,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":14}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
     },
     {
       "category": 0,

TypeCobol.LanguageServer.Test/LSRTests/CompletionWithNestedProgram/input/CompletionWithNestedProgram.tlsp

@@ -99,7 +99,7 @@
     },
     {
       "category": 1,
-      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/COLLARBE/AppData/Local/Temp/tcbl/PROCCALL2077551056612636516.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":30,\"character\":8},\"end\":{\"line\":30,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":28,\"character\":11},\"end\":{\"line\":28,\"character\":19}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
+      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/COLLARBE/AppData/Local/Temp/tcbl/PROCCALL2077551056612636516.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":30,\"character\":8},\"end\":{\"line\":30,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":28,\"character\":11},\"end\":{\"line\":28,\"character\":19}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
     },
     {
       "category": 1,

TypeCobol.LanguageServer.Test/LSRTests/RefreshCopiesNotif/input/RefreshCopyNotif.tlsp

@@ -15,7 +15,7 @@
     },
     {
       "category": 1,
-      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/BALLMA/AppData/Local/Temp/1/tcbl/DVZZBCO04742822857809968410.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":10,\"character\":20},\"end\":{\"line\":10,\"character\":33}},\"severity\":1,\"code\":\"28\",\"source\":\"text-name identifies the copy text. library-name identifies where the copy text exists\",\"message\":\"Failed to load COPY : Cobol source file not found: YDVZERL\"},{\"range\":{\"start\":{\"line\":12,\"character\":20},\"end\":{\"line\":12,\"character\":33}},\"severity\":1,\"code\":\"28\",\"source\":\"text-name identifies the copy text. library-name identifies where the copy text exists\",\"message\":\"Failed to load COPY : Cobol source file not found: YSTIEM1\"},{\"range\":{\"start\":{\"line\":10,\"character\":11},\"end\":{\"line\":10,\"character\":17}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":12,\"character\":11},\"end\":{\"line\":12,\"character\":17}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
+      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/BALLMA/AppData/Local/Temp/1/tcbl/DVZZBCO04742822857809968410.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":10,\"character\":20},\"end\":{\"line\":10,\"character\":33}},\"severity\":1,\"code\":\"28\",\"source\":\"text-name identifies the copy text. library-name identifies where the copy text exists\",\"message\":\"Failed to load COPY : Cobol source file not found: YDVZERL\"},{\"range\":{\"start\":{\"line\":12,\"character\":20},\"end\":{\"line\":12,\"character\":33}},\"severity\":1,\"code\":\"28\",\"source\":\"text-name identifies the copy text. library-name identifies where the copy text exists\",\"message\":\"Failed to load COPY : Cobol source file not found: YSTIEM1\"},{\"range\":{\"start\":{\"line\":10,\"character\":11},\"end\":{\"line\":10,\"character\":17}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"},{\"range\":{\"start\":{\"line\":12,\"character\":11},\"end\":{\"line\":12,\"character\":17}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
     },
     {
       "category": 1,

TypeCobol.LanguageServer.Test/LSRTests/TypeCompletion/input/TypeCompletion.tlsp

@@ -32,7 +32,7 @@
     },
     {
       "category": 1,
-      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/COLLARBE/AppData/Local/Temp/tcbl/PROCCALL698913763795011977.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
+      "message": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/publishDiagnostics\",\"params\":{\"uri\":\"file:/C:/Users/COLLARBE/AppData/Local/Temp/tcbl/PROCCALL698913763795011977.cee\",\"diagnostics\":[{\"range\":{\"start\":{\"line\":7,\"character\":8},\"end\":{\"line\":7,\"character\":9}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : mismatched input '01' expecting {user defined word, CURRENCY, DATE}\"},{\"range\":{\"start\":{\"line\":6,\"character\":11},\"end\":{\"line\":6,\"character\":16}},\"severity\":1,\"code\":\"27\",\"source\":\"Find the syntax diagram describing the statement in error in the language reference\",\"message\":\"Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER).\"}]}}"
     },
     {
       "category": 1,

TypeCobol.Test/Parser/EILegacy/CopyTestwithOrWithoutReplace.PGM.txt

@@ -1,5 +1,5 @@
---- Diagnostics ---
-Line 9[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[11,19:MYCOPY-X2]<UserDefinedWord>
+--- Diagnostics ---
+Line 9[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[11,19:MYCOPY-X2]<UserDefinedWord>
 Line 9[11,19] <27, Error, Syntax> - Syntax error : Cannot include copy XMYCOPY1 under level 1 because copy starts at level 1. OffendingSymbol=[11,19:MYCOPY-X2]<UserDefinedWord>
 
 --- Program ---

TypeCobol.Test/Parser/EILegacy/EITestCpyList2B.PGM.txt

@@ -1,8 +1,8 @@
---- Diagnostics ---
+--- Diagnostics ---
 Line 6[19,31] <27, Error, Syntax> - Error in copy 'YMECOPY' at line 2 : Syntax error : no viable alternative at input '05 ... :MECOPY:-DATA' RuleStack=codeElement>dataDescriptionEntry,  OffendingSymbol=[15,27::MECOPY:-DATA]<PartialCobolWord> in COPY YMECOPY
 Line 6[19,31] <27, Error, Syntax> - Error in copy 'YMECOPY' at line 2 : Syntax error : extraneous input '.' expecting {ProgramIdentification, ProgramEnd, ClassIdentification, ClassEnd, FactoryEnd, ObjectIdentification, ObjectEnd, MethodEnd, ProcedureDivisionHeader, WorkingStorageSectionHeader, LocalStorageSectionHeader, LinkageSectionHeader, FileDescriptionEntry, DataDescriptionEntry, DataRedefinesEntry, DataRenamesEntry, DataConditionEntry, ExecStatement, FunctionDeclarationEnd, GlobalStorageSectionHeader} OffendingSymbol=[[SentenceEnd]] [44,44+:.]<PeriodSeparator> --> [44,44+:.]<PeriodSeparator>
 
-Line 6[11,16] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[11,16:MECOPY]<UserDefinedWord>
+Line 6[11,16] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[11,16:MECOPY]<UserDefinedWord>
 
 --- Program ---
 PROGRAM: Pgm common:False initial:False recursive:False

TypeCobol.Test/Parser/Programs/Cobol2002/LevelChecker.PGM.txt

@@ -1,11 +1,11 @@
---- Diagnostics ---
+--- Diagnostics ---
 Line 21[11,16] <27, Error, Syntax> - Syntax error : Group item  MyVar2 cannot have a "TYPE" OffendingSymbol=[11,16:MyVar2]<UserDefinedWord>
 Line 23[11,16] <30, Error, Semantics> - Semantic error: Variable 'MyVar1' has to be limited to level 45 because of 'myType' maximum estimated children level OffendingSymbol=[11,16:MyVar1]<UserDefinedWord>
 Line 29[11,16] <30, Error, Semantics> - Semantic error: A 77 level variable cannot be typed with a type containing children OffendingSymbol=[11,16:MYVar5]<UserDefinedWord>
 Line 32[10,34] <27, Error, Syntax> - Syntax error : The Level 88 symbol 'WrongVarHere' cannot be declared under a BOOL typed symbol
 Line 46[17,18] <27, Error, Syntax> - Syntax error : no viable alternative at input '88' RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase>parameterDescription>functionDataParameter>tcfuncParameterUsageClause,  OffendingSymbol=[17,18:88]<IntegerLiteral>{88}
 Line 46[30,34] <27, Error, Syntax> - Syntax error : mismatched input 'value' expecting {FUNCTION-POINTER, PIC, PICTURE, POINTER, PROCEDURE-POINTER, TYPE, ?} RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase>parameterDescription>functionDataParameter,  OffendingSymbol=[30,34:value]<VALUE>
-Line 46[20,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[20,28:exists-Ok]<UserDefinedWord>
+Line 46[20,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty. Add children, picture or valid usage (INDEX, COMP-1, COMP-2, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER or FUNCTION-POINTER). OffendingSymbol=[20,28:exists-Ok]<UserDefinedWord>
 
 --- Program ---
 PROGRAM: LevelChecker common:False initial:False recursive:False