diff --git a/TypeCobol.LanguageServer.Test/LSRTests/CompletionOnPartialLibraryName/input/CompletionOnPartialLibraryName.tlsp b/TypeCobol.LanguageServer.Test/LSRTests/CompletionOnPartialLibraryName/input/CompletionOnPartialLibraryName.tlsp index 3f60ac0b5..353305ca6 100644 --- a/TypeCobol.LanguageServer.Test/LSRTests/CompletionOnPartialLibraryName/input/CompletionOnPartialLibraryName.tlsp +++ b/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, diff --git a/TypeCobol.LanguageServer.Test/LSRTests/CompletionWithNestedProgram/input/CompletionWithNestedProgram.tlsp b/TypeCobol.LanguageServer.Test/LSRTests/CompletionWithNestedProgram/input/CompletionWithNestedProgram.tlsp index 1d8f25635..be122cc3c 100644 --- a/TypeCobol.LanguageServer.Test/LSRTests/CompletionWithNestedProgram/input/CompletionWithNestedProgram.tlsp +++ b/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, diff --git a/TypeCobol.LanguageServer.Test/LSRTests/RefreshCopiesNotif/input/RefreshCopyNotif.tlsp b/TypeCobol.LanguageServer.Test/LSRTests/RefreshCopiesNotif/input/RefreshCopyNotif.tlsp index 62fc26bfe..a8431e390 100644 --- a/TypeCobol.LanguageServer.Test/LSRTests/RefreshCopiesNotif/input/RefreshCopyNotif.tlsp +++ b/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, diff --git a/TypeCobol.LanguageServer.Test/LSRTests/TypeCompletion/input/TypeCompletion.tlsp b/TypeCobol.LanguageServer.Test/LSRTests/TypeCompletion/input/TypeCompletion.tlsp index 1acc09342..e3eafb893 100644 --- a/TypeCobol.LanguageServer.Test/LSRTests/TypeCompletion/input/TypeCompletion.tlsp +++ b/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, diff --git a/TypeCobol.Test/Parser/EILegacy/CopyTestwithOrWithoutReplace.PGM.txt b/TypeCobol.Test/Parser/EILegacy/CopyTestwithOrWithoutReplace.PGM.txt index 6462acfcd..d28d242fd 100644 --- a/TypeCobol.Test/Parser/EILegacy/CopyTestwithOrWithoutReplace.PGM.txt +++ b/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] +--- 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] 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] --- Program --- diff --git a/TypeCobol.Test/Parser/EILegacy/EITestCpyList2B.PGM.txt b/TypeCobol.Test/Parser/EILegacy/EITestCpyList2B.PGM.txt index faa4f8f72..5e9764cd8 100644 --- a/TypeCobol.Test/Parser/EILegacy/EITestCpyList2B.PGM.txt +++ b/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] 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+:.] --> [44,44+:.] -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] +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] --- Program --- PROGRAM: Pgm common:False initial:False recursive:False diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/LevelChecker.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/LevelChecker.PGM.txt index ad4d0c876..b460aaec4 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/LevelChecker.PGM.txt +++ b/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] 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] 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] 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]{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] -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] +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] --- Program --- PROGRAM: LevelChecker common:False initial:False recursive:False diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes-EI.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes-EI.txt index 976b973e8..0ccf30988 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes-EI.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes-EI.txt @@ -1,4 +1,4 @@ -Line 9[12,18] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Feature' must be marked as STRICT. +Line 9[12,18] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Feature' must be marked as STRICT. Line 15[10,16] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Vect2' must be marked as STRICT. Line 40[21,27] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'TypeDefinedAfter' must be marked as STRICT. Line 45[14,20] <27, Error, Syntax> - Syntax error : TYPEDEF clause can only be specified for level 01 entries @@ -24,7 +24,7 @@ Line 153[30,36] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Grou Line 160[17,23] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'strongType1' must be marked as STRICT. Line 36[1,31] <30, Error, Semantics> - Semantic error: TYPE 'TypeNotDefined' is not referenced Line 51[1,41] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced -Line 57[4,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). +Line 57[4,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). Line 64[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 70[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines2' is not referenced Line 73[27,40] <30, Error, Semantics> - Semantic error: Illegal REDEFINES: Symbol 'TypeNotDefined' is not referenced diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes.txt index 7baa2ac0f..0c21c591f 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.Nodes.txt @@ -9,7 +9,7 @@ Line 101[27,32] <27, Error, Syntax> - Syntax error : Elementary TYPEDEF cannot b Line 117[33,37] <27, Error, Syntax> - Syntax error : STRONG TYPEDEF cannot contain VALUE clause: Line 36[1,31] <30, Error, Semantics> - Semantic error: TYPE 'TypeNotDefined' is not referenced Line 51[1,41] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced -Line 57[4,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). +Line 57[4,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). Line 64[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 70[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines2' is not referenced Line 73[27,40] <30, Error, Semantics> - Semantic error: Illegal REDEFINES: Symbol 'TypeNotDefined' is not referenced diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM-EI.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM-EI.txt index dfe8befd1..22d189928 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM-EI.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM-EI.txt @@ -1,4 +1,4 @@ ---- Diagnostics --- +--- Diagnostics --- Line 9[12,18] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Feature' must be marked as STRICT. RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[12,18:TYPEDEF] Line 15[10,16] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'Vect2' must be marked as STRICT. RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[10,16:TYPEDEF] Line 36[1,31] <30, Error, Semantics> - Semantic error: TYPE 'TypeNotDefined' is not referenced @@ -9,7 +9,7 @@ Line 50[29,35] <27, Error, Syntax> - Syntax error : extraneous input 'TYPEDEF' e Line 51[1,41] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced Line 53[19,25] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'ClausesOrderOK' must be marked as STRICT. RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[19,25:TYPEDEF] Line 57[18,24] <27, Error, Syntax> - Syntax error : Custom EI rule : Type 'NoDescription' must be marked as STRICT. RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[18,24:TYPEDEF] -Line 57[4,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=[4,16:NoDescription] +Line 57[4,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=[4,16:NoDescription] Line 63[17,25] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[17,25:REDEFINES] Line 64[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 68[17,25] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[17,25:REDEFINES] diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM.txt index 13e167165..401141a2b 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef.PGM.txt @@ -3,7 +3,7 @@ Line 36[1,31] <30, Error, Semantics> - Semantic error: TYPE 'TypeNotDefined' is Line 45[14,20] <27, Error, Syntax> - Syntax error : TYPEDEF clause can only be specified for level 01 entries RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[14,20:TYPEDEF] Line 50[29,35] <27, Error, Syntax> - Syntax error : extraneous input 'TYPEDEF' expecting {separator, statement starting keyword, keyword} RuleStack=codeElement>dataDescriptionEntry, OffendingSymbol=[29,35:TYPEDEF] Line 51[1,41] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced -Line 57[4,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=[4,16:NoDescription] +Line 57[4,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=[4,16:NoDescription] Line 63[17,25] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[17,25:REDEFINES] Line 64[1,37] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 68[17,25] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[17,25:REDEFINES] diff --git a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef5.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef5.Mix.txt index 008bb94da..02d74e9e7 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef5.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol2002/Typedef5.Mix.txt @@ -6,7 +6,7 @@ 01 A2 TYPEDEF STRICT PUBLIC comp-2. 01 A3 TYPEDEF STRICT PUBLIC pointer. 01 A4 TYPEDEF STRICT PUBLIC procedure-pointer. -Line 9[11,12] <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). +Line 9[11,12] <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). 01 A5 TYPEDEF STRICT PUBLIC comp-5. 01 v1 type A1. 01 v2 type A2. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/CopyReplace4ColonErr.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/CopyReplace4ColonErr.PGM.txt index a34df921b..a670bd420 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/CopyReplace4ColonErr.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/CopyReplace4ColonErr.PGM.txt @@ -4,7 +4,7 @@ Line 7[20,55] <27, Error, Syntax> - Error in copy 'YxxxENT' at line 1 : Syntax e Line 7[20,55] <27, Error, Syntax> - Error in copy 'YxxxENT' at line 2 : Syntax error : no viable alternative at input '10 ... xxxENT::-FCT01-Var1' RuleStack=codeElement>dataDescriptionEntry, OffendingSymbol=[19,37:xxxENT::-FCT01-Var1] in COPY YxxxENT Line 7[20,55] <27, Error, Syntax> - Error in copy 'YxxxENT' at line 1 : 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]] [30,30+:.] --> [30,30+:.] -Line 7[12,17] <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=[12,17:xxxENT] +Line 7[12,17] <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=[12,17:xxxENT] --- Program --- PROGRAM: CPYRPL4C common:False initial:False recursive:False diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.PGM.txt index ba751d9e8..ee9dd4eab 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.PGM.txt @@ -1,10 +1,10 @@ ---- Diagnostics --- -Line 7[8,14] <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=[8,14:MyGroup] +--- Diagnostics --- +Line 7[8,14] <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=[8,14:MyGroup] Line 7[8,14] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData2 under level 5 because copy starts at level 5. OffendingSymbol=[8,14:MyGroup] -Line 12[8,14] <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=[8,14:MyGroup] -Line 28[4,7] <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=[4,7:STR5] +Line 12[8,14] <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=[8,14:MyGroup] +Line 28[4,7] <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=[4,7:STR5] Line 28[4,7] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData3 under level 1 because copy starts at level 1. OffendingSymbol=[4,7:STR5] -Line 32[8,14] <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=[8,14:MyGroup] +Line 32[8,14] <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=[8,14:MyGroup] Line 32[8,14] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData4 under level 5 because copy starts at level 2. OffendingSymbol=[8,14:MyGroup] --- Program --- diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.SYM.txt index 4461d5579..89b68ec03 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/DataGroupEmpty.SYM.txt @@ -1,10 +1,10 @@ ---- Diagnostics --- -Line 7[8,14] <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=[8,14:MyGroup] +--- Diagnostics --- +Line 7[8,14] <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=[8,14:MyGroup] Line 7[8,14] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData2 under level 5 because copy starts at level 5. OffendingSymbol=[8,14:MyGroup] -Line 12[8,14] <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=[8,14:MyGroup] -Line 28[4,7] <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=[4,7:STR5] +Line 12[8,14] <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=[8,14:MyGroup] +Line 28[4,7] <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=[4,7:STR5] Line 28[4,7] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData3 under level 1 because copy starts at level 1. OffendingSymbol=[4,7:STR5] -Line 32[8,14] <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=[8,14:MyGroup] +Line 32[8,14] <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=[8,14:MyGroup] Line 32[8,14] <27, Error, Syntax> - Syntax error : Cannot include copy CPYData4 under level 5 because copy starts at level 2. OffendingSymbol=[8,14:MyGroup] --- Program --- diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.Mix.txt index 10b6520df..7b5860ae4 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.Mix.txt @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. Pgm2358. DATA DIVISION. WORKING-STORAGE SECTION. @@ -13,17 +13,17 @@ *A"PICTURE"clause was not found for elementary item"Array-A02-KO". * "PICTURE X(1)"was assumed. -Line 16[15,26] <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). +Line 16[15,26] <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). 05 Array-A02-KO OCCURS 50. *A"PICTURE"clause was not found for elementary item"Array-A03-KO". * "PICTURE X(1)"was assumed. -Line 19[15,26] <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). +Line 19[15,26] <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). 05 Array-A03-KO OCCURS 50 usage is display. *The"PICTURE"clause for item"Array-A04-KO"was not compatible with the * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A04-KO". * "PICTURE X(1)"was assumed. -Line 24[15,26] <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). +Line 24[15,26] <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). 05 Array-A04-KO OCCURS 50 usage is display-1. 05 Array-A05-OK OCCURS 50 usage is index. @@ -31,7 +31,7 @@ Line 24[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A06-KO". * "PICTURE X(1)"was assumed. -Line 31[15,26] <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). +Line 31[15,26] <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). 05 Array-A06-KO OCCURS 50 usage is national. *TODO Wait for support of UTF-8 (#2504) @@ -46,19 +46,19 @@ Line 31[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A08-KO". * "PICTURE X(1)"was assumed. -Line 45[15,26] <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). +Line 45[15,26] <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). 05 Array-A08-KO OCCURS 50 binary. *The"PICTURE"clause for item"Array-A09-KO"was not compatible with the * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A09-KO". * "PICTURE X(1)"was assumed. -Line 50[15,26] <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). +Line 50[15,26] <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). 05 Array-A09-KO OCCURS 50 packed-decimal. *The"PICTURE"clause for item"Array-A10-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A10-KO". * "PICTURE X(1)"was assumed. -Line 55[15,26] <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). +Line 55[15,26] <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). 05 Array-A10-KO OCCURS 50 comp. 05 Array-A11-OK OCCURS 50 comp-1. 05 Array-A12-OK OCCURS 50 comp-2. @@ -67,19 +67,19 @@ Line 55[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A13-KO". * "PICTURE X(1)"was assumed. -Line 63[15,26] <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). +Line 63[15,26] <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). 05 Array-A13-KO OCCURS 50 comp-3. *The"PICTURE"clause for item"Array-A14-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A14-KO". * "PICTURE X(1)"was assumed. -Line 68[15,26] <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). +Line 68[15,26] <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). 05 Array-A14-KO OCCURS 50 comp-4. *The"PICTURE"clause for item"Array-A15-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A15-KO". * "PICTURE X(1)"was assumed. -Line 73[15,26] <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). +Line 73[15,26] <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). 05 Array-A15-KO OCCURS 50 comp-5. 05 Array-A16-OK OCCURS 50 pointer. 05 Array-A17-OK OCCURS 50 pointer-32. @@ -89,7 +89,7 @@ Line 73[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty *A"PICTURE"clause was not found for elementary item"ARRAY-A20-KO". * "PICTURE X(1)"was assumed. 05 Counter pic 9. -Line 82[15,26] <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). +Line 82[15,26] <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). 05 Array-A20-KO occurs 99 depending on Counter of Group-A indexed by MyIdxCustom. @@ -100,7 +100,7 @@ Line 82[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty 01 Group-B01 usage is display. *A"PICTURE"clause was not found for elementary item"Array-B01-KO". * "PICTURE X(1)"was assumed. -Line 92[16,27] <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). +Line 92[16,27] <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). 05 Array-B01-KO OCCURS 50. 01 Group-B02 usage is display-1. @@ -108,7 +108,7 @@ Line 92[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B02-KO". * "PICTURE X(1)"was assumed. -Line 99[16,27] <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). +Line 99[16,27] <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). 05 Array-B02-KO OCCURS 50. 01 Group-B03 usage is index. 05 Array-B03-OK OCCURS 50. @@ -117,7 +117,7 @@ Line 99[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B04-KO". * "PICTURE X(1)"was assumed. -Line 107[16,27] <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). +Line 107[16,27] <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). 05 Array-B04-KO OCCURS 50. *TODO Wait for support of UTF-8 (#2504) @@ -126,14 +126,14 @@ Line 107[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B05-KO". * "PICTURE X(1)"was assumed. -Line 115[16,27] <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). +Line 115[16,27] <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). 05 Array-B05-KO OCCURS 50. 01 Group-B06 binary. *The"PICTURE"clause for item"Array-B06-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B06-KO". * "PICTURE X(1)"was assumed. -Line 121[16,27] <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). +Line 121[16,27] <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). 05 Array-B06-KO OCCURS 50. 01 Group-B07 packed-decimal. @@ -141,7 +141,7 @@ Line 121[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B07-KO". * "PICTURE X(1)"was assumed. -Line 128[16,27] <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). +Line 128[16,27] <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). 05 Array-B07-KO OCCURS 50. 01 Group-B08 comp. @@ -149,7 +149,7 @@ Line 128[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B08-KO". * "PICTURE X(1)"was assumed. -Line 135[16,27] <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). +Line 135[16,27] <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). 05 Array-B08-KO OCCURS 50. 01 Group-B09 comp-1. 05 Array-B09-OK OCCURS 50. @@ -161,7 +161,7 @@ Line 135[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B11-KO". * "PICTURE X(1)"was assumed. -Line 146[16,27] <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). +Line 146[16,27] <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). 05 Array-B11-KO OCCURS 50. 01 Group-B12 comp-4. @@ -169,7 +169,7 @@ Line 146[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B12-KO". * "PICTURE X(1)"was assumed. -Line 153[16,27] <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). +Line 153[16,27] <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). 05 Array-B12-KO OCCURS 50. 01 Group-B13 comp-5. @@ -177,7 +177,7 @@ Line 153[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B13-KO". * "PICTURE X(1)"was assumed. -Line 160[16,27] <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). +Line 160[16,27] <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). 05 Array-B13-KO OCCURS 50. 01 Group-B14 pointer. @@ -199,7 +199,7 @@ Line 160[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt *A"PICTURE"clause was not found for elementary item"Array-C01-KO". * "PICTURE X(1)"was assumed. 01 Group-C01 group-usage is national. -Line 181[15,26] <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). +Line 181[15,26] <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). 05 Array-C01-KO OCCURS 50. *TODO Wait for support of UTF-8 (#2504) @@ -221,7 +221,7 @@ Line 181[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt * "PICTURE X(1)"was assumed. 01 Group-D2 comp-5. 05 Group-D21. -Line 202[20,30] <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). +Line 202[20,30] <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). 10 Array-D2-KO OCCURS 50. 01 Group-D3 usage is procedure-pointer. @@ -237,7 +237,7 @@ Line 202[20,30] <27, Error, Syntax> - Syntax error : A group item cannot be empt 01 Group-D4 usage is display-1. 05 Group-D41. 10 Group-D411. -Line 217[24,34] <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). +Line 217[24,34] <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). 15 Array-D4-KO OCCURS 50. @@ -249,7 +249,7 @@ Line 217[24,34] <27, Error, Syntax> - Syntax error : A group item cannot be empt 05 Array-D5-OK OCCURS 50. 05 Group-D51 group-usage is national. 10 Group-D511. -Line 228[24,34] <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). +Line 228[24,34] <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). 15 Array-D5-KO OCCURS 50. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.SYM.txt index 7985daaf4..04b4ab3e5 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/EmptyArray.SYM.txt @@ -1,29 +1,29 @@ ---- Diagnostics --- -Line 16[15,26] <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=[15,26:Array-A02-KO] -Line 19[15,26] <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=[15,26:Array-A03-KO] -Line 24[15,26] <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=[15,26:Array-A04-KO] -Line 31[15,26] <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=[15,26:Array-A06-KO] -Line 45[15,26] <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=[15,26:Array-A08-KO] -Line 50[15,26] <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=[15,26:Array-A09-KO] -Line 55[15,26] <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=[15,26:Array-A10-KO] -Line 63[15,26] <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=[15,26:Array-A13-KO] -Line 68[15,26] <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=[15,26:Array-A14-KO] -Line 73[15,26] <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=[15,26:Array-A15-KO] -Line 82[15,26] <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=[15,26:Array-A20-KO] -Line 92[16,27] <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=[16,27:Array-B01-KO] -Line 99[16,27] <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=[16,27:Array-B02-KO] -Line 107[16,27] <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=[16,27:Array-B04-KO] -Line 115[16,27] <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=[16,27:Array-B05-KO] -Line 121[16,27] <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=[16,27:Array-B06-KO] -Line 128[16,27] <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=[16,27:Array-B07-KO] -Line 135[16,27] <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=[16,27:Array-B08-KO] -Line 146[16,27] <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=[16,27:Array-B11-KO] -Line 153[16,27] <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=[16,27:Array-B12-KO] -Line 160[16,27] <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=[16,27:Array-B13-KO] -Line 181[15,26] <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=[15,26:Array-C01-KO] -Line 202[20,30] <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,30:Array-D2-KO] -Line 217[24,34] <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=[24,34:Array-D4-KO] -Line 228[24,34] <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=[24,34:Array-D5-KO] +--- Diagnostics --- +Line 16[15,26] <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=[15,26:Array-A02-KO] +Line 19[15,26] <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=[15,26:Array-A03-KO] +Line 24[15,26] <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=[15,26:Array-A04-KO] +Line 31[15,26] <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=[15,26:Array-A06-KO] +Line 45[15,26] <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=[15,26:Array-A08-KO] +Line 50[15,26] <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=[15,26:Array-A09-KO] +Line 55[15,26] <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=[15,26:Array-A10-KO] +Line 63[15,26] <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=[15,26:Array-A13-KO] +Line 68[15,26] <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=[15,26:Array-A14-KO] +Line 73[15,26] <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=[15,26:Array-A15-KO] +Line 82[15,26] <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=[15,26:Array-A20-KO] +Line 92[16,27] <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=[16,27:Array-B01-KO] +Line 99[16,27] <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=[16,27:Array-B02-KO] +Line 107[16,27] <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=[16,27:Array-B04-KO] +Line 115[16,27] <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=[16,27:Array-B05-KO] +Line 121[16,27] <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=[16,27:Array-B06-KO] +Line 128[16,27] <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=[16,27:Array-B07-KO] +Line 135[16,27] <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=[16,27:Array-B08-KO] +Line 146[16,27] <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=[16,27:Array-B11-KO] +Line 153[16,27] <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=[16,27:Array-B12-KO] +Line 160[16,27] <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=[16,27:Array-B13-KO] +Line 181[15,26] <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=[15,26:Array-C01-KO] +Line 202[20,30] <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,30:Array-D2-KO] +Line 217[24,34] <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=[24,34:Array-D4-KO] +Line 228[24,34] <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=[24,34:Array-D5-KO] --- Program --- Pgm2358 (.NET Type=ProgramSymbol, Kind=Program) diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/EvaluateWhenUsageCompatibility.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/EvaluateWhenUsageCompatibility.PGM.txt index a5e336120..bb924599e 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/EvaluateWhenUsageCompatibility.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/EvaluateWhenUsageCompatibility.PGM.txt @@ -1,7 +1,6 @@ --- Diagnostics --- -Line 23[11,30] <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,30:VAR-OBJECT-REFERENCE] Line 30[50,54] <27, Error, Syntax> - Syntax error : USAGE UTF-8 is not supported. OffendingSymbol=[50,54:UTF-8] -Line 30[11,18] <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,18:VAR-UTF8] +Line 30[11,18] <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,18:VAR-UTF8] Line 51[16,31] <27, Error, Syntax> - Syntax error : The object at position 1 in the "WHEN" phrase does not match the usage of the corresponding subject in the "EVALUATE" statement Line 53[16,32] <27, Error, Syntax> - Syntax error : The object at position 1 in the "WHEN" phrase does not match the usage of the corresponding subject in the "EVALUATE" statement Line 55[16,29] <27, Error, Syntax> - Syntax error : The object at position 1 in the "WHEN" phrase does not match the usage of the corresponding subject in the "EVALUATE" statement diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/ExecSql/ExecSqlInDataDivision.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/ExecSql/ExecSqlInDataDivision.Mix.txt index 0fd1cd02c..504ab821c 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/ExecSql/ExecSqlInDataDivision.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/ExecSql/ExecSqlInDataDivision.Mix.txt @@ -3,17 +3,17 @@ DATA DIVISION. WORKING-STORAGE SECTION. *KO empty group item -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). +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). 01 group1. EXEC SQL SELECT * FROM Table2 END-EXEC. *KO same thing but with a copy -Line 11[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). +Line 11[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). 01 group2. COPY CopyWithExecSqlOnly. *KO level number mismatch -Line 14[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). +Line 14[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). Line 14[11,16] <27, Error, Syntax> - Syntax error : Cannot include copy CopyWithExecSqlAndData1 under level 1 because copy starts at level 1. 01 group3. COPY CopyWithExecSqlAndData1. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.Mix.txt index 21f381cff..b1c67d0b4 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.Mix.txt @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. Level77AndUsage. DATA DIVISION. WORKING-STORAGE SECTION. @@ -7,19 +7,19 @@ *A"PICTURE"clause was not found for elementary item"Var2-KO". * "PICTURE X(1)"was assumed. -Line 10[11,17] <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). +Line 10[11,17] <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). 77 Var2-KO. *A"PICTURE"clause was not found for elementary item"Var3-KO". * "PICTURE X(1)"was assumed. -Line 14[11,17] <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). +Line 14[11,17] <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). 77 Var3-KO USAGE IS display. *The"PICTURE"clause for item"Var4-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var4-KO". * "PICTURE X(1)"was assumed. -Line 20[11,17] <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). +Line 20[11,17] <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). 77 Var4-KO USAGE IS display-1. 77 Var5-OK USAGE IS INDEX. @@ -28,7 +28,7 @@ Line 20[11,17] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var6-KO". * "PICTURE X(1)"was assumed. -Line 28[11,17] <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). +Line 28[11,17] <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). 77 Var6-KO USAGE IS national. *TODO Wait for support of UTF-8 (#2504) @@ -42,21 +42,21 @@ Line 28[11,17] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var8-KO". * "PICTURE X(1)"was assumed. -Line 41[11,17] <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). +Line 41[11,17] <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). 77 Var8-KO USAGE IS binary. *The"PICTURE"clause for item"Var9-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var9-KO". * "PICTURE X(1)"was assumed. -Line 47[11,17] <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). +Line 47[11,17] <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). 77 Var9-KO USAGE IS packed-decimal. *The"PICTURE"clause for item"Var10-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var10-KO". * "PICTURE X(1)"was assumed. -Line 53[11,18] <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). +Line 53[11,18] <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). 77 Var10-KO USAGE IS comp. 77 Var11-OK USAGE IS comp-1. @@ -66,26 +66,27 @@ Line 53[11,18] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var13-KO". * "PICTURE X(1)"was assumed. -Line 62[11,18] <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). +Line 62[11,18] <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). 77 Var13-KO USAGE IS comp-3. *The"PICTURE"clause for item"Var14-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var14-KO". * "PICTURE X(1)"was assumed. -Line 68[11,18] <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). +Line 68[11,18] <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). 77 Var14-KO USAGE IS comp-4. *The"PICTURE"clause for item"Var15-KO"was not compatible with the * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Var15-KO". * "PICTURE X(1)"was assumed. -Line 74[11,18] <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). +Line 74[11,18] <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). 77 Var15-KO USAGE IS comp-5. 77 Var16-OK POINTER. 77 Var17-OK USAGE POINTER-32. 77 Var18-OK USAGE IS procedure-pointer. 77 Var19-OK USAGE IS function-pointer. + 77 Var20-OK USAGE OBJECT REFERENCE. END PROGRAM Level77AndUsage. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.SYM.txt index 670da4c11..dfd2485a3 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.SYM.txt @@ -1,14 +1,14 @@ ---- Diagnostics --- -Line 10[11,17] <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,17:Var2-KO] -Line 14[11,17] <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,17:Var3-KO] -Line 20[11,17] <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,17:Var4-KO] -Line 28[11,17] <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,17:Var6-KO] -Line 41[11,17] <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,17:Var8-KO] -Line 47[11,17] <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,17:Var9-KO] -Line 53[11,18] <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,18:Var10-KO] -Line 62[11,18] <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,18:Var13-KO] -Line 68[11,18] <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,18:Var14-KO] -Line 74[11,18] <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,18:Var15-KO] +--- Diagnostics --- +Line 10[11,17] <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,17:Var2-KO] +Line 14[11,17] <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,17:Var3-KO] +Line 20[11,17] <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,17:Var4-KO] +Line 28[11,17] <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,17:Var6-KO] +Line 41[11,17] <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,17:Var8-KO] +Line 47[11,17] <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,17:Var9-KO] +Line 53[11,18] <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,18:Var10-KO] +Line 62[11,18] <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,18:Var13-KO] +Line 68[11,18] <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,18:Var14-KO] +Line 74[11,18] <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,18:Var15-KO] --- Program --- Level77AndUsage (.NET Type=ProgramSymbol, Kind=Program) @@ -158,5 +158,13 @@ WorkingStorageData: Usage: FunctionPointer Level: 77 IsFiller: False + Var20-OK (.NET Type=VariableSymbol, Kind=Variable) + Flags: [WORKING_STORAGE] + Owner: Level77AndUsage + Type: + (.NET Type=Type, Tag=Usage) + Usage: ObjectReference + Level: 77 + IsFiller: False IsNested: False diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.rdzb.cbl b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.rdzb.cbl index f5367be9f..ba65bc550 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.rdzb.cbl +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Level77AndUsage.rdzb.cbl @@ -77,5 +77,6 @@ 77 Var17-OK USAGE POINTER-32. 77 Var18-OK USAGE IS procedure-pointer. 77 Var19-OK USAGE IS function-pointer. + 77 Var20-OK USAGE OBJECT REFERENCE. END PROGRAM Level77AndUsage. \ No newline at end of file diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.Mix.txt index d2536a2fa..de6adcd45 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.Mix.txt @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. Level88AndUsage. DATA DIVISION. WORKING-STORAGE SECTION. @@ -8,13 +8,13 @@ *A"PICTURE"clause was not found for elementary item"Group2-KO". * "PICTURE X(1)"was assumed. -Line 11[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). +Line 11[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). 01 Group2-KO. 88 var88 VALUE "1". *A"PICTURE"clause was not found for elementary item"Group3-KO". * "PICTURE X(1)"was assumed. -Line 16[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). +Line 16[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). 01 Group3-KO USAGE IS display. 88 var88 VALUE "1". @@ -22,7 +22,7 @@ Line 16[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group4-KO". * "PICTURE X(1)"was assumed. -Line 23[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). +Line 23[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). 01 Group4-KO USAGE IS display-1. 88 var88 VALUE "1". @@ -46,7 +46,7 @@ Line 23[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group8-KO". * "PICTURE X(1)"was assumed. -Line 46[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). +Line 46[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). 01 Group8-KO USAGE IS binary. 88 var88 VALUE "1". @@ -54,7 +54,7 @@ Line 46[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group9-KO". * "PICTURE X(1)"was assumed. -Line 53[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). +Line 53[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). 01 Group9-KO USAGE IS packed-decimal. 88 var88 VALUE "1". @@ -62,7 +62,7 @@ Line 53[11,19] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group10-KO". * "PICTURE X(1)"was assumed. -Line 60[11,20] <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). +Line 60[11,20] <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). 01 Group10-KO USAGE IS comp. 88 var88 VALUE "1". @@ -75,7 +75,7 @@ Line 60[11,20] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group13-KO". * "PICTURE X(1)"was assumed. -Line 72[11,20] <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). +Line 72[11,20] <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). 01 Group13-KO USAGE IS comp-3. 88 var88 VALUE "1". @@ -83,7 +83,7 @@ Line 72[11,20] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group14-KO". * "PICTURE X(1)"was assumed. -Line 79[11,20] <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). +Line 79[11,20] <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). 01 Group14-KO USAGE IS comp-4. 88 var88 VALUE "1". @@ -91,7 +91,7 @@ Line 79[11,20] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Group15-KO". * "PICTURE X(1)"was assumed. -Line 86[11,20] <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). +Line 86[11,20] <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). 01 Group15-KO USAGE IS comp-5. 88 var88 VALUE "1". diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.SYM.txt index 113036f6c..bf3e1d676 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Level88AndUsage.SYM.txt @@ -1,13 +1,13 @@ ---- Diagnostics --- -Line 11[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:Group2-KO] -Line 16[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:Group3-KO] -Line 23[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:Group4-KO] -Line 46[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:Group8-KO] -Line 53[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:Group9-KO] -Line 60[11,20] <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,20:Group10-KO] -Line 72[11,20] <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,20:Group13-KO] -Line 79[11,20] <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,20:Group14-KO] -Line 86[11,20] <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,20:Group15-KO] +--- Diagnostics --- +Line 11[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:Group2-KO] +Line 16[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:Group3-KO] +Line 23[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:Group4-KO] +Line 46[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:Group8-KO] +Line 53[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:Group9-KO] +Line 60[11,20] <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,20:Group10-KO] +Line 72[11,20] <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,20:Group13-KO] +Line 79[11,20] <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,20:Group14-KO] +Line 86[11,20] <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,20:Group15-KO] --- Program --- Level88AndUsage (.NET Type=ProgramSymbol, Kind=Program) diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.PGM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.PGM.txt index b708e269f..f318ac7f2 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.PGM.txt @@ -1,6 +1,6 @@ ---- Diagnostics --- -Line 24[8,27] <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). -Line 27[11,22] <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,22:MyRedifines3] +--- Diagnostics --- +Line 24[8,27] <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). +Line 27[11,22] <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,22:MyRedifines3] Line 27[34,39] <30, Error, Semantics> - Semantic error: Illegal REDEFINES: Symbol 'MyVar1' is not referenced OffendingSymbol=[34,39:MyVar1] --- Program --- diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.SYM.txt index 9b22bdf68..557b72072 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/Redefines.SYM.txt @@ -1,6 +1,6 @@ ---- Diagnostics --- -Line 24[8,27] <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). -Line 27[11,22] <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,22:MyRedifines3] +--- Diagnostics --- +Line 24[8,27] <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). +Line 27[11,22] <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,22:MyRedifines3] Line 27[34,39] <30, Error, Semantics> - Semantic error: Illegal REDEFINES: Symbol 'MyVar1' is not referenced OffendingSymbol=[34,39:MyVar1] --- Program --- diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.Mix.txt index c1bb4cf37..b041b1707 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.Mix.txt @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. RedefinesWithOccurs. DATA DIVISION. WORKING-STORAGE SECTION. @@ -10,11 +10,11 @@ 01 Group-A. *A "PICTURE" clause was not found for elementary item "SIMPLE-KO". *"PICTURE X(1)" was assumed. -Line 13[15,23] <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). +Line 13[15,23] <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). 05 simple-KO. *A "PICTURE" clause was not found for elementary item *"SIMPLE-KO-R". "PICTURE X(1)" was assumed. -Line 16[15,25] <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). +Line 16[15,25] <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). 05 simple-KO-R redefines simple-KO. @@ -27,12 +27,12 @@ Line 16[15,25] <27, Error, Syntax> - Syntax error : A group item cannot be empty *A"PICTURE"clause was not found for elementary item"Array-A02-KO". * "PICTURE X(1)"was assumed. -Line 28[15,26] <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). +Line 28[15,26] <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). 05 Array-A02-KO. *A "PICTURE" clause was not found for elementary item *"ARRAY-A02-KO-R". "PICTURE X(1)" was assumed. -Line 32[15,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). +Line 32[15,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). 05 Array-A02-KO-R redefines Array-A02-KO OCCURS 1. @@ -40,12 +40,12 @@ Line 32[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty *A"PICTURE"clause was not found for elementary item"Array-A03-KO". * "PICTURE X(1)"was assumed. -Line 39[15,26] <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). +Line 39[15,26] <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). 05 Array-A03-KO usage is display. *A "PICTURE" clause was not found for elementary item *"ARRAY-A03-KO-R". "PICTURE X(1)" was assumed. -Line 43[15,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). +Line 43[15,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). 05 Array-A03-KO-R redefines Array-A03-KO OCCURS 1 usage is display. @@ -54,13 +54,13 @@ Line 43[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty *with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A04-KO". "PICTURE X(1)" was assumed. -Line 51[15,26] <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). +Line 51[15,26] <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). 05 Array-A04-KO usage is display-1. *The "PICTURE" clause for item "ARRAY-A04-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A04-KO-R". "PICTURE X(1)" was assumed. -Line 56[15,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). +Line 56[15,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). 05 Array-A04-KO-R redefines Array-A04-KO OCCURS 1 usage is display-1. @@ -73,13 +73,13 @@ Line 56[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A06-KO". * "PICTURE X(1)"was assumed. -Line 68[15,26] <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). +Line 68[15,26] <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). 05 Array-A06-KO usage is national. *The "PICTURE" clause for item "ARRAY-A06-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A06-KO-R". "PICTURE X(1)" was assumed. -Line 73[15,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). +Line 73[15,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). 05 Array-A06-KO-R redefines Array-A06-KO OCCURS 1 usage is national. @@ -99,13 +99,13 @@ Line 73[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A08-KO". * "PICTURE X(1)"was assumed. -Line 92[15,26] <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). +Line 92[15,26] <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). 05 Array-A08-KO binary. *The "PICTURE" clause for item "ARRAY-A08-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A08-KO-R". "PICTURE X(1)" was assumed. -Line 97[15,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). +Line 97[15,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). 05 Array-A08-KO-R redefines Array-A08-KO OCCURS 1 binary. @@ -115,13 +115,13 @@ Line 97[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A09-KO". * "PICTURE X(1)"was assumed. -Line 106[15,26] <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). +Line 106[15,26] <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). 05 Array-A09-KO packed-decimal. *The "PICTURE" clause for item "ARRAY-A09-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A09-KO-R". "PICTURE X(1)" was assumed. -Line 111[15,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). +Line 111[15,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). 05 Array-A09-KO-R redefines Array-A09-KO OCCURS 1 packed-decimal. @@ -130,13 +130,13 @@ Line 111[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A10-KO". * "PICTURE X(1)"was assumed. -Line 119[15,26] <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). +Line 119[15,26] <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). 05 Array-A10-KO comp. *The "PICTURE" clause for item "ARRAY-A10-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A10-KO-R". "PICTURE X(1)" was assumed. -Line 124[15,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). +Line 124[15,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). 05 Array-A10-KO-R redefines Array-A10-KO OCCURS 1 comp. @@ -153,13 +153,13 @@ Line 124[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A13-KO". * "PICTURE X(1)"was assumed. -Line 140[15,26] <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). +Line 140[15,26] <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). 05 Array-A13-KO comp-3. *The "PICTURE" clause for item "ARRAY-A13-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A13-KO-R". "PICTURE X(1)" was assumed. -Line 145[15,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). +Line 145[15,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). 05 Array-A13-KO-R redefines Array-A13-KO OCCURS 1 comp-3. @@ -169,13 +169,13 @@ Line 145[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A14-KO". * "PICTURE X(1)"was assumed. -Line 154[15,26] <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). +Line 154[15,26] <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). 05 Array-A14-KO comp-4. *The "PICTURE" clause for item "ARRAY-A14-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A14-KO-R". "PICTURE X(1)" was assumed. -Line 159[15,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). +Line 159[15,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). 05 Array-A14-KO-R redefines Array-A14-KO OCCURS 1 comp-4. @@ -185,14 +185,14 @@ Line 159[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A15-KO". * "PICTURE X(1)"was assumed. -Line 168[15,26] <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). +Line 168[15,26] <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). 05 Array-A15-KO comp-5. *The "PICTURE" clause for item "ARRAY-A15-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A15-KO-R". "PICTURE X(1)" was assumed. -Line 174[15,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). +Line 174[15,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). 05 Array-A15-KO-R redefines Array-A15-KO OCCURS 1 comp-5. @@ -220,12 +220,12 @@ Line 174[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt 01 Group-B01 usage is display. *A"PICTURE"clause was not found for elementary item"Array-B01-KO". * "PICTURE X(1)"was assumed. -Line 201[15,26] <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). +Line 201[15,26] <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). 05 Array-B01-KO. *A "PICTURE" clause was not found for elementary item *"ARRAY-B01-KO-R". "PICTURE X(1)" was assumed. -Line 205[15,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). +Line 205[15,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). 05 Array-B01-KO-R redefines Array-B01-KO OCCURS 1. @@ -236,14 +236,14 @@ Line 205[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B02-KO". * "PICTURE X(1)"was assumed. -Line 215[15,26] <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). +Line 215[15,26] <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). 05 Array-B02-KO. *The "PICTURE" clause for item "ARRAY-B02-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B02-KO-R". "PICTURE X(1)" was assumed. -Line 221[15,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). +Line 221[15,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). 05 Array-B02-KO-R redefines Array-B02-KO OCCURS 1. @@ -258,14 +258,14 @@ Line 221[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B04-KO". * "PICTURE X(1)"was assumed. -Line 235[15,26] <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). +Line 235[15,26] <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). 05 Array-B04-KO. *The "PICTURE" clause for item "ARRAY-B04-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B04-KO-R". "PICTURE X(1)" was assumed. -Line 241[15,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). +Line 241[15,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). 05 Array-B04-KO-R redefines Array-B04-KO occurs 1. @@ -286,14 +286,14 @@ Line 241[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B06-KO". * "PICTURE X(1)"was assumed. -Line 261[16,27] <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). +Line 261[16,27] <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). 05 Array-B06-KO. *The "PICTURE" clause for item "ARRAY-B06-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B06-KO-R". "PICTURE X(1)" was assumed. -Line 267[16,29] <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). +Line 267[16,29] <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). 05 Array-B06-KO-R redefines Array-B06-KO OCCURS 1. @@ -304,14 +304,14 @@ Line 267[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B07-KO". * "PICTURE X(1)"was assumed. -Line 277[16,27] <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). +Line 277[16,27] <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). 05 Array-B07-KO. *The "PICTURE" clause for item "ARRAY-B07-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B07-KO-R". "PICTURE X(1)" was assumed. -Line 283[16,29] <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). +Line 283[16,29] <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). 05 Array-B07-KO-R redefines Array-B07-KO OCCURS 1. @@ -322,14 +322,14 @@ Line 283[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B08-KO". * "PICTURE X(1)"was assumed. -Line 293[16,27] <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). +Line 293[16,27] <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). 05 Array-B08-KO. *The "PICTURE" clause for item "ARRAY-B08-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B08-KO-R". "PICTURE X(1)" was assumed. -Line 299[16,29] <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). +Line 299[16,29] <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). 05 Array-B08-KO-R redefines Array-B08-KO OCCURS 1. @@ -349,13 +349,13 @@ Line 299[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B11-KO". * "PICTURE X(1)"was assumed. -Line 318[16,27] <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). +Line 318[16,27] <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). 05 Array-B11-KO. *The "PICTURE" clause for item "ARRAY-B11-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B11-KO-R". "PICTURE X(1)" was assumed. -Line 323[16,29] <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). +Line 323[16,29] <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). 05 Array-B11-KO-R redefines Array-B11-KO OCCURS 1. @@ -365,13 +365,13 @@ Line 323[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B12-KO". * "PICTURE X(1)"was assumed. -Line 332[16,27] <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). +Line 332[16,27] <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). 05 Array-B12-KO. *The "PICTURE" clause for item "ARRAY-B12-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B12-KO-R". "PICTURE X(1)" was assumed. -Line 337[16,29] <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). +Line 337[16,29] <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). 05 Array-B12-KO-R redefines Array-B12-KO OCCURS 1. @@ -382,13 +382,13 @@ Line 337[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B13-KO". * "PICTURE X(1)"was assumed. -Line 347[16,27] <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). +Line 347[16,27] <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). 05 Array-B13-KO. *The "PICTURE" clause for item "ARRAY-B13-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-B13-KO-R". "PICTURE X(1)" was assumed. -Line 352[16,29] <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). +Line 352[16,29] <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). 05 Array-B13-KO-R redefines Array-B13-KO OCCURS 1. @@ -421,7 +421,7 @@ Line 352[16,29] <27, Error, Syntax> - Syntax error : A group item cannot be empt *A"PICTURE"clause was not found for elementary item"Array-C01-KO". * "PICTURE X(1)"was assumed. 01 Group-C01 group-usage is national. -Line 384[15,26] <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). +Line 384[15,26] <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). 05 Array-C01-KO. @@ -429,7 +429,7 @@ Line 384[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-C01-KO-R". "PICTURE X(1)" was assumed. -Line 391[15,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). +Line 391[15,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). 05 Array-C01-KO-R redefines Array-C01-KO OCCURS 1. @@ -455,13 +455,13 @@ Line 391[15,28] <27, Error, Syntax> - Syntax error : A group item cannot be empt * "PICTURE X(1)"was assumed. 01 Group-D2 comp-5. 05 Group-D21. -Line 416[20,30] <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). +Line 416[20,30] <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). 10 Array-D2-KO. *The "PICTURE" clause for item "ARRAY-D2-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-D2-KO-R". "PICTURE X(1)" was assumed. -Line 421[20,32] <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). +Line 421[20,32] <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). 10 Array-D2-KO-R redefines Array-D2-KO OCCURS 1. @@ -482,14 +482,14 @@ Line 421[20,32] <27, Error, Syntax> - Syntax error : A group item cannot be empt *the specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"ARRAY-D4-KO". * "PICTURE X(1)"was assumed. -Line 441[24,34] <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). +Line 441[24,34] <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). 15 Array-D4-KO. *The "PICTURE" clause for item "ARRAY-D4-KO-R" was not compatible * with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-D4-KO-R". "PICTURE X(1)" was assumed. -Line 447[24,36] <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). +Line 447[24,36] <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). 15 Array-D4-KO-R redefines Array-D4-KO OCCURS 1. @@ -511,10 +511,10 @@ Line 447[24,36] <27, Error, Syntax> - Syntax error : A group item cannot be empt *definition and its parent. *As a result 'Array-D5-KO' inherits the usage from its parent *and 'national' is not considered as valid. -Line 468[24,34] <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). +Line 468[24,34] <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). 15 Array-D5-KO. *Idem -Line 470[24,36] <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). +Line 470[24,36] <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). 15 Array-D5-KO-R redefines Array-D5-KO OCCURS 1. @@ -527,13 +527,13 @@ Line 470[24,36] <27, Error, Syntax> - Syntax error : A group item cannot be empt 05 Array-E1-OK. *A "PICTURE" clause was not found for elementary item "VARCHILD". *"PICTURE X(1)" was assumed. -Line 482[20,27] <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). +Line 482[20,27] <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). 10 VarChild. 05 Array-E1-OK-R redefines Array-E1-OK OCCURS 1. *A "PICTURE" clause was not found for elementary item "VARCHILD-R" *"PICTURE X(1)" was assumed. -Line 487[20,29] <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). +Line 487[20,29] <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). 10 VarChild-R. END PROGRAM RedefinesWithOccurs. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.SYM.txt index 8abb95545..b7377cae2 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/RedefinesWithOccurs.SYM.txt @@ -1,54 +1,54 @@ ---- Diagnostics --- -Line 13[15,23] <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=[15,23:simple-KO] -Line 16[15,25] <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=[15,25:simple-KO-R] -Line 28[15,26] <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=[15,26:Array-A02-KO] -Line 32[15,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=[15,28:Array-A02-KO-R] -Line 39[15,26] <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=[15,26:Array-A03-KO] -Line 43[15,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=[15,28:Array-A03-KO-R] -Line 51[15,26] <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=[15,26:Array-A04-KO] -Line 56[15,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=[15,28:Array-A04-KO-R] -Line 68[15,26] <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=[15,26:Array-A06-KO] -Line 73[15,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=[15,28:Array-A06-KO-R] -Line 92[15,26] <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=[15,26:Array-A08-KO] -Line 97[15,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=[15,28:Array-A08-KO-R] -Line 106[15,26] <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=[15,26:Array-A09-KO] -Line 111[15,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=[15,28:Array-A09-KO-R] -Line 119[15,26] <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=[15,26:Array-A10-KO] -Line 124[15,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=[15,28:Array-A10-KO-R] -Line 140[15,26] <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=[15,26:Array-A13-KO] -Line 145[15,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=[15,28:Array-A13-KO-R] -Line 154[15,26] <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=[15,26:Array-A14-KO] -Line 159[15,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=[15,28:Array-A14-KO-R] -Line 168[15,26] <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=[15,26:Array-A15-KO] -Line 174[15,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=[15,28:Array-A15-KO-R] -Line 201[15,26] <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=[15,26:Array-B01-KO] -Line 205[15,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=[15,28:Array-B01-KO-R] -Line 215[15,26] <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=[15,26:Array-B02-KO] -Line 221[15,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=[15,28:Array-B02-KO-R] -Line 235[15,26] <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=[15,26:Array-B04-KO] -Line 241[15,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=[15,28:Array-B04-KO-R] -Line 261[16,27] <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=[16,27:Array-B06-KO] -Line 267[16,29] <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=[16,29:Array-B06-KO-R] -Line 277[16,27] <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=[16,27:Array-B07-KO] -Line 283[16,29] <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=[16,29:Array-B07-KO-R] -Line 293[16,27] <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=[16,27:Array-B08-KO] -Line 299[16,29] <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=[16,29:Array-B08-KO-R] -Line 318[16,27] <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=[16,27:Array-B11-KO] -Line 323[16,29] <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=[16,29:Array-B11-KO-R] -Line 332[16,27] <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=[16,27:Array-B12-KO] -Line 337[16,29] <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=[16,29:Array-B12-KO-R] -Line 347[16,27] <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=[16,27:Array-B13-KO] -Line 352[16,29] <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=[16,29:Array-B13-KO-R] -Line 384[15,26] <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=[15,26:Array-C01-KO] -Line 391[15,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=[15,28:Array-C01-KO-R] -Line 416[20,30] <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,30:Array-D2-KO] -Line 421[20,32] <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,32:Array-D2-KO-R] -Line 441[24,34] <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=[24,34:Array-D4-KO] -Line 447[24,36] <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=[24,36:Array-D4-KO-R] -Line 468[24,34] <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=[24,34:Array-D5-KO] -Line 470[24,36] <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=[24,36:Array-D5-KO-R] -Line 482[20,27] <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,27:VarChild] -Line 487[20,29] <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,29:VarChild-R] +--- Diagnostics --- +Line 13[15,23] <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=[15,23:simple-KO] +Line 16[15,25] <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=[15,25:simple-KO-R] +Line 28[15,26] <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=[15,26:Array-A02-KO] +Line 32[15,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=[15,28:Array-A02-KO-R] +Line 39[15,26] <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=[15,26:Array-A03-KO] +Line 43[15,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=[15,28:Array-A03-KO-R] +Line 51[15,26] <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=[15,26:Array-A04-KO] +Line 56[15,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=[15,28:Array-A04-KO-R] +Line 68[15,26] <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=[15,26:Array-A06-KO] +Line 73[15,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=[15,28:Array-A06-KO-R] +Line 92[15,26] <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=[15,26:Array-A08-KO] +Line 97[15,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=[15,28:Array-A08-KO-R] +Line 106[15,26] <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=[15,26:Array-A09-KO] +Line 111[15,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=[15,28:Array-A09-KO-R] +Line 119[15,26] <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=[15,26:Array-A10-KO] +Line 124[15,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=[15,28:Array-A10-KO-R] +Line 140[15,26] <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=[15,26:Array-A13-KO] +Line 145[15,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=[15,28:Array-A13-KO-R] +Line 154[15,26] <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=[15,26:Array-A14-KO] +Line 159[15,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=[15,28:Array-A14-KO-R] +Line 168[15,26] <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=[15,26:Array-A15-KO] +Line 174[15,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=[15,28:Array-A15-KO-R] +Line 201[15,26] <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=[15,26:Array-B01-KO] +Line 205[15,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=[15,28:Array-B01-KO-R] +Line 215[15,26] <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=[15,26:Array-B02-KO] +Line 221[15,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=[15,28:Array-B02-KO-R] +Line 235[15,26] <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=[15,26:Array-B04-KO] +Line 241[15,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=[15,28:Array-B04-KO-R] +Line 261[16,27] <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=[16,27:Array-B06-KO] +Line 267[16,29] <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=[16,29:Array-B06-KO-R] +Line 277[16,27] <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=[16,27:Array-B07-KO] +Line 283[16,29] <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=[16,29:Array-B07-KO-R] +Line 293[16,27] <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=[16,27:Array-B08-KO] +Line 299[16,29] <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=[16,29:Array-B08-KO-R] +Line 318[16,27] <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=[16,27:Array-B11-KO] +Line 323[16,29] <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=[16,29:Array-B11-KO-R] +Line 332[16,27] <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=[16,27:Array-B12-KO] +Line 337[16,29] <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=[16,29:Array-B12-KO-R] +Line 347[16,27] <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=[16,27:Array-B13-KO] +Line 352[16,29] <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=[16,29:Array-B13-KO-R] +Line 384[15,26] <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=[15,26:Array-C01-KO] +Line 391[15,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=[15,28:Array-C01-KO-R] +Line 416[20,30] <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,30:Array-D2-KO] +Line 421[20,32] <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,32:Array-D2-KO-R] +Line 441[24,34] <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=[24,34:Array-D4-KO] +Line 447[24,36] <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=[24,36:Array-D4-KO-R] +Line 468[24,34] <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=[24,34:Array-D5-KO] +Line 470[24,36] <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=[24,36:Array-D5-KO-R] +Line 482[20,27] <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,27:VarChild] +Line 487[20,29] <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,29:VarChild-R] --- Program --- RedefinesWithOccurs (.NET Type=ProgramSymbol, Kind=Program) diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.Mix.txt b/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.Mix.txt index 683cd33cd..e3a77ca9d 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.Mix.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.Mix.txt @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. RenamesAndUsage. DATA DIVISION. WORKING-STORAGE SECTION. @@ -10,7 +10,7 @@ 01 Group-A. *A "PICTURE" clause was not found for elementary item "SIMPLE-KO". *"PICTURE X(1)" was assumed. -Line 13[15,23] <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). +Line 13[15,23] <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). 05 simple-KO. 66 simple-KO-R renames simple-KO. @@ -25,7 +25,7 @@ Line 13[15,23] <27, Error, Syntax> - Syntax error : A group item cannot be empty 01 Group-A2. *A"PICTURE"clause was not found for elementary item"Array-A02-KO". * "PICTURE X(1)"was assumed. -Line 27[15,26] <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). +Line 27[15,26] <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). 05 Array-A02-KO. 66 Array-A02-OK-R renames Array-A02-KO . @@ -34,7 +34,7 @@ Line 27[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty *A"PICTURE"clause was not found for elementary item"Array-A03-KO". * "PICTURE X(1)"was assumed. -Line 35[15,26] <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). +Line 35[15,26] <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). 05 Array-A03-KO usage is display. *"usage" was invalid. Scanning was resumed at the next @@ -50,7 +50,7 @@ Line 35[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty *with the specified "USAGE". "USAGE DISPLAY" was assumed. *A "PICTURE" clause was not found for elementary item *"ARRAY-A04-KO". "PICTURE X(1)" was assumed. -Line 50[15,26] <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). +Line 50[15,26] <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). 05 Array-A04-KO usage is display-1. *"usage" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -75,7 +75,7 @@ Line 50[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A06-KO". * "PICTURE X(1)"was assumed. -Line 74[15,26] <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). +Line 74[15,26] <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). 05 Array-A06-KO usage is national. *"usage" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -101,7 +101,7 @@ Line 74[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empty * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A08-KO". * "PICTURE X(1)"was assumed. -Line 99[15,26] <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). +Line 99[15,26] <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). 05 Array-A08-KO binary. *"binary" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -117,7 +117,7 @@ Line 104[53,58] <27, Error, Syntax> - Syntax error : extraneous input 'binary' e * specified"USAGE". "USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A09-KO". * "PICTURE X(1)"was assumed. -Line 113[15,26] <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). +Line 113[15,26] <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). 05 Array-A09-KO packed-decimal. *"packed-decimal" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -132,7 +132,7 @@ Line 118[51,64] <27, Error, Syntax> - Syntax error : extraneous input 'packed-de * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A10-KO". * "PICTURE X(1)"was assumed. -Line 126[15,26] <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). +Line 126[15,26] <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). 05 Array-A10-KO comp. *"comp" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -167,7 +167,7 @@ Line 149[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-2' e * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A13-KO". * "PICTURE X(1)"was assumed. -Line 157[15,26] <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). +Line 157[15,26] <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). 05 Array-A13-KO comp-3. *"comp-3" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -183,7 +183,7 @@ Line 162[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-3' e * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A14-KO". * "PICTURE X(1)"was assumed. -Line 171[15,26] <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). +Line 171[15,26] <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). 05 Array-A14-KO comp-4. *"comp-4" was invalid. Scanning was resumed at the next * area"A"item, level-number, or the start of the next clause. @@ -199,7 +199,7 @@ Line 176[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-4' e * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-A15-KO". * "PICTURE X(1)"was assumed. -Line 185[15,26] <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). +Line 185[15,26] <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). 05 Array-A15-KO comp-5. *"comp-5" was invalid. Scanning was resumed at the next @@ -256,7 +256,7 @@ Line 225[51,66] <27, Error, Syntax> - Syntax error : extraneous input 'function- 01 Group-B01 usage is display. *A"PICTURE"clause was not found for elementary item"Array-B01-KO". * "PICTURE X(1)"was assumed. -Line 236[15,26] <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). +Line 236[15,26] <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). 05 Array-B01-KO. 66 Array-B01-OK-R renames Array-B01-KO . @@ -268,7 +268,7 @@ Line 236[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B02-KO". * "PICTURE X(1)"was assumed. -Line 247[15,26] <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). +Line 247[15,26] <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). 05 Array-B02-KO. 66 Array-B02-OK-R renames Array-B02-KO . @@ -284,7 +284,7 @@ Line 247[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B04-KO". * "PICTURE X(1)"was assumed. -Line 262[15,26] <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). +Line 262[15,26] <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). 05 Array-B04-KO. 66 Array-B04-OK-R renames Array-B04-KO . @@ -306,7 +306,7 @@ Line 262[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B06-KO". * "PICTURE X(1)"was assumed. -Line 283[16,27] <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). +Line 283[16,27] <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). 05 Array-B06-KO. 66 Array-B06-OK-R renames Array-B06-KO . @@ -318,7 +318,7 @@ Line 283[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B07-KO". * "PICTURE X(1)"was assumed. -Line 294[16,27] <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). +Line 294[16,27] <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). 05 Array-B07-KO. 66 Array-B07-OK-R renames Array-B07-KO . @@ -331,7 +331,7 @@ Line 294[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B08-KO". * "PICTURE X(1)"was assumed. -Line 306[16,27] <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). +Line 306[16,27] <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). 05 Array-B08-KO. 66 Array-B08-OK-R renames Array-B08-KO . @@ -353,7 +353,7 @@ Line 306[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B11-KO". * "PICTURE X(1)"was assumed. -Line 327[16,27] <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). +Line 327[16,27] <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). 05 Array-B11-KO. 66 Array-B11-OK-R renames Array-B11-KO . @@ -364,7 +364,7 @@ Line 327[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B12-KO". * "PICTURE X(1)"was assumed. -Line 337[16,27] <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). +Line 337[16,27] <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). 05 Array-B12-KO. 66 Array-B12-OK-R renames Array-B12-KO . @@ -376,7 +376,7 @@ Line 337[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt * specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"Array-B13-KO". * "PICTURE X(1)"was assumed. -Line 348[16,27] <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). +Line 348[16,27] <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). 05 Array-B13-KO. 66 Array-B13-OK-R renames Array-B13-KO . @@ -410,7 +410,7 @@ Line 348[16,27] <27, Error, Syntax> - Syntax error : A group item cannot be empt *A"PICTURE"clause was not found for elementary item"Array-C01-KO". * "PICTURE X(1)"was assumed. 01 Group-C01 group-usage is national. -Line 381[15,26] <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). +Line 381[15,26] <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). 05 Array-C01-KO. 66 Array-C01-OK-R renames Array-C01-KO . @@ -439,7 +439,7 @@ Line 381[15,26] <27, Error, Syntax> - Syntax error : A group item cannot be empt *the specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"ARRAY-D2-KO". * "PICTURE X(1)"was assumed. -Line 409[20,30] <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). +Line 409[20,30] <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). 10 Array-D2-KO. 66 Array-D2-OK-R renames Array-D2-KO . @@ -461,7 +461,7 @@ Line 409[20,30] <27, Error, Syntax> - Syntax error : A group item cannot be empt *the specified"USAGE"."USAGE DISPLAY"was assumed. *A"PICTURE"clause was not found for elementary item"ARRAY-D4-KO". * "PICTURE X(1)"was assumed. -Line 430[24,34] <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). +Line 430[24,34] <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). 15 Array-D4-KO. 66 Array-D4-OK-R renames Array-D4-KO . @@ -484,7 +484,7 @@ Line 430[24,34] <27, Error, Syntax> - Syntax error : A group item cannot be empt *definition and its parent. *As a result 'Array-D5-KO' inherits the usage from its parent *and 'national' is not considered as valid. -Line 452[24,34] <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). +Line 452[24,34] <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). 15 Array-D5-KO. 66 Array-D5-OK-R renames Array-D5-KO . @@ -498,13 +498,13 @@ Line 452[24,34] <27, Error, Syntax> - Syntax error : A group item cannot be empt 05 Array-E1-OK. *A "PICTURE" clause was not found for elementary item "VARCHILD". *"PICTURE X(1)" was assumed. -Line 465[20,27] <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). +Line 465[20,27] <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). 10 VarChild. 66 Array-E1-OK-R renames Array-E1-OK . *A "PICTURE" clause was not found for elementary item "VARCHILD-R" *"PICTURE X(1)" was assumed. -Line 470[20,29] <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). +Line 470[20,29] <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). 10 VarChild-R. END PROGRAM RenamesAndUsage. diff --git a/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.SYM.txt b/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.SYM.txt index e5cbbee47..6a7c5cca2 100644 --- a/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/Cobol85/RenamesAndUsage.SYM.txt @@ -1,42 +1,42 @@ ---- Diagnostics --- -Line 13[15,23] <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=[15,23:simple-KO] -Line 27[15,26] <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=[15,26:Array-A02-KO] -Line 35[15,26] <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=[15,26:Array-A03-KO] -Line 50[15,26] <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=[15,26:Array-A04-KO] -Line 74[15,26] <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=[15,26:Array-A06-KO] -Line 99[15,26] <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=[15,26:Array-A08-KO] +--- Diagnostics --- +Line 13[15,23] <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=[15,23:simple-KO] +Line 27[15,26] <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=[15,26:Array-A02-KO] +Line 35[15,26] <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=[15,26:Array-A03-KO] +Line 50[15,26] <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=[15,26:Array-A04-KO] +Line 74[15,26] <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=[15,26:Array-A06-KO] +Line 99[15,26] <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=[15,26:Array-A08-KO] Line 104[53,58] <27, Error, Syntax> - Syntax error : extraneous input 'binary' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[53,58:binary] -Line 113[15,26] <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=[15,26:Array-A09-KO] +Line 113[15,26] <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=[15,26:Array-A09-KO] Line 118[51,64] <27, Error, Syntax> - Syntax error : extraneous input 'packed-decimal' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[51,64:packed-decimal] -Line 126[15,26] <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=[15,26:Array-A10-KO] +Line 126[15,26] <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=[15,26:Array-A10-KO] Line 131[52,55] <27, Error, Syntax> - Syntax error : extraneous input 'comp' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,55:comp] Line 140[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-1' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,57:comp-1] Line 149[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-2' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,57:comp-2] -Line 157[15,26] <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=[15,26:Array-A13-KO] +Line 157[15,26] <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=[15,26:Array-A13-KO] Line 162[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-3' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,57:comp-3] -Line 171[15,26] <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=[15,26:Array-A14-KO] +Line 171[15,26] <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=[15,26:Array-A14-KO] Line 176[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-4' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,57:comp-4] -Line 185[15,26] <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=[15,26:Array-A15-KO] +Line 185[15,26] <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=[15,26:Array-A15-KO] Line 191[52,57] <27, Error, Syntax> - Syntax error : extraneous input 'comp-5' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,57:comp-5] Line 200[52,58] <27, Error, Syntax> - Syntax error : extraneous input 'pointer' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,58:pointer] Line 208[52,61] <27, Error, Syntax> - Syntax error : extraneous input 'pointer-32' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[52,61:pointer-32] Line 217[12,28] <27, Error, Syntax> - Syntax error : extraneous input 'procedure-pointer' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[12,28:procedure-pointer] Line 225[51,66] <27, Error, Syntax> - Syntax error : extraneous input 'function-pointer' expecting '.' RuleStack=codeElement>dataDescriptionEntry>dataRenamesEntry, OffendingSymbol=[51,66:function-pointer] -Line 236[15,26] <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=[15,26:Array-B01-KO] -Line 247[15,26] <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=[15,26:Array-B02-KO] -Line 262[15,26] <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=[15,26:Array-B04-KO] -Line 283[16,27] <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=[16,27:Array-B06-KO] -Line 294[16,27] <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=[16,27:Array-B07-KO] -Line 306[16,27] <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=[16,27:Array-B08-KO] -Line 327[16,27] <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=[16,27:Array-B11-KO] -Line 337[16,27] <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=[16,27:Array-B12-KO] -Line 348[16,27] <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=[16,27:Array-B13-KO] -Line 381[15,26] <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=[15,26:Array-C01-KO] -Line 409[20,30] <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,30:Array-D2-KO] -Line 430[24,34] <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=[24,34:Array-D4-KO] -Line 452[24,34] <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=[24,34:Array-D5-KO] -Line 465[20,27] <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,27:VarChild] -Line 470[20,29] <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,29:VarChild-R] +Line 236[15,26] <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=[15,26:Array-B01-KO] +Line 247[15,26] <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=[15,26:Array-B02-KO] +Line 262[15,26] <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=[15,26:Array-B04-KO] +Line 283[16,27] <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=[16,27:Array-B06-KO] +Line 294[16,27] <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=[16,27:Array-B07-KO] +Line 306[16,27] <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=[16,27:Array-B08-KO] +Line 327[16,27] <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=[16,27:Array-B11-KO] +Line 337[16,27] <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=[16,27:Array-B12-KO] +Line 348[16,27] <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=[16,27:Array-B13-KO] +Line 381[15,26] <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=[15,26:Array-C01-KO] +Line 409[20,30] <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,30:Array-D2-KO] +Line 430[24,34] <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=[24,34:Array-D4-KO] +Line 452[24,34] <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=[24,34:Array-D5-KO] +Line 465[20,27] <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,27:VarChild] +Line 470[20,29] <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,29:VarChild-R] --- Program --- RenamesAndUsage (.NET Type=ProgramSymbol, Kind=Program) diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/FunctionsDeclaration.PGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/FunctionsDeclaration.PGM.txt index 032506617..31066b4a1 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/FunctionsDeclaration.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/FunctionsDeclaration.PGM.txt @@ -1,4 +1,4 @@ ---- Diagnostics --- +--- Diagnostics --- Line 57[8,22] <27, Error, Syntax> - Syntax error : x is already a parameter. Line 58[8,22] <27, Error, Syntax> - Syntax error : y is already a parameter. Line 59[11,11] <27, Error, Syntax> - Syntax error : Group item a cannot have a "PICTURE" OffendingSymbol=[11,11:a] @@ -26,19 +26,19 @@ Line 93[21,21] <27, Error, Syntax> - Syntax error : Parameter with name 'y' decl Line 103[11,11] <27, Error, Syntax> - Syntax error : Illegal GLOBAL clause in function data item. OffendingSymbol=[11,11:g] Line 114[18,19] <27, Error, Syntax> - Syntax error : no viable alternative at input '88' RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase>parameterDescription>functionDataParameter>tcfuncParameterUsageClause, OffendingSymbol=[18,19:88]{88} Line 114[35,39] <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=[35,39:VALUE] -Line 114[22,33] <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=[22,33:valid-gender] +Line 114[22,33] <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=[22,33:valid-gender] Line 115[29,33] <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=[29,33:VALUE] -Line 115[22,27] <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=[22,27:female] +Line 115[22,27] <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=[22,27:female] Line 116[29,33] <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=[29,33:VALUE] -Line 116[22,25] <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=[22,25:male] +Line 116[22,25] <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=[22,25:male] Line 124[20,21] <27, Error, Syntax> - Syntax error : extraneous input '88' expecting user defined word RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase, OffendingSymbol=[20,21:88]{88} Line 124[36,40] <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=[36,40:VALUE] -Line 124[23,34] <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=[23,34:valid-gender] +Line 124[23,34] <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=[23,34:valid-gender] Line 126[20,21] <27, Error, Syntax> - Syntax error : no viable alternative at input '88' RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase>parameterDescription>functionDataParameter>tcfuncParameterUsageClause, OffendingSymbol=[20,21:88]{88} Line 126[31,35] <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=[31,35:VALUE] -Line 126[24,29] <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=[24,29:female] +Line 126[24,29] <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=[24,29:female] Line 127[31,35] <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=[31,35:VALUE] -Line 127[24,27] <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=[24,27:male] +Line 127[24,27] <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=[24,27:male] --- Program --- PROGRAM: FunDeclare common:False initial:False recursive:False diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/IndexTesting.PGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/IndexTesting.PGM.txt index d6da6cb26..27eca7a46 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/IndexTesting.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/IndexTesting.PGM.txt @@ -1,11 +1,11 @@ ---- Diagnostics --- -Line 8[15,23] <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=[15,23:MyGIdxTab] -Line 14[15,23] <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=[15,23:MyGIdxTab] -Line 21[15,18] <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=[15,18:Tab3] -Line 22[8,20] <27, Error, Syntax> - Error in copy 'YCONVEA' at line 3 : 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,24:MyTab] in COPY YCONVEA -Line 25[15,18] <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=[15,18:Dup1] +--- Diagnostics --- +Line 8[15,23] <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=[15,23:MyGIdxTab] +Line 14[15,23] <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=[15,23:MyGIdxTab] +Line 21[15,18] <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=[15,18:Tab3] +Line 22[8,20] <27, Error, Syntax> - Error in copy 'YCONVEA' at line 3 : 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,24:MyTab] in COPY YCONVEA +Line 25[15,18] <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=[15,18:Dup1] Line 25[12,70] <37, Warning, General> - Warning: An index named 'MyIdxsdfsdfzezerzerzerzerzerz' is already defined. -Line 26[15,18] <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=[15,18:Dup2] +Line 26[15,18] <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=[15,18:Dup2] Line 26[12,70] <37, Warning, General> - Warning: An index named 'MyIdxsdfsdfzezerzerzerzerzerz' is already defined. Line 67[16,18] <27, Error, Syntax> - Syntax error : Index can not be use with OF or IN qualifiers Account1.Holders.Idx OffendingSymbol=[16,18:Idx] Line 70[16,21] <30, Error, Semantics> - Semantic error: Ambiguous reference to symbol BadIdx diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/ProcedureCall.PGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/ProcedureCall.PGM.txt index 29096b6c8..e2f9f5fc9 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/ProcedureCall.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/ProcedureCall.PGM.txt @@ -1,7 +1,7 @@ ---- Diagnostics --- +--- Diagnostics --- Line 15[29,39] <27, Error, Syntax> - Syntax error : Missing '(' or ')' in PICTURE string OffendingSymbol=[29,39:X(00ABC100)] Line 27[37,39] <27, Error, Syntax> - Syntax error : mismatched input 'PIC' expecting {user defined word, CURRENCY, DATE} RuleStack=codeElement>tcCodeElement>functionDeclarationHeader>inputPhrase>parameterDescription>functionDataParameter>cobol2002TypeClause, OffendingSymbol=[37,39:PIC] -Line 27[21,26] <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=[21,26:myDate] +Line 27[21,26] <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=[21,26:myDate] Line 36[21,26] <27, Error, Syntax> - Syntax error : Parameter with name 'format' declared multiple times OffendingSymbol=[21,26:format] Line 37[21,26] <27, Error, Syntax> - Syntax error : Parameter with name 'format' declared multiple times OffendingSymbol=[21,26:format] Line 38[21,24] <27, Error, Syntax> - Syntax error : Parameter with name 'var1' declared multiple times OffendingSymbol=[21,24:var1] diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM-EI.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM-EI.txt index 00dae2371..a9e2d8491 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM-EI.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM-EI.txt @@ -1,4 +1,4 @@ ---- Diagnostics --- +--- Diagnostics --- Line 10[8,40] <30, Error, Semantics> - Semantic error: TYPE 'bool' has already been declared Line 13[8,50] <30, Error, Semantics> - Semantic error: TYPE 'DuplicatedType' has already been declared Line 14[8,50] <30, Error, Semantics> - Semantic error: TYPE 'DuplicatedType' has already been declared @@ -7,7 +7,7 @@ Line 18[11,31] <27, Error, Syntax> - Syntax error : SyncVar is part of a declara Line 50[20,26] <27, Error, Syntax> - Syntax error : TYPEDEF clause can only be specified for level 01 entries RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[20,26:TYPEDEF] Line 56[36,42] <27, Error, Syntax> - Syntax error : extraneous input 'TYPEDEF' expecting {separator, statement starting keyword, keyword} RuleStack=codeElement>dataDescriptionEntry, OffendingSymbol=[36,42:TYPEDEF] Line 57[8,48] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced -Line 63[11,23] <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,23:NoDescription] +Line 63[11,23] <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,23:NoDescription] Line 69[24,32] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[24,32:REDEFINES] Line 71[8,44] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 75[24,32] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[24,32:REDEFINES] diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM.txt index 912ee5e92..e9a55fb17 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/Typedef-strict.PGM.txt @@ -7,7 +7,7 @@ Line 18[11,31] <27, Error, Syntax> - Syntax error : SyncVar is part of a declara Line 50[20,26] <27, Error, Syntax> - Syntax error : TYPEDEF clause can only be specified for level 01 entries RuleStack=codeElement>dataDescriptionEntry>cobol2002TypedefClause, OffendingSymbol=[20,26:TYPEDEF] Line 56[36,42] <27, Error, Syntax> - Syntax error : extraneous input 'TYPEDEF' expecting {separator, statement starting keyword, keyword} RuleStack=codeElement>dataDescriptionEntry, OffendingSymbol=[36,42:TYPEDEF] Line 57[8,48] <30, Error, Semantics> - Semantic error: TYPE 'ClausesOrderKO' is not referenced -Line 63[11,23] <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,23:NoDescription] +Line 63[11,23] <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,23:NoDescription] Line 69[24,32] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[24,32:REDEFINES] Line 71[8,44] <30, Error, Semantics> - Semantic error: TYPE 'NoRedefines1' is not referenced Line 75[24,32] <27, Error, Syntax> - Syntax error : REDEFINES clause cannot be specified with TYPEDEF clause RuleStack=codeElement>dataDescriptionEntry>redefinesClause, OffendingSymbol=[24,32:REDEFINES] diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.PGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.PGM.txt index e8b9b3e26..8e955cdda 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.PGM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.PGM.txt @@ -1,14 +1,15 @@ --- Diagnostics --- -Line 5[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar1] -Line 6[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar2] -Line 7[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar3] -Line 8[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar4] -Line 9[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar5] -Line 10[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar6] -Line 11[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar7] -Line 17[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var23] -Line 18[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var24] -Line 19[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var25] +Line 5[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar1] +Line 6[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar2] +Line 7[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar3] +Line 8[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar4] +Line 9[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar5] +Line 10[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar6] +Line 11[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar7] +Line 12[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar8] +Line 19[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var23] +Line 20[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var24] +Line 21[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var25] --- Program --- PROGRAM: DVZF0OSM common:False initial:False recursive:False @@ -22,6 +23,7 @@ PROGRAM: DVZF0OSM common:False initial:False recursive:False MyVar5:Numeric MyVar6:Numeric MyVar7:Numeric + MyVar8:Numeric -- FUNCTIONS --- KONotCorrectFormat in: var21:Numeric diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.SYM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.SYM.txt index a34b443f1..b59044d77 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.SYM.txt +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.SYM.txt @@ -1,14 +1,15 @@ ---- Diagnostics --- -Line 5[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar1] -Line 6[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar2] -Line 7[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar3] -Line 8[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar4] -Line 9[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar5] -Line 10[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar6] -Line 11[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar7] -Line 17[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var23] -Line 18[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var24] -Line 19[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var25] +--- Diagnostics --- +Line 5[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar1] +Line 6[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar2] +Line 7[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar3] +Line 8[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar4] +Line 9[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar5] +Line 10[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar6] +Line 11[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar7] +Line 12[11,16] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[11,16:MyVar8] +Line 19[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var23] +Line 20[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var24] +Line 21[21,25] <27, Error, Syntax> - Syntax error : Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE OffendingSymbol=[21,25:var25] --- Program --- DVZF0OSM (.NET Type=ProgramSymbol, Kind=Program) @@ -78,6 +79,15 @@ WorkingStorageData: Picture: 9(4) Level: 1 IsFiller: False + MyVar8 (.NET Type=VariableSymbol, Kind=Variable) + Flags: [WORKING_STORAGE] + Owner: DVZF0OSM + Type: + (.NET Type=PictureType, Tag=Picture) + Usage: ObjectReference + Picture: 9(4) + Level: 1 + IsFiller: False Functions: KONotCorrectFormat (.NET Type=FunctionSymbol, Kind=Function) Flags: [Private] diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.rdz.tcbl b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.rdz.tcbl index 16d91097d..43021fe11 100644 --- a/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.rdz.tcbl +++ b/TypeCobol.Test/Parser/Programs/TypeCobol/UsageStandalone.rdz.tcbl @@ -9,6 +9,8 @@ 01 MyVar5 PIC 9(4) POINTER-32. 01 MyVar6 PIC 9(8) PROCEDURE-POINTER. 01 MyVar7 PIC 9(4) FUNCTION-POINTER. + 01 MyVar8 PIC 9(4) OBJECT REFERENCE. + PROCEDURE DIVISION. declare procedure KONotCorrectFormat private diff --git a/TypeCobol/Compiler/Diagnostics/CrossChecker.cs b/TypeCobol/Compiler/Diagnostics/CrossChecker.cs index 59f7a4b5c..bd1e5a138 100644 --- a/TypeCobol/Compiler/Diagnostics/CrossChecker.cs +++ b/TypeCobol/Compiler/Diagnostics/CrossChecker.cs @@ -908,7 +908,7 @@ public override bool Visit(DataDefinition dataDefinition) && commonDataDataDefinitionCodeElement.UserDefinedDataType == null && (!dataDefinition.Usage.HasValue || !IsUsageStandalone(dataDefinition.Usage.Value))) { - DiagnosticUtils.AddError(dataDefinition, "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).", commonDataDataDefinitionCodeElement); + DiagnosticUtils.AddError(dataDefinition, "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).", commonDataDataDefinitionCodeElement); //Detect copy included at wrong level (because there is already the same level in the copy) CheckCopyAtWrongLevel(dataDefinition, commonDataDataDefinitionCodeElement); @@ -919,7 +919,7 @@ public override bool Visit(DataDefinition dataDefinition) if (usage != null && IsUsageStandalone(usage.Value) && commonDataDataDefinitionCodeElement.Picture != null) { DiagnosticUtils.AddError(dataDefinition, - "Variable with usage COMP-1, COMP-2, INDEX, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE", commonDataDataDefinitionCodeElement); + "Variable with usage COMP-1, COMP-2, INDEX, OBJECT REFERENCE, POINTER, POINTER-32, PROCEDURE-POINTER and FUNCTION-POINTER cannot have a PICTURE", commonDataDataDefinitionCodeElement); } // Check VALUE clause presence and validity @@ -946,6 +946,7 @@ static bool IsUsageStandalone(DataUsage usage) case DataUsage.Index: case DataUsage.FloatingPoint: case DataUsage.LongFloatingPoint: + case DataUsage.ObjectReference: case DataUsage.Pointer: case DataUsage.Pointer32: case DataUsage.ProcedurePointer: