package tm-grammars

  1. Overview
  2. Docs
package tm-grammars
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file tm_grammar_cobol.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
let lang_id = "cobol"
let json = {json|{
  "displayName": "COBOL",
  "fileTypes": [
    "ccp",
    "scbl",
    "cobol",
    "cbl",
    "cblsrce",
    "cblcpy",
    "lks",
    "pdv",
    "cpy",
    "copybook",
    "cobcopy",
    "fd",
    "sel",
    "scb",
    "scbl",
    "cob",
    "dds",
    "def",
    "src",
    "ss",
    "wks",
    "bib",
    "pco"
  ],
  "name": "cobol",
  "patterns": [
    {
      "match": "^([ *][ *][ *][ *][ *][ *])([Dd]\\s.*)$",
      "name": "token.info-token.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "comment.line.cobol.newpage"
        }
      },
      "match": "^([ *][ *][ *][ *][ *][ *])(/.*)$"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "comment.line.cobol.fixed"
        }
      },
      "match": "^([ *][ *][ *][ *][ *][ *])(\\*.*)$"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "comment.line.cobol.newpage"
        }
      },
      "match": "^([0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s])(/.*)$"
    },
    {
      "match": "^[0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s]$",
      "name": "constant.numeric.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "comment.line.cobol.fixed"
        }
      },
      "match": "^([0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s][0-9\\s])(\\*.*)$"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "comment.line.cobol.fixed"
        }
      },
      "match": "^([- #$%+.0-9@-Za-z\\s][- #$%+.0-9@-Za-z\\s][- #$%+.0-9@-Za-z\\s][- #$%+.0-9@-Za-z\\s][- #$%+.0-9@-Za-z\\s][- #$%+.0-9@-Za-z\\s])(\\*.*)$"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "variable.other.constant"
        }
      },
      "match": "^\\s+(78)\\s+([0-9A-Za-z][-0-9A-Z_a-z]+)"
    },
    {
      "captures": {
        "1": {
          "name": "constant.numeric.cobol"
        },
        "2": {
          "name": "variable.other.constant"
        },
        "3": {
          "name": "keyword.identifers.cobol"
        }
      },
      "match": "^\\s+([0-9]+)\\s+([0-9A-Za-z][-0-9A-Z_a-z]+)\\s+((?i:constant))"
    },
    {
      "captures": {
        "1": {
          "name": "constant.cobol"
        },
        "2": {
          "name": "comment.line.cobol.newpage"
        }
      },
      "match": "^([#$%.0-9@-Za-z\\s][#$%.0-9@-Za-z\\s][#$%.0-9@-Za-z\\s][#$%.0-9@-Za-z\\s][#$%.0-9@-Za-z\\s][#$%.0-9@-Za-z\\s])(/.*)$"
    },
    {
      "match": "^\\*.*$",
      "name": "comment.line.cobol.fixed"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.directive.conditional.cobol"
        },
        "2": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "3": {
          "name": "entity.name.function.cobol"
        },
        "4": {
          "name": "keyword.control.directive.conditional.cobol"
        }
      },
      "match": "((?:^|\\s+)(?i:\\$set)\\s+)((?i:constant)\\s+)([0-9A-Za-z][-0-9A-Za-z]+\\s*)([-0-9A-Za-z]*)"
    },
    {
      "captures": {
        "1": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "2": {
          "name": "storage.modifier.import.cobol"
        },
        "3": {
          "name": "punctuation.begin.bracket.round.cobol"
        },
        "4": {
          "name": "string.quoted.other.cobol"
        },
        "5": {
          "name": "punctuation.end.bracket.round.cobol"
        }
      },
      "match": "((?i:\\$\\s*set\\s+)(ilusing)(\\()(.*)(\\)))"
    },
    {
      "captures": {
        "1": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "2": {
          "name": "storage.modifier.import.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "4": {
          "name": "string.quoted.other.cobol"
        },
        "5": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "match": "((?i:\\$\\s*set\\s+)(ilusing)(\")(.*)(\"))"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.directive.conditional.cobol"
        },
        "2": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "4": {
          "name": "string.quoted.other.cobol"
        },
        "5": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "match": "((?i:\\$set))\\s+(\\w+)\\s*(\")(\\w*)(\")"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.directive.conditional.cobol"
        },
        "2": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "3": {
          "name": "punctuation.begin.bracket.round.cobol"
        },
        "4": {
          "name": "string.quoted.other.cobol"
        },
        "5": {
          "name": "punctuation.end.bracket.round.cobol"
        }
      },
      "match": "((?i:\\$set))\\s+(\\w+)\\s*(\\()(.*)(\\))"
    },
    {
      "captures": {
        "0": {
          "name": "keyword.control.directive.conditional.cobol"
        },
        "1": {
          "name": "invalid.illegal.directive"
        },
        "2": {
          "name": "comment.line.set.cobol"
        }
      },
      "match": "(?:^|\\s+)(?i:\\$\\s*set\\s)((?i:01SHUFFLE|64KPARA|64KSECT|AUXOPT|CHIP|DATALIT|EANIM|EXPANDDATA|FIXING|FLAG-CHIP|MASM|MODEL|OPTSIZE|OPTSPEED|PARAS|PROTMODE|REGPARM|SEGCROSS|SEGSIZE|SIGNCOMPARE|SMALLDD|TABLESEGCROSS|TRICKLECHECK|\\s)+).*$"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.directive.cobol"
        },
        "2": {
          "name": "entity.other.attribute-name.preprocessor.cobol"
        }
      },
      "match": "(\\$(?:(?i:region)|(?i:end-region)))(.*)$"
    },
    {
      "begin": "\\$(?i:doc)(.*)$",
      "end": "\\$(?i:end-doc)(.*)$",
      "name": "invalid.illegal.iscobol"
    },
    {
      "match": ">>\\s*(?i:turn|page|listing|leap-seconds|d)\\s+.*$",
      "name": "invalid.illegal.meta.preprocessor.cobolit"
    },
    {
      "match": "(?i:substitute(?:-case|))\\s+",
      "name": "invalid.illegal.functions.cobolit"
    },
    {
      "captures": {
        "1": {
          "name": "invalid.illegal.keyword.control.directive.conditional.cobol"
        },
        "2": {
          "name": "invalid.illegal.entity.name.function.preprocessor.cobol"
        },
        "3": {
          "name": "invalid.illegal.entity.name.function.preprocessor.cobol"
        }
      },
      "match": "((((>>|\\$)\\s*)(?i:elif))(.*))$"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.directive.conditional.cobol"
        },
        "2": {
          "name": "entity.name.function.preprocessor.cobol"
        },
        "3": {
          "name": "entity.name.function.preprocessor.cobol"
        }
      },
      "match": "((((>>|\\$)\\s*)(?i:if|else|elif|end-if|end-evaluate|end|define|evaluate|when|display|call-convention|set))(.*))$"
    },
    {
      "captures": {
        "1": {
          "name": "comment.line.scantoken.cobol"
        },
        "2": {
          "name": "keyword.cobol"
        },
        "3": {
          "name": "string.cobol"
        }
      },
      "match": "(\\*>)\\s+(@[0-9A-Za-z][-0-9A-Za-z]+)\\s+(.*)$"
    },
    {
      "match": "(\\*>.*)$",
      "name": "comment.line.modern"
    },
    {
      "match": "(>>.*)$",
      "name": "strong comment.line.set.cobol"
    },
    {
      "match": "([NUnu][Xx]|[HXhx])'\\h*'",
      "name": "constant.numeric.integer.hexadecimal.cobol"
    },
    {
      "match": "([NUnu][Xx]|[HXhx])'.*'",
      "name": "invalid.illegal.hexadecimal.cobol"
    },
    {
      "match": "([NUnu][Xx]|[HXhx])\"\\h*\"",
      "name": "constant.numeric.integer.hexadecimal.cobol"
    },
    {
      "match": "([NUnu][Xx]|[HXhx])\".*\"",
      "name": "invalid.illegal.hexadecimal.cobol"
    },
    {
      "match": "[Bb]\"[01]\"",
      "name": "constant.numeric.integer.boolean.cobol"
    },
    {
      "match": "[Bb]'[01]'",
      "name": "constant.numeric.integer.boolean.cobol"
    },
    {
      "match": "[Oo]\"[0-7]*\"",
      "name": "constant.numeric.integer.octal.cobol"
    },
    {
      "match": "[Oo]\".*\"",
      "name": "invalid.illegal.octal.cobol"
    },
    {
      "match": "(#)([0-9A-Za-z][-0-9A-Za-z]+)",
      "name": "meta.symbol.forced.cobol"
    },
    {
      "begin": "((?<![-()0-9A-Z_a-z])(?i:installation|author|source-computer|object-computer|date-written|security|date-compiled)(\\.|$))",
      "beginCaptures": {
        "0": {
          "name": "keyword.identifiers.cobol"
        }
      },
      "end": "(?=((?<![-_])(?i:remarks|author|date-written|source-computer|object-computer|installation|date-compiled|special-names|security|environment\\s+division|data\\s+division|working-storage\\s+section|input-output\\s+section|linkage\\s+section|procedure\\s+division|local-storage\\s+section)|^[ *][ *][ *][ *][ *][ *]\\*.*$|^\\+$))",
      "name": "comment.block.cobol.remark",
      "patterns": [
        {
          "match": "^([ 0-9][ 0-9][ 0-9][ 0-9][ 0-9][ 0-9])",
          "name": "constant.numeric.cobol"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "keyword.start.bracket.cobol"
        },
        "2": {
          "name": "constant.numeric.cobol"
        },
        "3": {
          "name": "keyword.end.bracket.cobol"
        }
      },
      "match": "(?<=([(\\[]))((-\\+)*\\s*[ *-9]+)(?=([])]))",
      "name": "constant.numeric.cobol"
    },
    {
      "include": "#number-complex-constant"
    },
    {
      "include": "#number-simple-constant"
    },
    {
      "match": "(?<![-_])(?i:true|false|nulls??)(?![-0-9A-Z_a-z])",
      "name": "constant.language.cobol"
    },
    {
      "match": "(?<![-_])(?i:zeroes|alphabetic-lower|alphabetic-upper|alphanumeric-edited|alphabetic|alphabet|alphanumeric|zeros?|spaces?|quotes?|low-values?|high-values?)(?=\\s+|[),.])",
      "name": "constant.language.figurative.cobol"
    },
    {
      "begin": "(?i:exec(?:\\s+sqlims|\\s+sql))",
      "contentName": "meta.embedded.block.openesql",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "match": "^(\\s*\\*.*)$",
          "name": "comment.line.sql"
        },
        {
          "match": "(--.*)$",
          "name": "comment.line.sql"
        },
        {
          "match": "(\\*>.*)$",
          "name": "comment.line.modern"
        },
        {
          "match": "(:([-0-9A-Z_a-z])*)",
          "name": "variable.cobol"
        },
        {
          "include": "source.openesql"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+cics)",
      "contentName": "meta.embedded.block.cics",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "match": "(\\()",
          "name": "meta.symbol.cobol"
        },
        {
          "include": "#cics-keywords"
        },
        {
          "include": "#string-double-quoted-constant"
        },
        {
          "include": "#string-quoted-constant"
        },
        {
          "include": "#number-complex-constant"
        },
        {
          "include": "#number-simple-constant"
        },
        {
          "match": "([-0-9A-Z_a-z]*[0-9A-Za-z]|(#?[0-9A-Za-z]+[-0-9A-Z_a-z]*[0-9A-Za-z]))",
          "name": "variable.cobol"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+dli)",
      "contentName": "meta.embedded.block.dli",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "match": "(\\()",
          "name": "meta.symbol.cobol"
        },
        {
          "include": "#dli-keywords"
        },
        {
          "include": "#dli-options"
        },
        {
          "include": "#string-double-quoted-constant"
        },
        {
          "include": "#string-quoted-constant"
        },
        {
          "include": "#number-complex-constant"
        },
        {
          "include": "#number-simple-constant"
        },
        {
          "match": "([-0-9A-Z_a-z]*[0-9A-Za-z]|(#?[0-9A-Za-z]+[-0-9A-Z_a-z]*[0-9A-Za-z]))",
          "name": "variable.cobol"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+sqlims)",
      "contentName": "meta.embedded.block.openesql",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "match": "(\\*>.*)$",
          "name": "comment.line.modern"
        },
        {
          "match": "(:([-A-Za-z])*)",
          "name": "variable.cobol"
        },
        {
          "include": "source.openesql"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+ado)",
      "contentName": "meta.embedded.block.openesql",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "match": "(--.*)$",
          "name": "comment.line.sql"
        },
        {
          "match": "(\\*>.*)$",
          "name": "comment.line.modern"
        },
        {
          "match": "(:([-A-Za-z])*)",
          "name": "variable.cobol"
        },
        {
          "include": "source.openesql"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+html)",
      "contentName": "meta.embedded.block.html",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "include": "text.html.basic"
        }
      ]
    },
    {
      "begin": "(?i:exec\\s+java)",
      "contentName": "meta.embedded.block.java",
      "end": "(?i:end-exec)",
      "name": "keyword.verb.cobol",
      "patterns": [
        {
          "include": "source.java"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "2": {
          "name": "support.function.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "match": "(\")(CBL_.*)(\")"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "2": {
          "name": "support.function.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "match": "(\")(PC_.*)(\")"
    },
    {
      "begin": "\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "(\"|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.double.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "2": {
          "name": "support.function.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "match": "(')(CBL_.*)(')"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.definition.string.begin.cobol"
        },
        "2": {
          "name": "support.function.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "match": "(')(PC_.*)(')"
    },
    {
      "begin": "'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "('|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.single.cobol"
    },
    {
      "begin": "(?<![-\\w])[GZgz]\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "(\"|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.double.cobol"
    },
    {
      "begin": "(?<![-\\w])[GZgz]'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "'",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.single.cobol"
    },
    {
      "begin": "(?<![-\\w])[GNgn]\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "(\"|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.double.cobol"
    },
    {
      "begin": "(?<![-\\w])[GNgn]'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "'",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.single.cobol"
    },
    {
      "begin": "(?<![-\\w])[Uu]\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "(\"|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.utf8.double.cobol"
    },
    {
      "begin": "(?<![-\\w])[Uu]'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "'",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.utf8.single.cobol"
    },
    {
      "match": "(?<![-_])(?i:id\\s+division|identification\\s+division|identification|id|property-id|getter|setter|entry|function-id|end\\s+attribute|attribute|interface-id|indexer-id|factory|ctl|class-control|options|environment\\s+division|environment-name|environment-value|environment|configuration\\s+section|configuration|decimal-point\\s+is|decimal-point|console\\s+is|call-convention|special-names|cursor\\s+is|update|picture\\s+symbol|currency\\s+sign|currency|repository|input-output\\s+section|input-output|file\\s+section|file-control|select|optional|i-o-control|data\\s+division|working-storage\\s+section|working-storage|section|local-storage|linkage\\s+section|linkage|communication|report|screen\\s+section|object-storage|object\\s+section|class-object|fd|rd|cd|sd|printing|procedure\\s+division|procedure|division|references|debugging|end\\s+declaratives|declaratives|end\\s+static|end\\s+factory|end\\s+class-object|based-storage|size|font|national-edited|national)(?![-0-9A-Z_a-z])",
      "name": "keyword.identifiers.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.verb.cobol"
        },
        "2": {
          "name": "entity.name.function.cobol"
        }
      },
      "match": "(?<![-_])((?i:valuetype-id|operator-id|method-id|method|property-id|attribute-id|enum-id|iterator-id|class-id|program-id|operator-id|end\\s+program|end\\s+valuetype|extension))\\.*\\s+([-0-9A-Z_a-z]*)"
    },
    {
      "match": "(?<![-_])(?i:implements|inherits|constraints|constrain)(?=[.\\s])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(?<![-_])(?i:end\\s+enum|end\\s+interface|end\\s+class|end\\s+property|end\\s+method|end\\s+object|end\\s+iterator|end\\s+function|end\\s+operator|end\\s+program|end\\s+indexer|create|reset|instance|delegate|end-delegate|delegate-id|declare|exception-object|as|stop\\s+iterator|stop\\s+run|stop)(?=[),.\\s])",
      "name": "keyword.identifiers.cobol"
    },
    {
      "match": "\\s+(?i:attach\\s+method|attach\\s+del|attach|detach\\s+del|detach\\s+method|detach|method|del)(?=[.\\s]|$)",
      "name": "keyword.identifiers.cobol"
    },
    {
      "match": "\\s+(?i:sync\\s+(?i:on))(?=[.\\s])",
      "name": "keyword.other.sync.cobol"
    },
    {
      "match": "\\s+(?i:try|finally|catch|end-try|throw)(?=[.\\s]|$)",
      "name": "keyword.control.catch-exception.cobol"
    },
    {
      "match": "(?<![-_])(?i:select|use|thru|varying|giving|remainder|tallying|through|until|execute|returning|using|chaining|yielding|\\+\\+include|copy|replace)(?=\\s)",
      "name": "keyword.otherverb.cobol"
    },
    {
      "match": "(?i:dynamic)\\s+(?i:length)(?=[.\\s])",
      "name": "storage.type.dynamiclength.cobol"
    },
    {
      "match": "(?<![-_])(?i:assign|external|prototype|organization|organisation|indexed|column|plus|line\\*s*sequential|sequential|access|dynamic|relative|label|block|contains|standard|records|record\\s+key|record|is|alternate|duplicates|reel|tape|terminal|disk\\sfilename|disk|disc|recording\\smode|mode|random)(?=[.\\s])",
      "name": "keyword.identifers.cobol"
    },
    {
      "match": "(?<![-_])(?i:max|min|integer-of-date|integer-of-day|integer-part|integer|date-to-yyyymmdd|year-to-yyyy|day-to-yyyyddd|exp|exception-file|exception-location|exception-statement|exception-status|e|variance|integer-of-date|rem|pi|factorial|sqrt|log10|fraction-part|mean|exp|log|char|day-of-integer|date-of-integer|exp10|atan|integer-part|tan|sin|cos|midrange|addr|acos|asin|annuity|present-value|integer-of-day|ord-max|ord-min|ord|random|integer-of-date|sum|standard-deviation|median|reverse|abs|upper-case|lower-case|char-national|numval|mod|range|length|locale-date|locale-time-from-seconds|locale-time|seconds-past-midnight|stored-char-length|seconds-from-formatted-time|seconds-past-midnight|trim|length-an|numval-c|current-date|national-of|display-of|when-compiled|integer-of-boolean|combined-datetime|concatenate)(?=[().\\s])",
      "name": "support.function.cobol"
    },
    {
      "captures": {
        "0": {
          "name": "support.function.cics.cobol"
        },
        "1": {
          "name": "punctuation.definition.string.end.cobol"
        },
        "2": {
          "name": "keyword.identifers.cobol"
        },
        "3": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "match": "(?<![-_])(?i:DFH(?:RESP|VALUE))(\\s*\\(\\s*)([A-Za-z]*)(\\s*\\))"
    },
    {
      "match": "(?<![-_])(?i:function)(?=[.\\s])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(?<![-_])(?i:end-accept|end-add|end-sync|end-compute|end-delete|end-display|end-divide|end-set|end-multiply|end-of-page|end-read|end-receive|end-return|end-rewrite|end-search|end-start|end-string|end-subtract|end-unstring|end-write|program|class|interface|enum|interface)(?![-0-9A-Z_a-z])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(?<![-_])(?:by value|by reference|by content|property-value)(?![-0-9A-Z_a-z])",
      "name": "keyword.other.cobol"
    },
    {
      "match": "(?<![-_])(?i:attr-string|automatic|auto-skip|footing|next|group|indicate|source|control|full|required|of|input|output|i-o|extend|file|error|exception|overflow|goto|off|on|proceed|procedures?|through|invalid|data|normal|eop|returning|to|for|giving|into|by|params|remainder|also|numeric|free|depending|converting|replacing|after|before|all|leading|first|recursive|initialized|global|common|initial|resident|reference|content|are\\sstandard|are|renames|like|format\\stime|values|omitted|value|constant|ascending|descending|key|retry|until|varying|with|no|advancing|up|down|uccurs|ignore\\s+lock|lock|length|delimited|count|delimiter|redefines|from\\s+console|from\\s+command-line|from\\s+user\\s+name|from\\s+day\\s+yyyyddd|from\\s+day|from\\s+time|from\\s+day-of-week|from\\s+escape|from\\s+day\\s+yyyyddd|from\\s+date\\s+yyyymmdd|from\\s+date|from|raising|crt\\s+status|status|class|upon\\s+crt|upon|lines|columns|step|linage|auto|line|position|col|reports|code-set|reporting|arithmetic|localize|program|class|interface|in|at\\s+end|page|name)(?![-0-9A-Z_a-z])",
      "name": "keyword.identifers.cobol"
    },
    {
      "captures": {
        "0": {
          "name": "keyword.verb.cobol"
        },
        "1": {
          "name": "storage.type.cobol"
        }
      },
      "match": "(?<![-_])(?i:type|new)\\s+([A-Za-z][-$.0-9A-Z_a-z]*|[A-Za-z])(?=\\.$)"
    },
    {
      "match": "(?<![-_])(?i:string)(?=\\s+value|\\.)",
      "name": "storage.type.cobol"
    },
    {
      "match": "(?<![-_])(?i:bit|byte|binary-char|binary-char-unsigned|binary-short|binary-short-unsigned|binary.long|binary-c-long|binary-long-unsigned|binary-long|binary-double|binary-double-unsigned|float-short|float-extended|float-long|bit|condition-value|characters|character\\s+type|character|comma|crt|decimal|object\\+sreference|object-reference|object|list|dictionary|unsigned)(?=[],.\\[\\s])",
      "name": "storage.type.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.other.verb.cobol"
        },
        "2": {
          "name": "meta.symbol.cobol"
        }
      },
      "match": "(operator-id\\s+[-*+/])",
      "name": "keyword.operator-id.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.accessor.cobol.b3"
        },
        "2": {
          "name": "entity.name.function.b3"
        }
      },
      "match": "(?i:self)(::)([-.0-9A-Z_a-z]*)(?=\\.$)"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.accessor.cobol"
        },
        "2": {
          "name": "entity.name.function.cobol"
        }
      },
      "match": "(::)([-.0-9A-Z_a-z]*)"
    },
    {
      "captures": {
        "0": {
          "name": "keyword.verb.cobol.aa"
        },
        "1": {
          "name": "storage.type.cobol.bb"
        }
      },
      "match": "(?<![-_])(?i:type)\\s+([.0-9A-Za-z]*)"
    },
    {
      "match": "(?<![-_])(?i:if|else|end-if|exit\\s+iterator|exit\\s+program|exit\\s+method|evaluate|end-evaluate|exit\\s+perform|perform|end-perform|when\\s+other|when|continue|call|end-call|chain|end-chain|invoke|end\\s+invoke|end-xml|go\\s+to|go|sort|merge|use|xml\\s+parse|xml|top\\s+run|goback\\s+returning|goback|raise|exit\\s+function|exit\\sparagraph|await)(?![-0-9A-Z_a-z])",
      "name": "keyword.control.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.picture10.cobol"
        },
        "2": {
          "name": "constant.numeric.cobol"
        },
        "3": {
          "name": "storage.type.picture10.cobol"
        },
        "4": {
          "name": "constant.numeric.cobol"
        }
      },
      "match": "(?<![-_])((?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)([Vv][$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)[-+|]"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.picture9.cobol"
        },
        "2": {
          "name": "constant.numeric.cobol"
        },
        "3": {
          "name": "storage.type.picture9.cobol"
        },
        "4": {
          "name": "constant.numeric.cobol"
        }
      },
      "match": "(?<![-_])((?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)([Vv][$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.picture8.cobol"
        },
        "2": {
          "name": "constant.numeric.cobol"
        },
        "3": {
          "name": "storage.type.picture8.cobol"
        }
      },
      "match": "(?<![-_])((?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)([.Vv][$*-\\-/09ABNSUXZabnsuxz]*[().0-9])*"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*\\([0-9]*\\)[.Vv][$*-\\-/09ABNPSUXZabnpsuxz]*",
      "name": "storage.type.picture7.cobol"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*\\([0-9]*\\)[$*-\\-/09ABNPSUXZabnpsuxz]*[.Vv][$*-\\-/09ABNPSUXZabnpsuxz]*",
      "name": "storage.type.picture6.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.picture5.cobol"
        },
        "2": {
          "name": "constant.numeric.cobol"
        }
      },
      "match": "(?<![-_])((?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNPSUXZabnpsuxz]*)\\(([0-9]*)\\)[$*-\\-/09ABNPSUXZabnpsuxz]*"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-09ABNSUXZabnpsuxz]*\\([0-9]*\\)",
      "name": "storage.type.picture4.cobol"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[Ss]?[9ABNSUXZabnsuxz]*[Vv][9AUXZabuxz]*\\([0-9]*\\)",
      "name": "storage.type.picture3.cobol"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[Ss]?[9ABNSUXZabnsuxz]*[Vv][9AUXZabuxz]*",
      "name": "storage.type.picture2.cobol"
    },
    {
      "match": "(?<![-_])(?i:pic(?:ture\\s+is|ture|\\s+is|))\\s+[$*-/9ABNPSUVXZabnpsuvxz]*",
      "name": "storage.type.picture1.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "invalid.illegal.keyword.verb.acu.cobol"
        },
        "2": {
          "name": "invalid.illegal.constant.numeric.integer"
        }
      },
      "match": "((?<![-_])(?i:binary|computational-4|comp-4|computational-5|comp-5))\\(([0-9]*)\\)"
    },
    {
      "match": "(?i:cblt-(?:x1-compx-const|x2-compx-const|x4-compx-const|alphanum-const|x9-compx|x8-compx|x8-comp5|x4-compx|x4-comp5|x2-compx|x2-comp5|x1-compx|x1-comp5|x1|vfile-status|vfile-handle|sx8-comp5|sx4-comp5|sx2-comp5|sx1-comp5|subsys-params|splitjoin-buf|screen-position|rtncode|request-context|reqhand-service-info|reqhand-service-funcs|reqhand-response|reqhand-funcs|prog-info-params|prog-info-arg-info|printer-properties|printer-name|printer-info|printer-default|ppointer|pointer|os-ssize|os-size|os-offset|os-info-params|os-flags|node-name|nls-msg-params|nls-msg-number-pair|nls-msg-ins-struct|nls-msg-buffer|mouse-shape|mouse-rect|mouse-pos|mouse-event|mem-validate-param|idp-exit-service-funcs|idp-exit-info|HWND|HINSTANCE|get-scr-line-draw-buffer|get-scr-graphics-buffer|generic-attr-value|generic-attr-rgb-values|generic-attr-information|file-status|fileexist-buf|exit-params|exit-info-params|cancel-proc-params|bytestream-handle|alphanum))",
      "name": "support.function.cbltypes.cobol"
    },
    {
      "match": "(?<![-_])(?i:computational-1|comp-1|computational-2|comp-2|computational-3|comp-3|computational-4|comp-4|computational-x|comp-x|computational-5|comp-5|computational-6|comp-6|computational-n|comp-n|packed-decimal|index|float|double|signed-short|unsigned-short|signed-int|unsigned-int|signed-long|unsigned-long|comp|computational|group-usage|usage\\sis\\sdisplay|usage\\sis\\sfont|usage\\s+display|binary|mutex-pointer|data-pointer|thread-pointer|sempahore-pointer|event-pointer|program-pointer|procedure-pointer|pointer-32|pointer|window|subwindow|control-type|thread|menu|variant|layout-manager|occurs|typedef|any|times|display\\s+blank\\s+when|blank\\s+when|blank\\s+screen|blank|usage\\sis|is\\spartial|usage|justified|just|right|signed|trailing\\s+separate|sign|seperate|sql)(?=[).\\s])",
      "name": "storage.type.picture.cobol"
    },
    {
      "match": "(?i:byte-length)\\s+[0-9]+",
      "name": "storage.type.length.cobol"
    },
    {
      "match": "(?<![-_])(?i:accept|add|address|allocate|cancel|close|commit|compute|continue|delete|disable|display|bell|divide|eject|enable|enter|evaluate|exhibit|named|exit|free|generate|go\\s+to|initialize\\sonly|initialize|initiate|inspect|merge|end-set|set|end-invoke|invoke\\s+run|invoke|move|corresponding|corr|multiply|otherwise|open|sharing|sort-merge|purge|ready?|kept|receive|release|return|rewrite|rounded|rollback|search|send|sort|collating\\s+sequence|collating|start|service|subtract|suppress|terminate|then|unlock|string|unstring|validate|write|next|statement|sentence)(?![-0-9A-Z_a-z])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(?<![-_])(?i:thread-local)(?![-0-9A-Z_a-z])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(\\s+|^)(?i:foreground-color|background-color|prompt|underline|reverse-video|no-echo|highlight|blink)(?![-0-9A-Z_a-z])",
      "name": "keyword.screens.cobol"
    },
    {
      "match": "(\\s+|^)(?i:bold|high|lowlight|low|background-high|background-low|background-standard)(?![-0-9A-Z_a-z])",
      "name": "invalid.illegal.screens.acu.cobol"
    },
    {
      "match": "(?<![-_])(?i:internal|public|protected|final|private|static|new|abstract|override|readonly|property|async-void|async-value|async)(?=[.\\s])",
      "name": "storage.modifier.cobol"
    },
    {
      "match": "[<=>]|<=|>=|<>|[-*+/]|(?<![-_])(?i:b-and|b-or|b-xor|b-exor|b-not|b-left|b-right|and|or|equals?|greater\\s+than|less\\s+than|greater)(?![-0-9A-Z_a-z])",
      "name": "keyword.operator.cobol"
    },
    {
      "match": "(?i:not\\s+at\\s+end)(?![-0-9A-Z_a-z])",
      "name": "keyword.verb.cobol"
    },
    {
      "match": "(?<![-_])(?i:not)(?![-0-9A-Z_a-z])",
      "name": "keyword.operator.cobol"
    },
    {
      "match": "(?<![-_])(?i:sysout-flush|sysin|stderr|stdout|csp|stdin|sysipt|sysout|sysprint|syslist|syslst|printer|syserr|console|c01|c02|c03|c04|c05|c06|c07|c08|c09|c10|c11|c12|formfeed|switch-0|switch-10|switch-11|switch-12|switch-13|switch-14|switch-15?|switch-2|switch-3|switch-4|switch-5|switch-6|switch-7|switch-8|switch-9|sw0|sw11|sw12|sw13|sw14|sw15?|sw2|sw3|sw4|sw5|sw6|sw7|sw8|sw9|sw10|lc_all|lc_collate|lc_ctype|lc_messages|lc_monetary|lc_numeric|lc_time|ucs-4|utf-8|utf-16)(?![-0-9A-Z_a-z])",
      "name": "support.type.cobol"
    },
    {
      "match": "(?<![-_])(?i:processing.*procedure|xml-information|xml-text|xml-schemal|xml-declaration)(?![-0-9A-Z_a-z])",
      "name": "keyword.xml.cobol"
    },
    {
      "match": "(?<![-_])(?i:json\\s+generate|json|end-json|name\\sof)(?![-0-9A-Z_a-z])",
      "name": "keyword.json.cobol"
    },
    {
      "match": "(?<![-_])(?i:modify|inquire|tab|title|event|center|label-offset|cell|help-id|cells|push-button|radio-button|page-layout-screen|entry-field|list-box|label|default-font|id|no-tab|unsorted|color|height|width|bind|thread|erase|modeless|scroll|system|menu|title-bar|wrap|destroy|resizeable|user-gray|large-font|newline|3-d|data-columns|display-columns|alignment|separation|cursor-frame-width|divider-color|drag-color|heading-color|heading-divider-color|num-rows|record-data|tiled-headings|vpadding|centered-headings|column-headings|self-act|cancel-button|vscroll|report-composer|clsid|primary-interface|active-x-control|default-interface|default-source|auto-minimize|auto-resize|resource|engraved|initial-state|frame|acuactivexcontrol|activex-res|grid|box|message|namespace|class-name|module|constructor|version|strong|culture|method|handle|exception-value|read-only|dividers|graphical|indexed|termination-value|permanent|boxed|visible|centered|record-position|convert)(?=[,.;\\s]|$)",
      "name": "invalid.illegal.acu.cobol"
    },
    {
      "match": "(?<![-_])(?i:actual|auto|automatic|based-storage|complex|connect|contained|core-index|db-access-control-key|db-data-name|db-exception|db-record-name|db-set-name|db-status|dead-lock|endcobol|end-disable|end-enable|end-send|end-transceive|eos|file-limits?|formatted|sort-status|usage-mode)(?=[,.;\\s]|$)",
      "name": "invalid.illegal.netcobol.cobol"
    },
    {
      "match": "(?<![-_])(?i:(?:System|Terminal)-Info)(?![-0-9A-Z_a-z])",
      "name": "support.type.cobol.acu strong"
    },
    {
      "match": "(?<![-_])(?i:alter)(?=[.\\s])",
      "name": "invalid.illegal.cobol"
    },
    {
      "match": "(?<![-_])(?i:apply|areas?|clock-units|code|com-reg|controls|dbcs|destination|detail|display-1|ending|every|insert|kanjikey|last|left|less|limits?|memory|metaclass|modules|more-labels|multiple|native_binary|native|negative|number|numeric-edited|other|padding|password|pf|ph|postive|processing|queue|recording|reload|removal|rerun|reserved??|rewind|segment-limit|segment|separate|sequence|skip1|skip2|skip3|standard-1|standard-2|sub-queue-1|sub-queue-2|sub-queue-3|sum|symbolic|synchronized|sync|table|test|text|than|top|trace|trailing|unit|words|write-only|at|basis|beginning|bottom|cbl|cf|ch|de|positive|egcs|egi|emi|end|reversed|rf|rh|run|same|order|heading|esi)(?![-0-9A-Z_a-z])",
      "name": "keyword.ibmreserved.cobol"
    },
    {
      "match": "(?<![-_])(?i:active-class|aligned|anycase|boolean|cols?|condition|ec|eo|system-default|function-pointer)(?![-0-9A-Z_a-z])",
      "name": "strong keyword.potential.reserved.cobol"
    },
    {
      "match": "(?i:filler)",
      "name": "keyword.filler.cobol"
    },
    {
      "match": "(?<![-_])(?i:address-of|date|day-of-week|day|debug-content|debug-item|debug-line|debug-item|debug-sub-1|debug-sub-2|debug-sub-3|shift-in|shift-out|sort-control|sort-core-size|sort-file-size|sort-message|sort-return|sort-mode-size|sort-return|tally|time|when-compiled|line-counter|page-counter|return-code|linage-counter|debug-line|debug-name|debug-contents|json-code|json-status|xml-code|xml-event|xml-information|xml-namespace-prefix|xml-namespace|xml-nnamespace-repfix|xml-nnamespace|xml-ntext|jnienvptr|igy-javaiop-call-exception)(?![-0-9A-Z_a-z])",
      "name": "variable.language"
    },
    {
      "match": "(?<![-_])(?i:shortint1|shortint2|shortint3|shortint4|shortint5|shortint6|shortint7|longint1|longint2|longint3|longint4|longint5|longint6|bigint1|bigint2|blob-locator|clob-locator|dbclob-locator|dbclob-file|blob-file|clob-file|clob|dbclob|blob|varbinary|long-varbinary|time-record|timestamp-record|timestamp-offset-record|timestamp-offset|timestamp|rowid|xml|long-varchar)(?=[().\\s])",
      "name": "storage.type.sql.picture.cobol"
    },
    {
      "match": "(?<![-_])(?i:self)",
      "name": "keyword.other.self.cobol"
    },
    {
      "match": "(?<![-_])(?i:super)",
      "name": "keyword.other.super.cobol"
    },
    {
      "match": "^([0-9][0-9][0-9][0-9][0-9][0-9])",
      "name": "constant.numeric.cobol"
    },
    {
      "captures": {
        "1": {
          "name": "meta.symbol.cobol"
        },
        "2": {
          "name": "constant.numeric.integer"
        },
        "3": {
          "name": "meta.symbol.cobol"
        },
        "4": {
          "name": "constant.numeric.integer"
        },
        "5": {
          "name": "meta.symbol.cobol"
        }
      },
      "match": "(\\()([0-9]*)(:)([0-9]*)(\\))"
    },
    {
      "match": "([-0-9A-Z_a-z]*[0-9A-Za-z]|(#?[0-9A-Za-z]+[-0-9A-Z_a-z]*[0-9A-Za-z]))",
      "name": "meta.symbol.cobol"
    }
  ],
  "repository": {
    "cics-keywords": {
      "match": "(?<![-\\w])(?i:abcode|abdump|abend|abort|abprogram|abstime|accum|acee|acqactivity|acqprocess|acquactivity|action|activity|activityid|actpartn|add|address|after|aid|alarm|all|allocate|alter|alternate|altscrnht|altscrnwd|and|anykey|aplkybd|apltext|applid|asa??|asis|asktime|asraintrpt|asrakey|asrapsw|asraregs|asraspc|asrastg|assign|asynchronous|at|attach|attachid|attributes|authenticate|autopage|auxiliary|base64|basicauth|below|bif|binary|bit|bodycharset|bookmark|brdata|brdatalength|brexit|bridge|browsetoken|btrans|buffer|build|burgeability|caddrlength|cancel|card|cbuff|ccsid|certificate|change|changetime|channel|char|characterset|check|chunkend|chunking|chunkno|chunkyes|cicsdatakey|ciphers|class|clear|cliconvert|client|clientaddr|clientaddrnu|clientconv|clientname|clntaddr6nu|clntipfamily|close|closestatus|clrpartn|cmdsec|cnamelength|cnotcompl|codepage|color|commarea|commonname|commonnamlen|comparemax|comparemin|complete|composite|compstatus|condition|confirm|confirmation|connect|consistent|console|container|contexttype|control|convdata|converse|convertst|converttime|convid|copy|counter|country|countrylen|create|critical|ctlchar|current|cursor|cwa|cwaleng|data1??|data2|datalength|datalenth|dataonly|datapointer|dataset|datastr|datatoxml|datatype|datcontainer|date|dateform|datesep|datestring|day|daycount|dayofmonth|dayofweek|dayofyear|days|daysleft|day-of-week|dcounter|ddmmyy|ddmmyyyy|debkey|debrec|debug-contents|debug-item|debug-line|debug-name|debug-sub-1|debug-sub-2|debug-sub-3|deedit|default|define|defresp|defscrnht|defscrnwd|delay|deleteq??|delimiter|deq|destcount|destid|destidleng|detail|detaillength|dfhresp|dfhvalue|digest|digesttype|disconnect|docdelete|docsize|docstatus|doctoken|document|ds3270|dsscs|dump|dumpcode|dumpid|duprec|ecaddr|ecblist|eib|elemname|elemnamelen|elemns|elemnslen|end|endactivity|endbr|endbrowse|endfile|endoutput|enq|enter|entry|entryname|eoc|eods|eprfield|eprfrom|eprinto|eprlength|eprset|eprtype|equal|erase|eraseaup|error|errterm|esmreason|esmresp|event|eventtype|eventual|ewasupp|exception|expect|expirytime|extds|external|extract|facility|facilitytokn|false|faultactlen|faultactor|faultcode|faultcodelen|faultcodestr|faultstring|faultstrlen|fci|fct|field|file|firestatus|flength|fmh|fmhparm|for|force|formattime|formfeed|formfield|free|freekb|freemain|from|fromactivity|fromccsid|fromchannel|fromcodepage|fromdoc|fromflength|fromlength|fromprocess|frset|fulldate|function|gchars|gcodes|gds|generic|get|getmain|getnext|gmmi|groupid|gtec|gteq|handle|head|header|hex|high-values??|hilight|hold|honeom|host|hostcodepage|hostlength|hosttype|hours|httpheader|httpmethod|httprnum|httpversion|httpvnum|ignore|immediate|in|increment|initimg|initparm|initparmlen|inpartn|input|inputevent|inputmsg|inputmsglen|inquire|insert|integer|interval|into|intoccsid|intocodepage|invalidcount|invite|invmpsz|invoke|invokingprog|invpartn|invreq|issuer??|item|iutype|journalname|jtypeid|jusfirst|juslast|justify|katakana|keep|keylength|keynumber|l40|l64|l80|label|langinuse|languagecode|last|lastusetime|ldc|ldcmnem|ldcnum|leavekb|length|lengthlist|level|lightpen|linage-counter|line|lineaddr|line-counter|link|list|listlength|llid|load|locality|localitylen|logmessage|logmode|logonlogmode|logonmsg|low-values??|luname|main|map|mapcolumn|mapfail|mapheight|mapline|maponly|mapped|mappingdev|mapset|mapwidth|massinsert|maxdatalen|maxflength|maximum|maxlength|maxlifetime|maxproclen|mcc|mediatype|message|messageid|metadata|metadatalen|method|methodlength|milliseconds|minimum|minutes|mmddyy|mmddyyyy|mode|modename|monitor|month|monthofyear|move|msr|msrcontrol|name|namelength|natlang|natlanginuse|netname|newpassword|newphrase|newphraselen|next|nexttransid|nleom|noautopage|nocc|nocheck|nocliconvert|noclose|nodata|node|nodocdelete|nodump|noedit|noflush|nohandle|noinconvert|none|nooutconert|noqueue|noquiesce|nosrvconvert|nosuspend|note|notpurgeable|notruncate|nowait|nscontainer|nulls??|numciphers|numevents|numitems|numrec|numroutes|numsegments|numtab|of|oidcard|on|opclass|open|operation|operator|operid|operkeys|operpurge|opid|opsecurity|options|or|orgabcode|organization|organizatlen|orgunit|orgunitlen|outdescr|outline|outpartn|output|owner|pa1|pa2|pa3|page|pagenum|page-counter|paging|parse|partn|partner|partnfail|partnpage|partns|partnset|pass|passbk|password|passwordlen|path|pathlength|pct|pf10??|pf11|pf12|pf13|pf14|pf15|pf16|pf17|pf18|pf19|pf20??|pf21|pf22|pf23|pf24|pf3|pf4|pf5|pf6|pf7|pf8|pf9|pfxleng|phrase|phraselen|piplength|piplist|point|pool|pop|portnumber|portnumnu|post|ppt|predicate|prefix|prepare|princonvid|prinsysid|print|priority|privacy|process|processtype|proclength|procname|profile|program|protect|ps|punch|purge|purgeable|push|put|qname|query|queryparm|querystring|querystrlen|queue|quotes??|random|rba|rbn|rdatt|read|readnext|readprev|readq|reattach|receiver??|recfm|record|recordlen|recordlength|reduce|refparms|refparmslen|relatesindex|relatestype|relatesuri|release|remove|repeatable|repetable|replace|reply|replylength|reqid|requesttype|resclass|reset|resetbr|resid|residlength|resource|resp2??|ressec|restart|restype|result|resume|retain|retcode|retcord|retriece|retrieve|return|returnprog|return-code|rewind|rewrite|ridfld|role|rolelength|rollback|route|routecodes|rprocess|rresource|rrn|rtermid|rtransid|run|saddrlength|scheme|schemename|scope|scopelen|scrnht|scrnwd|seconds|security|segmentlist|send|sender|serialnum|serialnumlen|server|serveraddr|serveraddrnu|serverconv|servername|service|session|sesstoken|set|shared|shift-in|shift-out|sigdata|signal|signoff|signon|sit|snamelength|soapfault|sort-control|sort-core-size|sort-file-size|sort-message|sort-mode-size|sort-return|sosi|spaces??|spoolclose|spoolopen|spoolread|spoolwrite|srvconvert|srvraddr6nu|srvripfamily|ssltype|start|startbr|startbrowse|startcode|state|statelen|stationid|status|statuscode|statuslen|statustext|storage|strfield|stringformat|subaddr|subcodelen|subcodestr|subevent1??|subevent2|subevent3|subevent4|subevent5|subevent6|subevent7|subevent8|sum|suspend|suspstatus|symbol|symbollist|synchronous|synclevel|synconreturn|syncpoint|sysid|tables|tally|task|taskpriority|tcpip|tcpipservice|tct|tctua|tctualeng|td|tellerid|template|termcode|termid|terminal|termpriority|test|text|textkybd|textlength|textprint|time|timeout|timer|timesep|title|to|toactivity|tochannel|tocontainer|toflength|token|tolength|toprocess|trace|tracenum|trailer|tranpriority|transaction|transform|transid|trigger|trt|true|ts|twa|twaleng|type|typename|typenamelen|typens|typenslen|unattend|uncommitted|unescaped|unexpin|unlock|until|uow|update|uri|urimap|url|urllength|userdatakey|userid|username|usernamelen|userpriority|using|validation|value|valuelength|verify|versionlen|volume|volumeleng|wait|waitcics|web|when-compiled|wpmedia1|wpmedia2|wpmedia3|wpmedia4|wrap|writeq??|wsacontext|wsaepr|xctl|xmlcontainer|xmltodata|xmltransform|xrba|year|yyddd|yyddmm|yymmdd|yyyyddd|yyyyddmm|yyyymmdd|zero|zeroes|zeros)(?![-\\w])",
      "name": "keyword.verb.cics"
    },
    "dli-keywords": {
      "match": "(?<![-\\w])(?i:accept|chkp|deq|dlet|gnp?|gu|isrt|load|log|pos|query|refresh|repl|retrieve|rolb|roll|rols|schd|sets|setu|symchkp|term|xrst)(?![-\\w])",
      "name": "keyword.verb.dli"
    },
    "dli-options": {
      "match": "(?<![-\\w])(?i:statusgroup|checkpoint|chkp|id|lockclass|segment|info|where|from|using|keyfeedback|feedbacklen|variable|first|last|current|seglength|offset|locked|movenext|getfirst|set|setcond|setzero|setparent|fieldlength|keys|maxlength|length[0-9]*|area[0-9]*|psc|pcs|pcb|sysserve|into)(?![-\\w])",
      "name": "keyword.other.dli"
    },
    "number-complex-constant": {
      "match": "([-+])?((([0-9]+(\\.[0-9]+))|(\\.[0-9]+))(([Ee])([-+])?[0-9]+)?)([DFLUdflu]|UL|ul)?(?=\\s|\\.$|[),])",
      "name": "constant.numeric.cobol"
    },
    "number-simple-constant": {
      "match": "([-+])?([0-9]+)(?=\\s|\\.$|[),])",
      "name": "constant.numeric.cobol"
    },
    "string-double-quoted-constant": {
      "begin": "\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "(\"|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      }
    },
    "string-quoted-constant": {
      "begin": "'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.cobol"
        }
      },
      "end": "('|$)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.cobol"
        }
      },
      "name": "string.quoted.single.cobol"
    }
  },
  "scopeName": "source.cobol"
}|json}