Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@
},
{
"category": 1,
"message": "{\"jsonrpc\":\"2.0\",\"id\":\"1\",\"result\":{\"csvResult\":{\"root\":\"TCOZEFR0\",\"header\":\"LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length\",\"rows\":[\"12;0;1;FILLER;GROUP;1;81;81\",\"12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81\",\"13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81\",\"14;3;10;Var1 (1 1);PIC X;1;1;1\",\"15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8\",\"16;4;15;Var2 (1 1 1);PIC X;2;2;1\",\"17;0;1;FILLER;GROUP;1;4;4\",\"18;1;5;GRP-REDEFINED;GROUP;1;3;3\",\"19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3\",\"20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3\",\"21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3\",\"22;1;5;GROUP-WITH-88-1;GROUP;4;4;1\",\"23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1\",\"28;0;1;Var1-in-ls;PIC XX;1;2;2\",\"29;0;1;num1;PIC 9(03);1;3;3\",\"30;0;1;num2;comp-1;1;4;4\",\"31;0;1;num3;comp-2;1;8;8\",\"32;0;1;num4;PIC 9(03) comp-3;1;2;2\",\"33;0;1;num5;PIC 9(03) comp-4;1;2;2\",\"34;0;1;num6;PIC 9(03) comp-5;1;2;2\",\"35;0;1;num7;PIC 9(03) packed-decimal;1;2;2\",\"36;0;1;num8;PIC 9(03) binary;1;2;2\",\"37;0;1;num9;PIC 9(03) comp;1;2;2\"],\"separator\":\";\"}}}"
"message": "{\"jsonrpc\":\"2.0\",\"id\":\"1\",\"result\":{\"csvResult\":{\"root\":\"TCOZEFR0\",\"expandedRowsCount\":181,\"header\":\"LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs\",\"rows\":[\"12;0;1;FILLER;GROUP;1;81;81;0\",\"12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81;1\",\"13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81;9\",\"14;3;10;Var1 (1 1);PIC X;1;1;1;0\",\"15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8;8\",\"16;4;15;Var2 (1 1 1);PIC X;2;2;1;0\",\"17;0;1;FILLER;GROUP;1;4;4;0\",\"18;1;5;GRP-REDEFINED;GROUP;1;3;3;0\",\"19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3;0\",\"20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3;0\",\"21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3;0\",\"22;1;5;GROUP-WITH-88-1;GROUP;4;4;1;0\",\"23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1;0\",\"28;0;1;Var1-in-ls;PIC XX;1;2;2;0\",\"29;0;1;num1;PIC 9(03);1;3;3;0\",\"30;0;1;num2;comp-1;1;4;4;0\",\"31;0;1;num3;comp-2;1;8;8;0\",\"32;0;1;num4;PIC 9(03) comp-3;1;2;2;0\",\"33;0;1;num5;PIC 9(03) comp-4;1;2;2;0\",\"34;0;1;num6;PIC 9(03) comp-5;1;2;2;0\",\"35;0;1;num7;PIC 9(03) packed-decimal;1;2;2;0\",\"36;0;1;num8;PIC 9(03) binary;1;2;2;0\",\"37;0;1;num9;PIC 9(03) comp;1;2;2;0\"],\"separator\":\";\"}}}"
},
{
"category": 0,
Expand All @@ -51,7 +51,7 @@
},
{
"category": 1,
"message": "{\"jsonrpc\":\"2.0\",\"id\":\"2\",\"result\":{\"csvResult\":{\"root\":\"TCOZEFR0\",\"header\":\"LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length\",\"rows\":[\"12;0;1;FILLER;GROUP;1;81;81\",\"12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81\",\"13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81\",\"14;3;10;Var1 (1 1);PIC X;1;1;1\",\"15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8\",\"16;4;15;Var2 (1 1 1);PIC X;2;2;1\",\"17;0;1;FILLER;GROUP;1;4;4\",\"18;1;5;GRP-REDEFINED;GROUP;1;3;3\",\"19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3\",\"21;1;5;GROUP-WITH-88-1;GROUP;4;4;1\",\"22;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1\",\"27;0;1;Var1-in-ls;PIC XX;1;2;2\",\"28;0;1;num1;PIC 9(03);1;3;3\",\"29;0;1;num2;comp-1;1;4;4\",\"30;0;1;num3;comp-2;1;8;8\",\"31;0;1;num4;PIC 9(03) comp-3;1;2;2\",\"32;0;1;num5;PIC 9(03) comp-4;1;2;2\",\"33;0;1;num6;PIC 9(03) comp-5;1;2;2\",\"34;0;1;num7;PIC 9(03) packed-decimal;1;2;2\",\"35;0;1;num8;PIC 9(03) binary;1;2;2\",\"36;0;1;num9;PIC 9(03) comp;1;2;2\"],\"separator\":\";\"}}}"
"message": "{\"jsonrpc\":\"2.0\",\"id\":\"2\",\"result\":{\"csvResult\":{\"root\":\"TCOZEFR0\",\"expandedRowsCount\":179,\"header\":\"LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs\",\"rows\":[\"12;0;1;FILLER;GROUP;1;81;81;0\",\"12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81;1\",\"13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81;9\",\"14;3;10;Var1 (1 1);PIC X;1;1;1;0\",\"15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8;8\",\"16;4;15;Var2 (1 1 1);PIC X;2;2;1;0\",\"17;0;1;FILLER;GROUP;1;4;4;0\",\"18;1;5;GRP-REDEFINED;GROUP;1;3;3;0\",\"19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3;0\",\"21;1;5;GROUP-WITH-88-1;GROUP;4;4;1;0\",\"22;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1;0\",\"27;0;1;Var1-in-ls;PIC XX;1;2;2;0\",\"28;0;1;num1;PIC 9(03);1;3;3;0\",\"29;0;1;num2;comp-1;1;4;4;0\",\"30;0;1;num3;comp-2;1;8;8;0\",\"31;0;1;num4;PIC 9(03) comp-3;1;2;2;0\",\"32;0;1;num5;PIC 9(03) comp-4;1;2;2;0\",\"33;0;1;num6;PIC 9(03) comp-5;1;2;2;0\",\"34;0;1;num7;PIC 9(03) packed-decimal;1;2;2;0\",\"35;0;1;num8;PIC 9(03) binary;1;2;2;0\",\"36;0;1;num9;PIC 9(03) comp;1;2;2;0\"],\"separator\":\";\"}}}"
}
],
"didClose": "{\"jsonrpc\":\"2.0\",\"method\":\"textDocument/didClose\",\"params\":{\"textDocument\":{\"uri\":\"file:/C:/Users/GDLRUSER/workspaces/runtime-CobolEditorEI/RemoteSystemsTempFiles/FttRemoteTempFiles/nitcpip.e-i.net/ZZ/ZZ.DY530.ZGEN.SOURCE.TST2.PERM/TCOZEFR0.cbl\"}}}",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
{"line":1,"character":12}
---------------------------------------------------------------------------------
copy
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
1;0;1;TCOQLF;GROUP;1;6;6
2;1;5;TCOQLF-Var1;PIC X;1;1;1
3;1;5;TCOQLF-Var2;PIC X;2;2;1
4;1;5;TCOQLF-Var3;PIC X;3;3;1
5;1;5;TCOQLF-Var4;PIC X;4;4;1
6;1;5;TCOQLF-Var5;PIC X;5;5;1
7;1;5;TCOQLF-Var6;PIC X;6;6;1
7
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
1;0;1;TCOQLF;GROUP;1;6;6;0
2;1;5;TCOQLF-Var1;PIC X;1;1;1;0
3;1;5;TCOQLF-Var2;PIC X;2;2;1;0
4;1;5;TCOQLF-Var3;PIC X;3;3;1;0
5;1;5;TCOQLF-Var4;PIC X;4;4;1;0
6;1;5;TCOQLF-Var5;PIC X;5;5;1;0
7;1;5;TCOQLF-Var6;PIC X;6;6;1;0
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
{"line":0,"character":0}
---------------------------------------------------------------------------------
copy
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
1;0;1;TCOQLF;GROUP;1;6;6
2;1;5;TCOQLF-Var1;PIC X;1;1;1
3;1;5;TCOQLF-Var2;PIC X;2;2;1
4;1;5;TCOQLF-Var3;PIC X;3;3;1
5;1;5;TCOQLF-Var4;PIC X;4;4;1
6;1;5;TCOQLF-Var5;PIC X;5;5;1
7;1;5;TCOQLF-Var6;PIC X;6;6;1
7
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
1;0;1;TCOQLF;GROUP;1;6;6;0
2;1;5;TCOQLF-Var1;PIC X;1;1;1;0
3;1;5;TCOQLF-Var2;PIC X;2;2;1;0
4;1;5;TCOQLF-Var3;PIC X;3;3;1;0
5;1;5;TCOQLF-Var4;PIC X;4;4;1;0
6;1;5;TCOQLF-Var5;PIC X;5;5;1;0
7;1;5;TCOQLF-Var6;PIC X;6;6;1;0
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
{"line":2,"character":8}
---------------------------------------------------------------------------------
copyWithout01
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
2;1;5;Var1;PIC X;1;1;1
3;1;5;Var2;PIC X;2;2;1
4;1;5;Var3;PIC X;3;3;1
3
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
2;1;5;Var1;PIC X;1;1;1;0
3;1;5;Var2;PIC X;2;2;1;0
4;1;5;Var3;PIC X;3;3;1;0
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
{"line":0,"character":0}
---------------------------------------------------------------------------------
copyWithout01
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
2;1;5;Var1;PIC X;1;1;1
3;1;5;Var2;PIC X;2;2;1
4;1;5;Var3;PIC X;3;3;1
3
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
2;1;5;Var1;PIC X;1;1;1;0
3;1;5;Var2;PIC X;2;2;1;0
4;1;5;Var3;PIC X;3;3;1;0
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{"line":0,"character":0}
---------------------------------------------------------------------------------
empty
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
0
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
{"line":10,"character":12}
---------------------------------------------------------------------------------
MAINPGM
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
6;0;1;main-group;GROUP;1;1;1
7;1;5;main-var;PIC X;1;1;1
2
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
6;0;1;main-group;GROUP;1;1;1;0
7;1;5;main-var;PIC X;1;1;1;0
Original file line number Diff line number Diff line change
@@ -0,0 +1,65 @@
{"line":10,"character":12}
---------------------------------------------------------------------------------
TCOZEFR3
395593
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
12;0;1;included-copy;GROUP;1;5;5;0
12;1;2;root-included;GROUP;1;5;5;0
12;2;5;grp-included;GROUP;1;5;5;0
12;3;10;var-included-1;PIC X;1;1;1;0
12;3;10;FILLER;PIC X;2;2;1;0
12;3;10;var-included-occ (1);PIC X OCCURS 3;3;5;3;3
12;2;5;grp-included-redef;GROUP REDEFINES grp-included;1;5;5;0
12;3;10;var-included-2;PIC X(5);1;5;5;0
13;0;1;grp-root;GROUP;1;263503;263503;0
14;1;5;grp-simple;GROUP;1;2;2;0
15;2;10;var-simple;PIC X;1;1;1;0
16;2;10;var-simple-redef;PIC X REDEFINES var-simple;1;1;1;0
17;2;10;grp-target;GROUP;2;2;1;0
18;3;15;var1;PIC X;2;2;1;0
19;2;10;grp-redef;GROUP REDEFINES grp-target;2;2;1;0
20;3;15;var2;PIC X;2;2;1;0
21;1;5;grp-dim;GROUP;3;1312;1310;0
22;2;10;grp-one-dim (1);GROUP OCCURS 10;3;1312;1310;10
23;3;15;var-one-dim (1);PIC X;3;3;1;0
24;3;15;var-one-dim-redef (1);PIC X REDEFINES var-one-dim;3;3;1;0
25;3;15;grp-two-dim (1 1);GROUP OCCURS 10;4;113;110;10
26;4;20;var-two-dim (1 1);PIC X;4;4;1;0
27;4;20;grp-three-dim (1 1 1);GROUP OCCURS 10;5;14;10;10
28;5;25;var-three-dim (1 1 1);PIC X;5;5;1;0
29;3;15;var-inline-two-dim (1 1);PIC X(2) OCCURS 10;114;133;20;10
30;1;5;grp-picture;GROUP;1313;1328;16;0
31;2;10;var-x;PIC xx;1313;1314;2;0
32;2;10;var-9;PIC 9(2);1315;1316;2;0
33;2;10;var-national;PIC N(2)N;1317;1322;6;0
34;2;10;var-national-edited;PIC BN;1323;1326;4;0
35;2;10;FILLER;PIC X;1327;1327;1;0
36;2;10;FILLER;PIC 9;1328;1328;1;0
37;1;5;grp-picture-not-displayable;GROUP;1329;1334;6;0
38;2;10;FILLER;PIC N;1329;1330;2;0
39;2;10;FILLER;PIC BN;1331;1334;4;0
40;1;5;grp-usage;GROUP;1335;1344;10;0
41;2;10;var-none;PIC X;1335;1335;1;0
42;2;10;var-display;PIC X DISPLAY;1336;1336;1;0
43;2;10;var-comp;PIC 9 COMP;1337;1338;2;0
44;2;10;var-comp5;PIC 9 COMP-5;1339;1340;2;0
45;2;10;var-pointer;POINTER;1341;1344;4;0
46;1;5;grp-usage-not-displayable;GROUP;1345;1360;16;0
47;2;10;var-index;INDEX;1345;1348;4;0
48;2;10;var-index-redef;INDEX REDEFINES var-index;1345;1348;4;0
49;2;10;var-function-pointer;FUNCTION-POINTER;1349;1352;4;0
50;2;10;var-procedure-pointer;PROCEDURE-POINTER;1353;1360;8;0
51;1;5;var-occurs (1);PIC X OCCURS 65535;1361;66895;65535;65535
52;1;5;var-occurs-not-displayable (1);PIC X OCCURS 65536;66896;132431;65536;65536
53;1;5;grp-occurs-not-displayable (1);GROUP OCCURS 65536;132432;263503;131072;65536
54;2;10;var1-not-displayable (1);PIC X;132432;132432;1;0
55;2;10;grp1-not-displayable (1);GROUP;132433;132433;1;0
56;3;15;var2-not-displayable (1);PIC X;132433;132433;1;0
58;0;1;FILLER;PIC X;1;1;1;0
59;0;1;FILLER;GROUP;1;4;4;0
60;1;5;FILLER;PIC X;1;1;1;0
61;1;5;FILLER;GROUP;2;4;3;0
62;2;10;FILLER;PIC X;2;2;1;0
63;2;10;FILLER;GROUP;3;4;2;0
64;3;15;FILLER;PIC X;3;3;1;0
65;3;15;var-displayable;PIC X;4;4;1;0
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
{"line":20,"character":12}
---------------------------------------------------------------------------------
Nested0
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
20;0;1;Nested0-group;GROUP;1;1;1
21;1;5;Nested0-var;PIC X;1;1;1
2
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
20;0;1;Nested0-group;GROUP;1;1;1;0
21;1;5;Nested0-var;PIC X;1;1;1;0
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
{"line":3,"character":10}
---------------------------------------------------------------------------------
TCOCCURS
499
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
5;0;1;WK-MAIN;GROUP;1;335;335;0
7;1;5;T-SIZE;PIC S9(04) COMP;1;2;2;0
8;1;5;GRP;GROUP;3;3;1;0
9;2;10;GRP-VAR;PIC X;3;3;1;0
11;1;5;T1 (1);GROUP OCCURS 1;4;4;1;1
12;2;10;T1-VAR (1);PIC X;4;4;1;0
14;1;5;T2 (1);GROUP OCCURS 2;5;236;232;2
15;2;10;T2-NESTED1 (1 1);GROUP OCCURS 3;5;109;105;3
16;3;15;T2-NESTED1-NESTED (1 1 1);GROUP OCCURS 5;5;39;35;5
17;4;20;T2-NESTED1-NESTED-VAR (1 1 1 1);PIC X OCCURS 7;5;11;7;7
18;2;10;T2-NESTED2 (1 1);GROUP OCCURS 11;110;120;11;11
19;3;15;T2-NESTED2-VAR (1 1);PIC X;110;110;1;0
21;1;5;T-MIN (1);GROUP OCCURS 99;237;335;99;99
22;2;10;T-MIN-VAR (1);PIC X;237;237;1;0
25;0;1;LK-MAIN;GROUP;1;1;1;0
27;1;5;T-UNBOUNDED (1);GROUP OCCURS 1;1;1;1;1
29;2;10;T-UNBOUNDED-VAR (1);PIC X;1;1;1;0
Original file line number Diff line number Diff line change
@@ -1,28 +1,29 @@
{"line":10,"character":12}
---------------------------------------------------------------------------------
TCOZEFR0
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
12;0;1;FILLER;GROUP;1;81;81
12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81
13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81
14;3;10;Var1 (1 1);PIC X;1;1;1
15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8
16;4;15;Var2 (1 1 1);PIC X;2;2;1
17;0;1;FILLER;GROUP;1;4;4
18;1;5;GRP-REDEFINED;GROUP;1;3;3
19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3
20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3
21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3
22;1;5;GROUP-WITH-88-1;GROUP;4;4;1
23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1
28;0;1;Var1-in-ls;PIC XX;1;2;2
29;0;1;num1;PIC 9(03);1;3;3
30;0;1;num2;comp-1;1;4;4
31;0;1;num3;comp-2;1;8;8
32;0;1;num4;PIC 9(03) comp-3;1;2;2
33;0;1;num5;PIC 9(03) comp-4;1;2;2
34;0;1;num6;PIC 9(03) comp-5;1;2;2
35;0;1;num7;PIC 9(03) packed-decimal;1;2;2
36;0;1;num8;PIC 9(03) binary;1;2;2
37;0;1;num9;PIC 9(03) comp;1;2;2
40;0;1;Var2-in-lk;PIC X(2);1;2;2
182
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
12;0;1;FILLER;GROUP;1;81;81;0
12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81;1
13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81;9
14;3;10;Var1 (1 1);PIC X;1;1;1;0
15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8;8
16;4;15;Var2 (1 1 1);PIC X;2;2;1;0
17;0;1;FILLER;GROUP;1;4;4;0
18;1;5;GRP-REDEFINED;GROUP;1;3;3;0
19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3;0
20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3;0
21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3;0
22;1;5;GROUP-WITH-88-1;GROUP;4;4;1;0
23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1;0
28;0;1;Var1-in-ls;PIC XX;1;2;2;0
29;0;1;num1;PIC 9(03);1;3;3;0
30;0;1;num2;comp-1;1;4;4;0
31;0;1;num3;comp-2;1;8;8;0
32;0;1;num4;PIC 9(03) comp-3;1;2;2;0
33;0;1;num5;PIC 9(03) comp-4;1;2;2;0
34;0;1;num6;PIC 9(03) comp-5;1;2;2;0
35;0;1;num7;PIC 9(03) packed-decimal;1;2;2;0
36;0;1;num8;PIC 9(03) binary;1;2;2;0
37;0;1;num9;PIC 9(03) comp;1;2;2;0
40;0;1;Var2-in-lk;PIC X(2);1;2;2;0
Original file line number Diff line number Diff line change
@@ -1,28 +1,29 @@
{"line":0,"character":0}
---------------------------------------------------------------------------------
TCOZEFR0
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
12;0;1;FILLER;GROUP;1;81;81
12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81
13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81
14;3;10;Var1 (1 1);PIC X;1;1;1
15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8
16;4;15;Var2 (1 1 1);PIC X;2;2;1
17;0;1;FILLER;GROUP;1;4;4
18;1;5;GRP-REDEFINED;GROUP;1;3;3
19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3
20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3
21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3
22;1;5;GROUP-WITH-88-1;GROUP;4;4;1
23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1
28;0;1;Var1-in-ls;PIC XX;1;2;2
29;0;1;num1;PIC 9(03);1;3;3
30;0;1;num2;comp-1;1;4;4
31;0;1;num3;comp-2;1;8;8
32;0;1;num4;PIC 9(03) comp-3;1;2;2
33;0;1;num5;PIC 9(03) comp-4;1;2;2
34;0;1;num6;PIC 9(03) comp-5;1;2;2
35;0;1;num7;PIC 9(03) packed-decimal;1;2;2
36;0;1;num8;PIC 9(03) binary;1;2;2
37;0;1;num9;PIC 9(03) comp;1;2;2
40;0;1;Var2-in-lk;PIC X(2);1;2;2
182
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
12;0;1;FILLER;GROUP;1;81;81;0
12;1;2;FILLER (1);GROUP OCCURS 1;1;81;81;1
13;2;5;Array1 (1 1);GROUP OCCURS 9;1;81;81;9
14;3;10;Var1 (1 1);PIC X;1;1;1;0
15;3;10;Array2 (1 1 1);GROUP OCCURS 8;2;9;8;8
16;4;15;Var2 (1 1 1);PIC X;2;2;1;0
17;0;1;FILLER;GROUP;1;4;4;0
18;1;5;GRP-REDEFINED;GROUP;1;3;3;0
19;2;10;VAR-1;PIC 9(05) COMP-3;1;3;3;0
20;1;5;FILLER;GROUP REDEFINES GRP-REDEFINED;1;3;3;0
21;2;10;VAR-RED1;PIC 9(05) COMP-3;1;3;3;0
22;1;5;GROUP-WITH-88-1;GROUP;4;4;1;0
23;2;10;GROUP-WITH-88-2;PIC 9(01);4;4;1;0
28;0;1;Var1-in-ls;PIC XX;1;2;2;0
29;0;1;num1;PIC 9(03);1;3;3;0
30;0;1;num2;comp-1;1;4;4;0
31;0;1;num3;comp-2;1;8;8;0
32;0;1;num4;PIC 9(03) comp-3;1;2;2;0
33;0;1;num5;PIC 9(03) comp-4;1;2;2;0
34;0;1;num6;PIC 9(03) comp-5;1;2;2;0
35;0;1;num7;PIC 9(03) packed-decimal;1;2;2;0
36;0;1;num8;PIC 9(03) binary;1;2;2;0
37;0;1;num9;PIC 9(03) comp;1;2;2;0
40;0;1;Var2-in-lk;PIC X(2);1;2;2;0
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
{"line":33,"character":12}
---------------------------------------------------------------------------------
Stacked1
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length
34;0;1;Stacked1-group;GROUP;1;1;1
35;1;5;Stacked1-var;PIC X;1;1;1
2
LineNumber;NodeLevel;LevelNumber;VariableName;PictureTypeOrUsage;Start;End;Length;MaxOccurs
34;0;1;Stacked1-group;GROUP;1;1;1;0
35;1;5;Stacked1-var;PIC X;1;1;1;0
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TCOCCURS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WK-MAIN.
* No OCCURS
05 T-SIZE PIC S9(04) COMP.
05 GRP.
10 GRP-VAR PIC X.
* OCCURS 1
05 T1 OCCURS 1.
10 T1-VAR PIC X.
* Nested OCCURS
05 T2 OCCURS 2.
10 T2-NESTED1 OCCURS 3.
15 T2-NESTED1-NESTED OCCURS 5.
20 T2-NESTED1-NESTED-VAR PIC X OCCURS 7.
10 T2-NESTED2 OCCURS 11.
15 T2-NESTED2-VAR PIC X.
* Min and Max OCCURS
05 T-MIN OCCURS 1 TO 99 DEPENDING ON T-SIZE.
10 T-MIN-VAR PIC X.

LINKAGE SECTION.
01 LK-MAIN.
* Unbounded OCCURS -> Max OCCURS = 1
05 T-UNBOUNDED OCCURS 1 TO UNBOUNDED
DEPENDING ON T-SIZE.
10 T-UNBOUNDED-VAR PIC X.

END PROGRAM TCOCCURS.
Original file line number Diff line number Diff line change
Expand Up @@ -21,6 +21,7 @@ protected override string GetActualResult(CompilationUnit compilationUnit, Posit
// Build actual result
var actual = new StringBuilder();
actual.AppendLine(processorResult.Root);
actual.AppendLine(processorResult.ExpandedRowsCount.ToString());
actual.AppendLine(processorResult.Header);
foreach (var row in processorResult.Rows)
{
Expand Down Expand Up @@ -65,5 +66,11 @@ protected override string GetActualResult(CompilationUnit compilationUnit, Posit

[TestMethod]
public void NestedPgm() => ExecuteTest("stackedAndNestedPgm");

[TestMethod]
public void MiscPgm() => ExecuteTest("miscPgm");

[TestMethod]
public void OccursPgm() => ExecuteTest("occursPgm");
}
}
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
{
"csvResult": {
"header": "col1;col2;col3",
"rows": [
"name1;9;data1",
"name2;456;data2",
"name2;-8;data3"
],
"separator": ";"
}
"csvResult": {
"expandedRowsCount": 3,
"header": "col1;col2;col3",
"rows": [
"name1;9;data1",
"name2;456;data2",
"name2;-8;data3"
],
"separator": ";"
}
}
Loading
Loading