diff options
| author | Sebastian Engel <dev@sebastianengel.eu> | 2021-10-09 10:33:00 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-09 10:33:00 +0200 |
| commit | b42c7239f02c918b25bbbd570d21270d7d6b4b3a (patch) | |
| tree | a54d8fad509e419d11fcee7a94d67a7766309447 /tests/examplefiles | |
| parent | a3f2ebd10405bfb260a9dcab05392607452dce8e (diff) | |
| download | pygments-git-b42c7239f02c918b25bbbd570d21270d7d6b4b3a.tar.gz | |
Modernize Whitespace token - regarding #1905 (#1911)
* Diff lexer - match whitespace
* Make lexer - whitespace token set
* Actionscript lexer - whitespace token
* Bare lexer - whitespace token
* Business(cobol) lexers - whitespace token
Diffstat (limited to 'tests/examplefiles')
| -rw-r--r-- | tests/examplefiles/as3/as3_test.as.output | 518 | ||||
| -rw-r--r-- | tests/examplefiles/as3/as3_test2.as.output | 226 | ||||
| -rw-r--r-- | tests/examplefiles/as3/as3_test3.as.output | 26 | ||||
| -rw-r--r-- | tests/examplefiles/bare/bare.bare.output | 166 | ||||
| -rw-r--r-- | tests/examplefiles/cmake/main.cmake.output | 248 | ||||
| -rw-r--r-- | tests/examplefiles/cobol/example.cob.output | 10404 | ||||
| -rw-r--r-- | tests/examplefiles/gooddata-cl/test.gdc.output | 8 | ||||
| -rw-r--r-- | tests/examplefiles/maql/test.maql.output | 226 | ||||
| -rw-r--r-- | tests/examplefiles/openedge/example.cls.output | 60 | ||||
| -rw-r--r-- | tests/examplefiles/openedge/openedge_example.output | 126 |
10 files changed, 6017 insertions, 5991 deletions
diff --git a/tests/examplefiles/as3/as3_test.as.output b/tests/examplefiles/as3/as3_test.as.output index 6e13ec66..78a7a0b6 100644 --- a/tests/examplefiles/as3/as3_test.as.output +++ b/tests/examplefiles/as3/as3_test.as.output @@ -1,215 +1,215 @@ -'\t\t\t' Text +'\t\t\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'flash.events.MouseEvent' Name.Namespace ';' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'com.example.programmingas3.playlist.PlayList' Name.Namespace ';' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'com.example.programmingas3.playlist.Song' Name.Namespace ';' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'com.example.programmingas3.playlist.SortProperty' Name.Namespace ';' Operator -'\n\n\t\t\t' Text +'\n\n\t\t\t' Text.Whitespace '// constants for the different "states" of the song form\n' Comment.Single -'\t\t\t' Text +'\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'static' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'const' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'ADD_SONG' Name ':' Punctuation 'uint' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer ';' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'static' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'const' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'SONG_DETAIL' Name ':' Punctuation 'uint' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ';' Operator -'\n\t\t\t\n\t\t\t' Text +'\n\t\t\t\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'playList' Name ':' Punctuation 'PlayList' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'PlayList.<T>' Keyword.Type '(' Operator ');' Operator -'\n\n\t\t\t' Text +'\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'initApp' Name.Function '(' Operator ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '// set the initial state of the song form, for adding a new song\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'setFormState' Name '(' Operator 'ADD_SONG' Name ');' Operator -'\n\t\t\t\t\n\t\t\t\t' Text +'\n\t\t\t\t\n\t\t\t\t' Text.Whitespace '// prepopulate the list with a few songs\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'addSong' Name.Attribute '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Song' Keyword.Type '(' Operator '"Nessun Dorma"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Luciano Pavarotti"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '1990' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '"nessundorma.mp3"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '[' Operator '"90\'s"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Opera"' Literal.String.Double ']));' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'addSong' Name.Attribute '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Song' Keyword.Type '(' Operator '"Come Undone"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Duran Duran"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '1993' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '"comeundone.mp3"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '[' Operator '"90\'s"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Pop"' Literal.String.Double ']));' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'addSong' Name.Attribute '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Song' Keyword.Type '(' Operator '"Think of Me"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Sarah Brightman"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '1987' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '"thinkofme.mp3"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '[' Operator '"Showtunes"' Literal.String.Double ']));' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'addSong' Name.Attribute '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Song' Keyword.Type '(' Operator '"Unbelievable"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"EMF"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '1991' Literal.Number.Integer ',' Operator -' ' Text +' ' Text.Whitespace '"unbelievable.mp3"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '[' Operator '"90\'s"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"Pop"' Literal.String.Double ']));' Operator -'\n\n\t\t\t\t' Text +'\n\n\t\t\t\t' Text.Whitespace 'songList' Name '.' Operator 'dataProvider' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'playList' Name '.' Operator 'songList' Name.Attribute ';' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'sortList' Name.Function '(' Operator @@ -219,358 +219,358 @@ ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '// Make all the sort type buttons enabled.\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace '// The active one will be grayed-out below\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'sortByTitle' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'sortByArtist' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'sortByYear' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ';' Operator -'\n\n\t\t\t\t' Text +'\n\n\t\t\t\t' Text.Whitespace 'switch' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'sortField' Name ')' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'case' Keyword -' ' Text +' ' Text.Whitespace 'SortProperty' Name '.' Operator 'TITLE' Name.Attribute ':' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'sortByTitle' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'break' Keyword ';' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'case' Keyword -' ' Text +' ' Text.Whitespace 'SortProperty' Name '.' Operator 'ARTIST' Name.Attribute ':' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'sortByArtist' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'break' Keyword ';' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'case' Keyword -' ' Text +' ' Text.Whitespace 'SortProperty' Name '.' Operator 'YEAR' Name.Attribute ':' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'sortByYear' Name '.' Operator 'selected' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'break' Keyword ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '}' Operator -'\n\n\t\t\t\t' Text +'\n\n\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'sortList' Name.Attribute '(' Operator 'sortField' Name ');' Operator -'\n\t\t\t\t\n\t\t\t\t' Text +'\n\t\t\t\t\n\t\t\t\t' Text.Whitespace 'refreshList' Name '();' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'refreshList' Name.Function '(' Operator ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '// remember which song was selected\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'selectedSong' Name ':' Punctuation 'Song' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Song' Name '(' Operator 'songList' Name '.' Operator 'selectedItem' Name.Attribute ');' Operator -'\n\t\t\t\t\n\t\t\t\t' Text +'\n\t\t\t\t\n\t\t\t\t' Text.Whitespace '// re-assign the song list as the dataprovider to get the newly sorted list\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace '// and force the List control to refresh itself\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'songList' Name '.' Operator 'dataProvider' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'playList' Name '.' Operator 'songList' Name.Attribute ';' Operator -'\n\t\t\t\t\n\t\t\t\t' Text +'\n\t\t\t\t\n\t\t\t\t' Text.Whitespace '// reset the song selection\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'selectedSong' Name -' ' Text +' ' Text.Whitespace '!=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword.Constant ')' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'songList' Name '.' Operator 'selectedItem' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '}' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'songSelectionChange' Name.Function '(' Operator ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'if' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'songList' Name '.' Operator 'selectedIndex' Name.Attribute -' ' Text +' ' Text.Whitespace '!=' Operator -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer ')' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'setFormState' Name '(' Operator 'SONG_DETAIL' Name ');' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '}' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'else' Keyword -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'setFormState' Name '(' Operator 'ADD_SONG' Name ');' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '}' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'addNewSong' Name.Function '(' Operator ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '// gather the values from the form and add the new song\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'title' Name ':' Punctuation 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'newSongTitle' Name '.' Operator 'text' Name.Attribute ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'artist' Name ':' Punctuation 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'newSongArtist' Name '.' Operator 'text' Name.Attribute ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'year' Name ':' Punctuation 'uint' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'newSongYear' Name '.' Operator 'value' Name.Attribute ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'filename' Name ':' Punctuation 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'newSongFilename' Name '.' Operator 'text' Name.Attribute ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'genres' Name ':' Punctuation 'Array' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'newSongGenres' Name '.' Operator 'selectedItems' Name.Attribute ';' Operator -'\n\n\t\t\t\t' Text +'\n\n\t\t\t\t' Text.Whitespace 'playList' Name '.' Operator 'addSong' Name.Attribute '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Song' Keyword.Type '(' Operator 'title' Name ',' Operator -' ' Text +' ' Text.Whitespace 'artist' Name ',' Operator -' ' Text +' ' Text.Whitespace 'year' Name ',' Operator -' ' Text +' ' Text.Whitespace 'filename' Name ',' Operator -' ' Text +' ' Text.Whitespace 'genres' Name '));' Operator -'\n\n\t\t\t\t' Text +'\n\n\t\t\t\t' Text.Whitespace 'refreshList' Name '();' Operator -'\n\t\n\t\t\t\t' Text +'\n\t\n\t\t\t\t' Text.Whitespace '// clear out the "add song" form fields\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'setFormState' Name '(' Operator 'ADD_SONG' Name ');' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'songListLabel' Name.Function '(' Operator @@ -580,20 +580,20 @@ ')' Operator ':' Operator 'String' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace 'return' Keyword -' ' Text +' ' Text.Whitespace 'item' Name '.' Operator 'toString' Name.Attribute '();' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n\n\n\t\t\t' Text +'\n\n\n\t\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'setFormState' Name.Function '(' Operator @@ -603,238 +603,238 @@ ')' Operator ':' Operator 'void' Keyword.Type -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '// set the form title and control state\n' Comment.Single -'\t\t\t\t' Text +'\t\t\t\t' Text.Whitespace 'switch' Keyword -' ' Text +' ' Text.Whitespace '(' Operator 'state' Name ')' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '{' Operator -'\n\t\t\t\t\t' Text +'\n\t\t\t\t\t' Text.Whitespace 'case' Keyword -' ' Text +' ' Text.Whitespace 'ADD_SONG' Name ':' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'formTitle' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '"Add New Song"' Literal.String.Double ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace '// show the submit button\n' Comment.Single -'\t\t\t\t\t\t' Text +'\t\t\t\t\t\t' Text.Whitespace 'submitSongData' Name '.' Operator 'visible' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'showAddControlsBtn' Name '.' Operator 'visible' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace '// clear the form fields\n' Comment.Single -'\t\t\t\t\t\t' Text +'\t\t\t\t\t\t' Text.Whitespace 'newSongTitle' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '""' Literal.String.Double ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongArtist' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '""' Literal.String.Double ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongYear' Name '.' Operator 'value' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '(' Operator 'new' Keyword -' ' Text +' ' Text.Whitespace 'Date' Keyword.Type '(' Operator ')).' Operator 'fullYear' Name ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongFilename' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '""' Literal.String.Double ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongGenres' Name '.' Operator 'selectedIndex' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace '// deselect the currently selected song (if any)\n' Comment.Single -'\t\t\t\t\t\t' Text +'\t\t\t\t\t\t' Text.Whitespace 'songList' Name '.' Operator 'selectedIndex' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '-' Operator '1' Literal.Number.Integer ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'break' Keyword ';' Operator -'\n\t\t\t\t\t\t\n\t\t\t\t\t' Text +'\n\t\t\t\t\t\t\n\t\t\t\t\t' Text.Whitespace 'case' Keyword -' ' Text +' ' Text.Whitespace 'SONG_DETAIL' Name ':' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'formTitle' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '"Song Details"' Literal.String.Double ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace "// populate the form with the selected item's data\n" Comment.Single -'\t\t\t\t\t\t' Text +'\t\t\t\t\t\t' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'selectedSong' Name ':' Punctuation 'Song' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Song' Name '(' Operator 'songList' Name '.' Operator 'selectedItem' Name.Attribute ');' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongTitle' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name '.' Operator 'title' Name.Attribute ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongArtist' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name '.' Operator 'artist' Name.Attribute ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongYear' Name '.' Operator 'value' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name '.' Operator 'year' Name.Attribute ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongFilename' Name '.' Operator 'text' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name '.' Operator 'filename' Name.Attribute ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'newSongGenres' Name '.' Operator 'selectedItems' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'selectedSong' Name '.' Operator 'genres' Name.Attribute ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace '// hide the submit button\n' Comment.Single -'\t\t\t\t\t\t' Text +'\t\t\t\t\t\t' Text.Whitespace 'submitSongData' Name '.' Operator 'visible' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'showAddControlsBtn' Name '.' Operator 'visible' Name.Attribute -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n\t\t\t\t\t\t' Text +'\n\t\t\t\t\t\t' Text.Whitespace 'break' Keyword ';' Operator -'\n\t\t\t\t' Text +'\n\t\t\t\t' Text.Whitespace '}' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '}' Operator -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/as3/as3_test2.as.output b/tests/examplefiles/as3/as3_test2.as.output index f01939b5..6431f68b 100644 --- a/tests/examplefiles/as3/as3_test2.as.output +++ b/tests/examplefiles/as3/as3_test2.as.output @@ -1,51 +1,51 @@ 'package' Keyword -' ' Text +' ' Text.Whitespace 'ru.dfls.events' Name.Namespace -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t' Text +'\n\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'flash.events.Event' Name.Namespace ';' Operator -'\t\n\t' Text +'\t\n\t' Text.Whitespace 'import' Keyword -' ' Text +' ' Text.Whitespace 'flash.events.ErrorEvent' Name.Namespace ';' Operator -'\n\t\n\t' Text +'\n\t\n\t' Text.Whitespace '/**\n\t * This event is usually dispatched if some error was thrown from an asynchronous code, i.e. there\n\t * is no relevant user stack part to process the error. There is only one type of such event: \n\t * <code>ErrorEvent.ERROR</code> which is same as <code>flash.events.ErrorEvent.ERROR</code>.\n\t * The only difference between <code>flash.events.ErrorEvent</code> and \n\t * <code>ru.dfls.events.ErrorEvent</code> is the capability of the latter to store the underlying cause\n\t * (the <code>Error</code>).\n\t * \n\t * @see flash.events.ErrorEvent\n\t * @see Error\n\t * @author dragonfly\n\t */' Comment.Multiline -'\n\t' Text +'\n\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'class' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'ErrorEvent' Name -' ' Text +' ' Text.Whitespace 'extends' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'flash' Name '.' Operator 'events' Name.Attribute '.' Operator 'ErrorEvent' Name.Attribute -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'static' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'ERROR' Name -' ' Text +' ' Text.Whitespace ':' Punctuation -' ' Text +' ' Text.Whitespace 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'flash' Name '.' Operator 'events' Name.Attribute @@ -54,212 +54,212 @@ '.' Operator 'ERROR' Name.Attribute ';' Operator -'\n\n\t\t' Text +'\n\n\t\t' Text.Whitespace 'private' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'var' Keyword.Declaration -' ' Text +' ' Text.Whitespace '_error' Name -' ' Text +' ' Text.Whitespace ':' Punctuation -' ' Text +' ' Text.Whitespace 'Error' Keyword.Type ';' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'ErrorEvent' Name.Function '(' Operator 'type' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'String' Keyword.Type ',' Operator -' ' Text +' ' Text.Whitespace 'bubbles' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Boolean' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ',' Operator -' ' Text +' ' Text.Whitespace 'cancelable' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Boolean' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'false' Keyword.Constant ',' Operator -' \n\t\t\t\t\t\t\t\t\t' Text +' \n\t\t\t\t\t\t\t\t\t' Text.Whitespace 'text' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '""' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace 'error' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Error' Keyword.Type -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'null' Keyword.Constant ')' Operator ' ' Text '{' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'super' Keyword.Declaration '(' Operator 'type' Name ',' Operator -' ' Text +' ' Text.Whitespace 'bubbles' Name ',' Operator -' ' Text +' ' Text.Whitespace 'cancelable' Name ',' Operator -' ' Text +' ' Text.Whitespace 'text' Name ');' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '_error' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'error' Name ';' Operator -'\n\t\t' Text +'\n\t\t' Text.Whitespace '}' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'get' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'error' Name '()' Operator -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Error' Name -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'return' Keyword -' ' Text +' ' Text.Whitespace '_error' Name ';' Operator -'\n\t\t' Text +'\n\t\t' Text.Whitespace '}' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'set' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'error' Name '(' Operator 'value' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Error' Name ')' Operator -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'void' Keyword.Constant -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace '_error' Name -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'value' Name ';' Operator -'\n\t\t' Text +'\n\t\t' Text.Whitespace '}' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'override' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'toString' Name.Function '(' Operator ')' Operator -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'String' Keyword.Type -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'return' Keyword -' ' Text +' ' Text.Whitespace 'formatToString' Name '(' Operator '"ErrorEvent"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"type"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"bubbles"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"cancelable"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"eventPhase"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"text"' Literal.String.Double ',' Operator -' ' Text +' ' Text.Whitespace '"error"' Literal.String.Double ');' Operator -'\n\t\t' Text +'\n\t\t' Text.Whitespace '}' Operator -'\n\t\t\n\t\t' Text +'\n\t\t\n\t\t' Text.Whitespace 'public' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'override' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'clone' Name.Function '(' Operator ')' Operator -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Event' Keyword.Type -' ' Text +' ' Text.Whitespace '{' Operator -'\n\t\t\t' Text +'\n\t\t\t' Text.Whitespace 'return' Keyword -' ' Text +' ' Text.Whitespace 'new' Keyword -' ' Text +' ' Text.Whitespace 'ru' Name '.' Operator 'dfls' Name.Attribute @@ -270,23 +270,23 @@ '(' Operator 'type' Name ',' Operator -' ' Text +' ' Text.Whitespace 'bubbles' Name ',' Operator -' ' Text +' ' Text.Whitespace 'cancelable' Name ',' Operator -' ' Text +' ' Text.Whitespace 'text' Name ',' Operator -' ' Text +' ' Text.Whitespace 'error' Name ');' Operator -'\n\t\t' Text +'\n\t\t' Text.Whitespace '}' Operator -'\n\t\t\n\t' Text +'\n\t\t\n\t' Text.Whitespace '}' Operator -'\n' Text +'\n' Text.Whitespace '}' Operator -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/as3/as3_test3.as.output b/tests/examplefiles/as3/as3_test3.as.output index 8c04e086..ee32e2f6 100644 --- a/tests/examplefiles/as3/as3_test3.as.output +++ b/tests/examplefiles/as3/as3_test3.as.output @@ -1,34 +1,34 @@ 'protected' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'function ' Keyword.Declaration 'remote' Name.Function '(' Operator 'method' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'String' Keyword.Type ',' Operator -' ' Text +' ' Text.Whitespace '...' Punctuation 'args' Name -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Array' Keyword.Type ')' Operator -' ' Text +' ' Text.Whitespace ':' Operator -' ' Text +' ' Text.Whitespace 'Boolean' Keyword.Type -' ' Text +' ' Text.Whitespace '{' Operator -'\n ' Text +'\n ' Text.Whitespace 'return' Keyword -' ' Text +' ' Text.Whitespace 'true' Keyword.Constant ';' Operator -'\n' Text +'\n' Text.Whitespace '}' Operator -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/bare/bare.bare.output b/tests/examplefiles/bare/bare.bare.output index 1193432b..a75c8899 100644 --- a/tests/examplefiles/bare/bare.bare.output +++ b/tests/examplefiles/bare/bare.bare.output @@ -1,7 +1,7 @@ 'type' Keyword -' ' Text +' ' Text.Whitespace 'PublicRSAKey' Name -' ' Text +' ' Text.Whitespace 'data' Keyword '<' Text '128' Literal @@ -9,9 +9,9 @@ '\n' Text 'type' Keyword -' ' Text +' ' Text.Whitespace 'PublicED25519Key' Name -' ' Text +' ' Text.Whitespace 'data' Keyword '<' Text '32' Literal @@ -19,85 +19,93 @@ '\n' Text 'type' Keyword -' ' Text +' ' Text.Whitespace 'Time' Name -' ' Text +' ' Text.Whitespace 'string' Keyword -' ' Text +' ' Text.Whitespace '# ISO 8601' Comment -'\n\n' Text +'\n\n' Text.Whitespace 'enum' Keyword -' ' Text +' ' Text.Whitespace 'Department' Name.Class -' {' Text -'\n ' Text +' {' Text.Whitespace +'\n ' Text.Whitespace 'ACCOUNTING' Name.Attribute -'\n ' Text +'\n ' Text.Whitespace 'ADMINISTRATION' Name.Attribute -'\n ' Text +'\n ' Text.Whitespace 'CUSTOMER_SERVICE' Name.Attribute -'\n ' Text +'\n ' Text.Whitespace 'DEVELOPMENT' Name.Attribute -' ' Text +' ' Text.Whitespace '# IMPORTANT' Comment -'\n\n ' Text +'\n\n ' Text.Whitespace '# Reserved for the CEO' Comment -'\n ' Text +'\n ' Text.Whitespace 'JSMITH' Name.Attribute ' = ' Text '99' Literal -'\n' Text +'\n' Text.Whitespace '}' Text -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Customer' Name.Class -' {' Text -'\n ' Text +' ' Text.Whitespace +'{' Text +'\n ' Text.Whitespace 'name' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'email' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'address' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'Address' Name.Class '\n' Text -' ' Text +' ' Text.Whitespace 'orders' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace '[]' Text '{' Text -'\n ' Text +'\n ' Text.Whitespace 'orderId' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'i64' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'quantity' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'i32' Keyword '\n' Text -' ' Text +' ' Text.Whitespace '}' Text '\n' Text -' ' Text +' ' Text.Whitespace 'metadata' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'map' Keyword '[' Text 'string' Keyword @@ -106,58 +114,68 @@ '\n' Text '}' Text -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Employee' Name.Class -' {' Text -'\n ' Text +' ' Text.Whitespace +'{' Text +'\n ' Text.Whitespace 'name' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'email' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'address' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'Address' Name.Class '\n' Text -' ' Text +' ' Text.Whitespace 'department' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'Department' Name.Class '\n' Text -' ' Text +' ' Text.Whitespace 'hireDate' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'Time' Name.Class '\n' Text -' ' Text +' ' Text.Whitespace 'publicKey' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'optional' Keyword '<' Text '(' Text 'PublicRSAKey' Name.Class -' | ' Text +' ' Text.Whitespace +'|' Text +' ' Text.Whitespace 'PublicED25519Key' Name.Class ')' Text '>' Text '\n' Text -' ' Text +' ' Text.Whitespace 'metadata' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'map' Keyword '[' Text 'string' Keyword @@ -166,48 +184,56 @@ '\n' Text '}' Text -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Person' Name.Class -' (' Text +' ' Text.Whitespace +'(' Text 'Customer' Name.Class -' | ' Text +' ' Text.Whitespace +'|' Text +' ' Text.Whitespace 'Employee' Name.Class ')' Text -'\n\n' Text +'\n\n' Text.Whitespace 'type' Keyword -' ' Text +' ' Text.Whitespace 'Address' Name.Class -' {' Text -'\n ' Text +' ' Text.Whitespace +'{' Text +'\n ' Text.Whitespace 'address' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace '[' Text '4' Literal ']' Text 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'city' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'state' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text -' ' Text +' ' Text.Whitespace 'country' Name.Attribute -': ' Text +':' Text +' ' Text.Whitespace 'string' Keyword '\n' Text '}' Text -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/cmake/main.cmake.output b/tests/examplefiles/cmake/main.cmake.output index ef8be333..317ab3d7 100644 --- a/tests/examplefiles/cmake/main.cmake.output +++ b/tests/examplefiles/cmake/main.cmake.output @@ -1,9 +1,9 @@ 'CMAKE_MINIMUM_REQUIRED' Name.Builtin '(' Punctuation 'VERSION' Literal.String -' ' Text +' ' Text.Whitespace '2.6' Literal.String -' ' Text +' ' Text.Whitespace 'FATAL_ERROR' Literal.String ')' Punctuation '\n' Text @@ -12,351 +12,351 @@ 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'SOURCES' Literal.String -' ' Text +' ' Text.Whitespace 'back.c' Literal.String -' ' Text +' ' Text.Whitespace 'io.c' Literal.String -' ' Text +' ' Text.Whitespace 'main.c' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation '\n' Text 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'PATH' Literal.String -' ' Text +' ' Text.Whitespace '$ENV{' Operator 'PATH' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation '\n' Text 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'SOURCES' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# three arguments, prints "back.cio.cmain.c"\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"${SOURCES}"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# one argument, prints "back.c;io.c;main.c"\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '""' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# one argument, prints "" an empty line\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"${EMPTY_STRING}"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# one argument, prints "" an empty line\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'EMPTY_STRING' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# zero arguments, causes CMake Error\n' Comment -' ' Text +' ' Text.Whitespace '# "MESSAGE called with incorrect number of arguments"\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '\\\\\\"\\' Literal.String -' ' Text +' ' Text.Whitespace '\\(\\)\\#\\$\\^' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# this message contains literal characters\n' Comment '\n' Text 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"This is practice."' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "This is practice."\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"This;is;practice."' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "This;is;practice."\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"Hi. ) MESSAGE( x )"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "Hi. ) MESSAGE( x )"\n' Comment '\n' Text 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"Welc"' Literal.String.Double 'ome' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# rule 1\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'Welc' Literal.String '"ome"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# rule 3\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'Welc' Literal.String '"ome)"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# rule 2\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '""' Literal.String.Double 'Thanks' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# rule 1\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'Thanks' Literal.String '""' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# rule 3\n' Comment '\n' Text 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'x' Literal.String -' ' Text +' ' Text.Whitespace 'y' Literal.String -' ' Text +' ' Text.Whitespace 'A' Literal.String -' ' Text +' ' Text.Whitespace 'B' Literal.String -' ' Text +' ' Text.Whitespace 'C' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# stores "y;A;B;C" in x (without quote)\n' Comment 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'x' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# => SET( y;A;B;C ) => SET( y A B C)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'y' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "ABC" to stdout (without quotes)\n' Comment 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'y' Literal.String -' ' Text +' ' Text.Whitespace 'x' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# stores "x" in y (without quotes)\n' Comment 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'y' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace 'y' Literal.String -' ' Text +' ' Text.Whitespace '=' Literal.String -' ' Text +' ' Text.Whitespace 'x' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# => SET( x y )\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '"\\${x} = \'${x}\'"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "${x} = \'y;=;x\'" to stdout (without quotes)\n' Comment 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'y' Literal.String -' ' Text +' ' Text.Whitespace '${' Operator 'x' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# => SET( y y = x ) => stores "y;=;x" in y (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'y' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "y=x" to stdout (without quotes)\n' Comment '\n' Text 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'x' Literal.String -' ' Text +' ' Text.Whitespace 'a' Literal.String -' ' Text +' ' Text.Whitespace 'b' Literal.String -' ' Text +' ' Text.Whitespace 'c' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# stores "a;b;c" in x (without quotes)\n' Comment 'SET' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'y' Literal.String -' ' Text +' ' Text.Whitespace '"a b c"' Literal.String.Double -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# stores "a b c" in y (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'a' Literal.String -' ' Text +' ' Text.Whitespace 'b' Literal.String -' ' Text +' ' Text.Whitespace 'c' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "abc" to stdout (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'x' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "abc" to stdout (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation '"${x}"' Literal.String.Double ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "a;b;c" to stdout (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace '${' Operator 'y' Name.Variable '}' Operator -' ' Text +' ' Text.Whitespace ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "a b c" to stdout (without quotes)\n' Comment 'MESSAGE' Name.Builtin '(' Punctuation '"${y}"' Literal.String.Double ')' Punctuation -' ' Text +' ' Text.Whitespace '# prints "a b c" to stdout (without quotes)\n' Comment '\n' Text @@ -365,43 +365,43 @@ 'COMMAND' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'arguments' Literal.String -' ' Text +' ' Text.Whitespace 'go' Literal.String -' ' Text +' ' Text.Whitespace 'here' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation '\n' Text 'ANOTHER_COMMAND' Name.Builtin '(' Punctuation ')' Punctuation -' ' Text +' ' Text.Whitespace '# this command has no arguments\n' Comment 'YET_ANOTHER_COMMAND' Name.Builtin '(' Punctuation -' ' Text +' ' Text.Whitespace 'these' Literal.String '\n' Text -' ' Text +' ' Text.Whitespace 'arguments' Literal.String -' ' Text +' ' Text.Whitespace 'are' Literal.String -' ' Text +' ' Text.Whitespace 'spread' Literal.String -' ' Text +' ' Text.Whitespace '# another comment\n' Comment -' ' Text +' ' Text.Whitespace 'over' Literal.String -' ' Text +' ' Text.Whitespace 'several' Literal.String -' ' Text +' ' Text.Whitespace 'lines' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation '\n' Text diff --git a/tests/examplefiles/cobol/example.cob.output b/tests/examplefiles/cobol/example.cob.output index a1460fc1..68e8434c 100644 --- a/tests/examplefiles/cobol/example.cob.output +++ b/tests/examplefiles/cobol/example.cob.output @@ -1,16 +1,16 @@ ' ' Comment -' ' Text +' ' Text.Whitespace 'IDENTIFICATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROGRAM-ID' Keyword.Reserved '.' Punctuation -' ' Text +' ' Text.Whitespace 'OCic' Name.Variable '.' Punctuation '\n' Text @@ -134,72 +134,72 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'ENVIRONMENT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'CONFIGURATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPOSITORY' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FUNCTION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTRINSIC' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INPUT-OUTPUT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FILE-CONTROL' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Bat-File' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Bat-File-Name' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL' Keyword.Pseudo '.' Punctuation '\n' Text @@ -207,26 +207,26 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL' Keyword.Pseudo '.' Punctuation '\n' Text @@ -234,67 +234,67 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FILE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'STATUS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FSM-Status' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DATA' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FILE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Bat-File' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Bat-File-Rec' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(2048)' Keyword.Type '.' Punctuation '\n' Text @@ -302,18 +302,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Cobc-Output-Rec' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -321,18 +321,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Source-Code-Record' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(80)' Keyword.Type '.' Punctuation '\n' Text @@ -340,17 +340,17 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WORKING-STORAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'COPY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'screenio' Name.Variable '.' Punctuation '\n' Text @@ -358,10 +358,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Bat-File-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -369,10 +369,10 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Cmd' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(512)' Keyword.Type '.' Punctuation '\n' Text @@ -380,10 +380,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Cobc-Cmd' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -391,10 +391,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Cobc-Output-File' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -402,10 +402,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Command-Line-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -413,10 +413,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Config-File' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(12)' Keyword.Type '.' Punctuation '\n' Text @@ -424,71 +424,71 @@ '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Config-Keys' Name.Variable '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F1' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F2' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F3' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F4' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F5' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F6' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CK-S-F7' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(4)' Keyword.Type '.' Punctuation '\n' Text @@ -496,10 +496,10 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Dir-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -507,10 +507,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Dummy' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -518,10 +518,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Env-TEMP' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -529,22 +529,22 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'File-Name' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FN-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'OCCURS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '256 ' Literal.Number.Integer 'TIMES' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -552,50 +552,50 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'File-Status-Message' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(13)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Status Code: '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FSM-Status' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(2)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(11)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "', Meaning: '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FSM-Msg' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(25)' Keyword.Type '.' Punctuation '\n' Text @@ -603,296 +603,296 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Flags' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Compilation-Succeeded' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Compile-OK' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Compile-OK-Warn' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'W'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Compile-Failed' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Not-Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-IDENT-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator '1' Literal.Number.Integer 'st-Prog-Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'More-To-1st-Prog' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-LINKAGE-SECTION' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Compile-As-Subpgm' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Compile-As-Mainpgm' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-No-Switch-Changes' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'No-Switch-Changes' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Switch-Changes' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Output-File-Busy' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Output-File-Busy' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Output-File-Avail' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Source-Record-Type' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Source-Rec-Linkage' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'L'" Literal.String.Single '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Source-Rec-Ident' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'I'" Literal.String.Single '.' Punctuation '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Source-Rec-IgnoCOB-COLOR-RED' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Switch-Error' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Switch-Is-Bad' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation @@ -901,10 +901,10 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Horizontal-Line' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(80)' Keyword.Type '.' Punctuation '\n' Text @@ -913,12 +913,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -926,12 +926,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'J' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -939,12 +939,12 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'MS' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -952,12 +952,12 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'ML' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -965,10 +965,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'OC-Compiled' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC XXXX/XX/XXBXX/XX' Keyword.Type '.' Punctuation '\n' Text @@ -976,56 +976,56 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'OS-Type' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'OS-Unknown' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '0' Literal.Number.Integer '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'OS-Windows' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1' Literal.Number.Integer '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'OS-Cygwin' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'OS-UNIX' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '3' Literal.Number.Integer '.' Punctuation '\n' Text @@ -1033,10 +1033,10 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'OS-Type-Literal' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(7)' Keyword.Type '.' Punctuation '\n' Text @@ -1044,10 +1044,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Output-Message' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(80)' Keyword.Type '.' Punctuation '\n' Text @@ -1055,10 +1055,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Path-Delimiter' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -1066,10 +1066,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -1077,10 +1077,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Prog-Extension' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(30)' Keyword.Type '.' Punctuation '\n' Text @@ -1088,10 +1088,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Prog-File-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(40)' Keyword.Type '.' Punctuation '\n' Text @@ -1099,10 +1099,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Prog-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(31)' Keyword.Type '.' Punctuation '\n' Text @@ -1110,10 +1110,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'>'" Literal.String.Single '.' Punctuation @@ -1122,35 +1122,35 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switch-Display' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SD-Switch-And-Value' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(19)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SD-Description' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(60)' Keyword.Type '.' Punctuation '\n' Text @@ -1158,124 +1158,124 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switch-Keyword' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(12)' Keyword.Type '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-CONFIG' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@CONFIG'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@C'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-DEBUG' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@DEBUG'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@D'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-DLL' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@DLL'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-EXECUTE' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@EXECUTE'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@E'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-EXTRA' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@EXTRA'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@EX'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-NOTRUNC' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@NOTRUNC'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-TRACE' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@TRACE'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@T'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-SOURCE' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@SOURCE'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@S'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Switch-Is-XREF' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'@XREF'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'@X'" Literal.String.Single '.' Punctuation '\n' Text @@ -1283,10 +1283,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switch-Keyword-And-Value' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -1294,76 +1294,76 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switch-Value' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(255)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switch-Value-Alt' Name.Variable -' ' Text +' ' Text.Whitespace 'REDEFINES' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Valid-Config-Filename' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'BS2000'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'COBOL85'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'COBOL2002'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'DEFAULT'" Literal.String.Single ',' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "'IBM'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'MF'" Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace "'MVS'" Literal.String.Single '.' Punctuation '\n' Text @@ -1371,240 +1371,240 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switches' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'S-ARGS' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(75)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'S-CfgS' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-BS2000' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-COBOL85' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-COBOL2002' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-DEFAULT' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-IBM' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-MF' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-Cfg-MVS' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'S-EXTRA' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(75)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'S-Yes-No-Switches' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-DEBUG' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-DLL' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-XREF' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-SOURCE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-EXECUTE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-NOTRUNC' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'A'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-TRACE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'S-TRACEALL' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1) ' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation @@ -1613,12 +1613,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -1626,9 +1626,9 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SCREEN' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -1742,96 +1742,96 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-UL-Corner' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"DA"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-LL-Corner' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"C0"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-UR-Corner' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"BF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-LR-Corner' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"D9"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-Upper-T' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"C2"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-Lower-T' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"C1"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-Horiz-Line' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"C4"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'LD-Vert-Line' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'X' Name.Variable '"B3"' Literal.String.Double '.' Punctuation @@ -1862,18 +1862,18 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Blank-Screen' Name.Variable -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'COLUMN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'BLANK' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SCREEN' Keyword.Reserved '.' Punctuation '\n' Text @@ -1881,21 +1881,21 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Switches-Screen' Name.Variable -' ' Text +' ' Text.Whitespace 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'AUTO' Keyword.Pseudo '.' Punctuation '\n' Text @@ -1907,57 +1907,57 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLUE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -1965,28 +1965,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -1994,28 +1994,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2023,28 +2023,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2052,39 +2052,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '06 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2092,62 +2092,62 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '08 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(57)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Upper-T' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(19)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2155,40 +2155,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2196,40 +2196,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2237,40 +2237,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2278,40 +2278,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2319,40 +2319,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2360,40 +2360,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2401,40 +2401,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2442,62 +2442,62 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '16 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(57)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '60 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Lower-T' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(19)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2505,39 +2505,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '18 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2545,28 +2545,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '19 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2574,39 +2574,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '20 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2614,39 +2614,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '22 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-UR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2654,28 +2654,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '23 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Vert-Line' Name.Variable '.' Punctuation '\n' Text @@ -2683,39 +2683,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '24 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LL-Corner' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(77)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-LR-Corner' Name.Variable '.' Punctuation '\n' Text @@ -2727,30 +2727,30 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLUE' Name.Variable -' ' Text +' ' Text.Whitespace 'BLINK\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "' OCic ('" Literal.String.Single @@ -2758,44 +2758,44 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'PIC X(16)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OC-Compiled' Name.Variable '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "') OpenCOBOL V1.1 06FEB2009 '" Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace "'Interactive Compilation '" Literal.String.Single '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '25 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'PIC X(81)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '.' Punctuation '\n' Text @@ -2807,31 +2807,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-CYAN' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'On/Off Switches:'" Literal.String.Single @@ -2839,10 +2839,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Configuration:'" Literal.String.Single @@ -2850,39 +2850,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '17 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo '\'Additional "cobc" Switches (if any\n' Literal.String.Single ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace "'):'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '21 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Program Execution Arguments (if an\n" Literal.String.Single ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace "'y):'" Literal.String.Single '.' Punctuation '\n' Text @@ -2894,31 +2894,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-CYAN' Name.Variable -' ' Text +' ' Text.Whitespace 'LOWLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Program: '" Literal.String.Single @@ -2926,13 +2926,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Folder: '" Literal.String.Single @@ -2940,13 +2940,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Filename: '" Literal.String.Single @@ -2956,13 +2956,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F-Key: Select Opt'" Literal.String.Single @@ -2970,13 +2970,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Enter: Compile '" Literal.String.Single @@ -2984,13 +2984,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Esc: Quit '" Literal.String.Single @@ -3004,70 +3004,70 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'PIC X(47)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-Name' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'PIC X(47)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'PIC X(47)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-File-Name' Name.Variable '.' Punctuation '\n' Text @@ -3079,31 +3079,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F1'" Literal.String.Single @@ -3111,13 +3111,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F2'" Literal.String.Single @@ -3125,13 +3125,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F3'" Literal.String.Single @@ -3139,13 +3139,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F4'" Literal.String.Single @@ -3153,13 +3153,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F5'" Literal.String.Single @@ -3167,13 +3167,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F6'" Literal.String.Single @@ -3181,13 +3181,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F7'" Literal.String.Single @@ -3195,13 +3195,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '32 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F8'" Literal.String.Single @@ -3209,13 +3209,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '32 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'F9'" Literal.String.Single @@ -3229,172 +3229,172 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-RED' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '07 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '35 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '35 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable '.' Punctuation '\n' Text @@ -3406,31 +3406,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-CYAN' Name.Variable -' ' Text +' ' Text.Whitespace 'LOWLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Compile debug lines '" Literal.String.Single @@ -3438,13 +3438,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Always make DLLs '" Literal.String.Single @@ -3452,13 +3452,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Pgm is a SUBROUTINE '" Literal.String.Single @@ -3466,13 +3466,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Execute if compile OK '" Literal.String.Single @@ -3480,13 +3480,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'No COMP/BINARY trunc '" Literal.String.Single @@ -3494,13 +3494,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Trace procedures '" Literal.String.Single @@ -3508,13 +3508,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Trace proc + stmnts '" Literal.String.Single @@ -3522,13 +3522,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '37 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Produce source listing'" Literal.String.Single @@ -3536,13 +3536,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '37 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Produce xref listing '" Literal.String.Single @@ -3556,31 +3556,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F1'" Literal.String.Single @@ -3588,13 +3588,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F2'" Literal.String.Single @@ -3602,13 +3602,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F3'" Literal.String.Single @@ -3616,13 +3616,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F4'" Literal.String.Single @@ -3630,13 +3630,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F5'" Literal.String.Single @@ -3644,13 +3644,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F6'" Literal.String.Single @@ -3658,13 +3658,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '62 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'S-F7'" Literal.String.Single @@ -3678,138 +3678,138 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-RED' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-BS2000' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL85' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL2002' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-DEFAULT' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-IBM' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MF' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '67 ' Literal.Number.Integer 'PIC X(1)' Keyword.Type -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MVS' Name.Variable '.' Punctuation '\n' Text @@ -3821,31 +3821,31 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-CYAN' Name.Variable -' ' Text +' ' Text.Whitespace 'LOWLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '09 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'BS2000 '" Literal.String.Single @@ -3853,13 +3853,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'COBOL85 '" Literal.String.Single @@ -3867,13 +3867,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '11 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'COBOL2002 '" Literal.String.Single @@ -3881,13 +3881,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '12 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'Default '" Literal.String.Single @@ -3895,13 +3895,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '13 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'IBM '" Literal.String.Single @@ -3909,13 +3909,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '14 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'MicroFocus'" Literal.String.Single @@ -3923,13 +3923,13 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '69 ' Literal.Number.Integer 'VALUE ' Keyword.Pseudo "'MVS '" Literal.String.Single @@ -3943,53 +3943,53 @@ ' *>\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '03 ' Literal.Number.Integer 'BACKGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-BLACK' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FOREGROUND-COLOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-COLOR-WHITE' Name.Variable -' ' Text +' ' Text.Whitespace 'HIGHLIGHT' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '19 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'PIC X(75)' Keyword.Type -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXTRA' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '23 ' Literal.Number.Integer 'COL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '04 ' Literal.Number.Integer 'PIC X(75)' Keyword.Type -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-ARGS' Name.Variable '.' Punctuation '\n' Text @@ -3997,9 +3997,9 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text @@ -4023,41 +4023,41 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'DECLARATIVES' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'File-Error' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'USE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'AFTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'STANDARD' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ERROR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ON' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'Handle-Error' Name.Variable @@ -4065,59 +4065,59 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'COPY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FileStat-Msgs' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPLACING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'STATUS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FSM-Status' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MSG' Name.Variable -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FSM-Msg' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'FSM-Status' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '35\n ' Literal.Number.Integer 'DISPLAY\n ' Keyword.Reserved '\'File not found: "\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'File-Name' Name.Variable @@ -4127,22 +4127,22 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '\'"\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DISPLAY\n ' Keyword.Reserved '\'Error accessing file: "\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'File-Name' Name.Variable @@ -4152,24 +4152,24 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '\'"\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DECLARATIVES' Keyword.Pseudo '.' Punctuation '\n' Text @@ -4177,11 +4177,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'Main' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -4189,66 +4189,66 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '100' Literal.Number.Integer '-' Operator 'Initialization' Name.Variable '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Not-Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Complete' Name.Variable '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '200' Literal.Number.Integer '-' Operator 'Let-User-Set-Switches' Name.Variable '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '210' Literal.Number.Integer '-' Operator 'Run-Compiler' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved '(' Punctuation '88' Literal.Number.Integer '-' Operator 'Compile-OK' Name.Variable -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK-Warn' Name.Variable @@ -4256,56 +4256,56 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'AND ' Operator.Word '(' Punctuation 'S-XREF' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE' Name.Constant -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE' Name.Constant ')' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '220' Literal.Number.Integer '-' Operator 'Make-Listing' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved '(' Punctuation 'S-EXECUTE' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant ')' Punctuation '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'AND ' Operator.Word '(' Punctuation '88' Literal.Number.Integer @@ -4315,21 +4315,21 @@ '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '230' Literal.Number.Integer '-' Operator 'Run-Program' Name.Variable '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -4337,7 +4337,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '009' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -4345,16 +4345,16 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text @@ -4363,11 +4363,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '010' Literal.Number.Integer '-' Operator 'Parse-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -4543,7 +4543,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '011' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -4551,24 +4551,24 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '012' Literal.Number.Integer '-' Operator 'Extract-Kwd-And-Value' Name.Variable @@ -4576,16 +4576,16 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '<' Operator -' ' Text +' ' Text.Whitespace 'LENGTH' Keyword.Pseudo '(' Punctuation 'Command-Line-Args' Name.Variable @@ -4593,96 +4593,96 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword-And-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Switch-Keyword-And-Value' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Switch-Keyword-And-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "'='" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '030' Literal.Number.Integer '-' Operator 'Process-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -4690,7 +4690,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '019' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -4698,7 +4698,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -4720,7 +4720,7 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '021' Literal.Number.Integer '-' Operator 'Build-And-Issue-Command' Name.Variable @@ -4728,14 +4728,14 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -4743,7 +4743,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '029' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -4751,7 +4751,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -4759,11 +4759,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '030' Literal.Number.Integer '-' Operator 'Process-Keyword' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -4777,7 +4777,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '031' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -4785,29 +4785,29 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Keyword' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin '.' Punctuation '\n' Text @@ -4815,7 +4815,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '032' Literal.Number.Integer '-' Operator 'Process' Name.Variable @@ -4823,95 +4823,95 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-EXTRA' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'J' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "'='" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dummy' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'S-EXTRA' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'LENGTH' Keyword.Pseudo '(' Punctuation 'Command-Line-Args' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-CONFIG' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'CONFIG'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -4919,269 +4919,269 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'BS2000'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-BS2000' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'COBOL85'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL85' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'COBOL2002'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL2002' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'DEFAULT'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-DEFAULT' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'IBM'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-IBM' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'MF'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MF' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'MVS'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MVS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OTHER\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'An invalid /CONFIG switch value '" Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "'was specified on the command line '" Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "'- ignored'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-DEBUG' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'DEBUG'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5189,67 +5189,67 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-DLL' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'DLL'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5257,64 +5257,64 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-EXECUTE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'EXECUTE'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5322,64 +5322,64 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-NOTRUNC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'NOTRUNC'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5387,67 +5387,67 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-SOURCE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'SOURCE'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5455,64 +5455,64 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '050' Literal.Number.Integer '-' Operator 'Process-Yes-No-All' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-TRACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'TRACE'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5520,67 +5520,67 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '050' Literal.Number.Integer '-' Operator 'Process-Yes-No-All' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Is-XREF' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'XREF'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5588,66 +5588,66 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '050' Literal.Number.Integer '-' Operator 'Process-Yes-No-All' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Good' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OTHER\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved '\'"\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Switch-Keyword' Name.Variable @@ -5655,42 +5655,42 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '\'" is not a valid switch \'' Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "'- ignored'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Bad' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -5698,7 +5698,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '039' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -5706,7 +5706,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -5714,11 +5714,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -5732,7 +5732,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '042' Literal.Number.Integer '-' Operator 'Process' Name.Variable @@ -5740,64 +5740,64 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'Y'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'YES'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo "'N'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'NO'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'To' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OTHER\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved '\'*ERROR: "\'' Literal.String.Single -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Switch-Value' Name.Variable @@ -5805,45 +5805,45 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '\'" is not a valid value for the "\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Switch-Keyword' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '\'" switch\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Is-Bad' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -5851,7 +5851,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '049' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -5859,7 +5859,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -5867,11 +5867,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '050' Literal.Number.Integer '-' Operator 'Process-Yes-No-All' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -5885,7 +5885,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '052' Literal.Number.Integer '-' Operator 'Process' Name.Variable @@ -5893,39 +5893,39 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'A'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'ALL'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -5933,7 +5933,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '059' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -5941,7 +5941,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -5949,11 +5949,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '060' Literal.Number.Integer '-' Operator 'Process-Yes-No-Auto' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -5967,7 +5967,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '061' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -5975,71 +5975,71 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SV-1' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'A'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '070' Literal.Number.Integer '-' Operator 'Find-LINKAGE-SECTION' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-As-Subpgm' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'Y'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'N'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '040' Literal.Number.Integer '-' Operator 'Process-Yes-No-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -6047,11 +6047,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '070' Literal.Number.Integer '-' Operator 'Find-LINKAGE-SECTION' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -6065,7 +6065,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '071' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -6073,40 +6073,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'OPEN' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'INPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-As-Mainpgm' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'More-To-1st-Prog' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator '1' Literal.Number.Integer @@ -6114,67 +6114,67 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'READ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable -' ' Text +' ' Text.Whitespace 'AT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-READ\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'CHECKSOURCE'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code-Record' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'F-Source-Record-Type' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-CALL\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Source-Rec-Ident' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator '1' Literal.Number.Integer 'st-Prog-Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -6182,7 +6182,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '072' Literal.Number.Integer '-' Operator 'Process-Source' Name.Variable @@ -6190,103 +6190,103 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Source-Rec-IgnoCOB-COLOR-RED' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Source-Rec-Linkage' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Source-Rec-Ident' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'READ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable -' ' Text +' ' Text.Whitespace 'AT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-READ\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'CHECKSOURCE'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code-Record' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'F-Source-Record-Type' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-CALL\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Source-Rec-Linkage' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-As-Subpgm' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -6294,7 +6294,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '079' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -6302,7 +6302,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -6310,11 +6310,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '100' Literal.Number.Integer '-' Operator 'Initialization' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -6330,7 +6330,7 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '101' Literal.Number.Integer '-' Operator 'Determine-OS-Type' Name.Variable @@ -6338,464 +6338,464 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'GETOSTYPE'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Type' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Unknown' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'\\'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'Unknown'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Type-Literal' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F11' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F1' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F12' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F2' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F13' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F3' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F14' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F4' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F15' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F5' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F16' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F6' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F17' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F7' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Windows' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'\\'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'Windows'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Type-Literal' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F13' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F1' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F14' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F2' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F15' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F3' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F16' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F4' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F17' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F5' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F18' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F6' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F19' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F7' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'/'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'Cygwin'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Type-Literal' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F11' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F1' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F12' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F2' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F13' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F3' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F14' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F4' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F15' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F5' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F16' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F6' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F17' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F7' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-UNIX' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'/'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'UNIX '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OS-Type-Literal' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F11' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F1' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F12' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F2' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F13' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F3' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F14' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F4' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F15' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F5' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F16' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F6' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-SCR-F17' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F7' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-EVALUATE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '102' Literal.Number.Integer '-' Operator 'Set-Environment-Vars' Name.Variable @@ -6803,36 +6803,36 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ENVIRONMENT ' Keyword.Reserved "'COB_SCREEN_EXCEPTIONS'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO ' Keyword.Pseudo "'Y'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ENVIRONMENT ' Keyword.Reserved "'COB_SCREEN_ESC'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO ' Keyword.Pseudo "'Y'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '103' Literal.Number.Integer '-' Operator 'Generate-Cobc-Output-Fn' Name.Variable @@ -6840,37 +6840,37 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ACCEPT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Env-TEMP' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ENVIRONMENT ' Keyword.Reserved '"TEMP"' Literal.String.Double '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-ACCEPT\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Env-TEMP' Name.Variable @@ -6880,28 +6880,28 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace "'OC-Messages.TXT'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -6909,7 +6909,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '104' Literal.Number.Integer '-' Operator 'Generate-Banner-Line-Info' Name.Variable @@ -6917,45 +6917,45 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN-COMPILED ' Name.Function '(' Punctuation '1' Literal.Number.Integer ':' Punctuation '12' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OC-Compiled' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OC-Compiled' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPLACING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo "'/'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "':'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'AFTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INITIAL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant '.' Punctuation '\n' Text @@ -6963,7 +6963,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '105' Literal.Number.Integer '-' Operator 'Establish-Switch-Settings' Name.Variable @@ -6971,345 +6971,345 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ACCEPT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COMMAND-LINE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END-ACCEPT\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Command-Line-Args' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Leading' Keyword.Pseudo ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'TALLYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace 'FOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo "'@'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0\n ' Literal.Number.Integer 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "'@'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Dummy' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'REPLACING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FIRST ' Keyword.Pseudo "'@'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LOW-VALUES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LOW-VALUES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dummy' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'@'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Command-Line-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'DISPLAY\n ' Keyword.Reserved "'No program filename was specified'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '010' Literal.Number.Integer '-' Operator 'Parse-Args' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'A'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'S'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Keyword' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'A'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Switch-Value' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '070' Literal.Number.Integer '-' Operator 'Find-LINKAGE-SECTION' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-As-Subpgm' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'Y'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'N'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-Yes-No-Switches' Name.Variable -' ' Text +' ' Text.Whitespace 'REPLACING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo "'Y'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-Yes-No-Switches' Name.Variable -' ' Text +' ' Text.Whitespace 'REPLACING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo "'N'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '106' Literal.Number.Integer '-' Operator 'Determine-Folder-Path' Name.Variable @@ -7317,239 +7317,239 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Move' Keyword.Reserved -' ' Text +' ' Text.Whitespace '256 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable -' ' Text +' ' Text.Whitespace 'AND' Operator.Word -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation '2' Literal.Number.Integer ':' Punctuation '1' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "':'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'\\'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'FN-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SUBTRACT' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0\n ' Literal.Number.Integer 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-File-Name' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'*'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FN-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "'*'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Prog-File-Name' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'FN-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNSTRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-File-Name' Name.Variable -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BY ' Keyword.Pseudo "'.'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Prog-Name' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Prog-Extension' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-UNSTRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'ACCEPT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ENVIRONMENT ' Keyword.Reserved "'CD'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-ACCEPT' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved '"CBL_CHANGE_DIR"' Literal.String.Double '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Prog-Folder' Name.Variable @@ -7559,45 +7559,45 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-CALL\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable -' ' Text +' ' Text.Whitespace 'AND' Operator.Word -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation '2' Literal.Number.Integer ':' Punctuation '1' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "':'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'/'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -7605,7 +7605,7 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '107' Literal.Number.Integer '-' Operator 'Other' Name.Variable @@ -7613,23 +7613,23 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ALL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LD-Horiz-Line' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Horizontal-Line' Name.Variable '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CONCATENATE' Name.Function '(' Punctuation "' OCic for '" Literal.String.Single @@ -7637,7 +7637,7 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'OS-Type-Literal' Name.Variable @@ -7648,27 +7648,27 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace "' Copyright (C) 2009-2010, Gary L. Cutler,'" Literal.String.Single ',' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace "' GPL'" Literal.String.Single ')' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '.' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text @@ -7676,7 +7676,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '109' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -7684,7 +7684,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -7692,11 +7692,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '200' Literal.Number.Integer '-' Operator 'Let-User-Set-Switches' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -7712,7 +7712,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '201' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -7720,15 +7720,15 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Switch-Changes' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin '.' Punctuation '\n' Text @@ -7736,7 +7736,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '202' Literal.Number.Integer '-' Operator 'Show-And-Change-Switches' Name.Variable @@ -7744,709 +7744,709 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'No-Switch-Changes' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ACCEPT\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-ACCEPT\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-CRT-STATUS' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '0\n ' Literal.Number.Integer 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'COB-CRT-STATUS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F1' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F2' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F3' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F4' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'AND' Operator.Word -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-EXECUTE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F5' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F6' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F7' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F8' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE' Name.Constant '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-F9' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE' Name.Constant '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'COB-SCR-ESC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F1' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-BS2000' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F2' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL85' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F3' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL2002' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F4' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-DEFAULT' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F5' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-IBM' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F6' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MF' Name.Variable '\n' Text 'GC0310' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CK-S-F7' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES ' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-CfgS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Selection-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MVS' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OTHER\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'An unsupported key was pressed'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'No-Switch-Changes' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -8454,7 +8454,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '209' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -8462,7 +8462,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -8470,11 +8470,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '210' Literal.Number.Integer '-' Operator 'Run-Compiler' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -8488,7 +8488,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '211' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -8496,179 +8496,179 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-BS2000' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'bs2000'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL85' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'cobol85'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-COBOL2002' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'cobol2002'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-IBM' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'ibm'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MF' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'mf'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-Cfg-MVS' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'mvs'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OTHER\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "'default'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Config-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -8676,7 +8676,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '212' Literal.Number.Integer '-' Operator 'Build-Compile-Command' Name.Variable @@ -8684,24 +8684,24 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'cobc -std='" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Config-File' Name.Variable @@ -8711,291 +8711,291 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-m '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-x '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-DEBUG' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-fdebugging-line '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-NOTRUNC' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-fnotrunc '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-TRACEALL' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-ftraceall '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-TRACE' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'-ftrace '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n' Keyword.Reserved '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-EXTRA' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "' '" Literal.String.Single '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'S-Extra' Name.Variable @@ -9005,44 +9005,44 @@ '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0709' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Prog-File-Name' Name.Variable @@ -9052,27 +9052,27 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -9080,7 +9080,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '213' Literal.Number.Integer '-' Operator 'Run-Compiler' Name.Variable @@ -9088,55 +9088,55 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' Compiling...'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Output-File-Avail' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cobc-Cmd' Name.Variable @@ -9146,12 +9146,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "' 2>'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cobc-Output-File' Name.Variable @@ -9161,28 +9161,28 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'SYSTEM'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cmd' Name.Variable @@ -9192,254 +9192,254 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0\n' Literal.Number.Integer 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-Failed' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'OPEN' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'INPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'READ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'AT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CONTINUE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'NOT' Operator.Word -' ' Text +' ' Text.Whitespace 'AT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK-Warn' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-READ' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' Compilation Was Successful'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'C$SLEEP'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '2\n' Literal.Number.Integer 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Blank-Screen' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-OK-Warn' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY ' Keyword.Reserved "' Compilation was successful, but '" Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace "'warnings were generated:'" Literal.String.Single '\n' Text @@ -9448,17 +9448,17 @@ 'SCROLL* WITH SCROLL UP 1 LINE\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY ' Keyword.Reserved "'Compilation Failed:'" Literal.String.Single '\n' Text @@ -9468,43 +9468,43 @@ 'SCROLL* WITH SCROLL UP 1 LINE\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-Failed' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0609' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Complete' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE' Name.Builtin '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY ' Keyword.Reserved "' '" Literal.String.Single '\n' Text @@ -9514,53 +9514,53 @@ 'SCROLL* WITH SCROLL UP 1 LINE\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'OPEN' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'INPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'FOREVER' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'READ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable -' ' Text +' ' Text.Whitespace 'AT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-READ' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cobc-Output-Rec' Name.Variable @@ -9574,24 +9574,24 @@ 'SCROLL* WITH SCROLL UP 1 LINE\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-PERFORM' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Cobc-Output' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY ' Keyword.Reserved "' '" Literal.String.Single '\n' Text @@ -9601,12 +9601,12 @@ 'SCROLL* WITH SCROLL UP 2 LINES\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY ' Keyword.Reserved "'Press ENTER to close:'" Literal.String.Single '\n' Text @@ -9616,43 +9616,43 @@ 'SCROLL* WITH SCROLL UP 1 LINE\n' Comment 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ACCEPT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Dummy' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CONSOLE' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-ACCEPT' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Blank-Screen' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -9660,7 +9660,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '219' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -9668,25 +9668,25 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Compile-Failed' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -9694,11 +9694,11 @@ ' /\n' Comment 'GC0410' Comment -' ' Text +' ' Text.Whitespace '220' Literal.Number.Integer '-' Operator 'Make-Listing' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -9713,7 +9713,7 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '221' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -9721,43 +9721,43 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' Generating cross-reference listing...'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved '"CBL_DELETE_FILE"' Literal.String.Double '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CONCATENATE' Name.Function '(' Punctuation 'TRIM' Name.Function @@ -9772,22 +9772,22 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text @@ -9795,7 +9795,7 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '213' Literal.Number.Integer '-' Operator 'Run-OCXref' Name.Variable @@ -9803,131 +9803,131 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'LISTING'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'S-SOURCE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'S-XREF' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'File-Name' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'ON' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'EXCEPTION' Keyword.Pseudo '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' LISTING module is not available'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0\n' Literal.Number.Integer 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' Listing generated'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Windows' Name.Variable -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace "'cmd /c '" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Prog-Name' Name.Variable @@ -9937,36 +9937,36 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace "'.lst'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'SYSTEM'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cmd' Name.Variable @@ -9976,99 +9976,99 @@ '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'MOVE ' Keyword.Reserved "' Listing generation failed'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'C$SLEEP'" Literal.String.Single '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '2\n' Literal.Number.Integer 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '230' Literal.Number.Integer '-' Operator 'Run-Program' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -10082,7 +10082,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '232' Literal.Number.Integer '-' Operator 'Build-Command' Name.Variable @@ -10090,145 +10090,145 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'cobcrun '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable -' ' Text +' ' Text.Whitespace 'AND' Operator.Word -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation '2' Literal.Number.Integer ':' Punctuation '1' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "':'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'/cygdrive/'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'LOWER-CASE' Name.Function '(' Punctuation 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation '1' Literal.Number.Integer ':' Punctuation @@ -10238,49 +10238,49 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'VARYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '3 ' Literal.Number.Integer 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1\n' Literal.Number.Integer 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'LENGTH' Keyword.Pseudo '(' Punctuation 'TRIM' Name.Function @@ -10291,60 +10291,60 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'J' Name.Variable ':' Punctuation '1' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'\\'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'/'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Prog-Folder' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'J' Name.Variable ':' Punctuation @@ -10353,46 +10353,46 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-PERFORM' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved '\'"\'' Literal.String.Single -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Prog-Folder' Name.Variable @@ -10402,113 +10402,113 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Dir-Char' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'ELSE' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Cygwin' Name.Variable -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'OS-UNIX' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'./'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Prog-Name' Name.Variable @@ -10518,93 +10518,93 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-STRING' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-SUBROUTINE' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'AND' Operator.Word -' ' Text +' ' Text.Whitespace 'S-DLL' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace "' '" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "'.exe'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'DELIMITED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SIZE\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'S-ARGS' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '\n' Text 'GC0809' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved "' '" Literal.String.Single -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'S-ARGS' Name.Variable @@ -10614,88 +10614,88 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OS-Unknown' Name.Variable -' ' Text +' ' Text.Whitespace 'OR' Operator.Word -' ' Text +' ' Text.Whitespace 'OS-Windows' Name.Variable '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved '\'"&&pause\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'STRING ' Keyword.Reserved '\';echo "Press ENTER to close...";read\'' Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INTO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Cmd' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WITH' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'POINTER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-STRING\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -10703,7 +10703,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '233' Literal.Number.Integer '-' Operator 'Run-Program' Name.Variable @@ -10711,27 +10711,27 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Blank-Screen' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'SYSTEM'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRIM' Name.Function '(' Punctuation 'Cmd' Name.Variable @@ -10741,25 +10741,25 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-CALL\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '.' Punctuation '\n' Text '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '239' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -10767,7 +10767,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'EXIT' Keyword.Reserved '.' Punctuation '\n' Text @@ -10775,11 +10775,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '900' Literal.Number.Integer '-' Operator 'Terminate' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -10793,7 +10793,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '901' Literal.Number.Integer '-' Operator 'Display-Message' Name.Variable @@ -10801,59 +10801,59 @@ '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Output-Message' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'Switches-Screen' Name.Variable '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'CALL ' Keyword.Reserved "'C$SLEEP'" Literal.String.Single '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '2\n' Literal.Number.Integer 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-CALL' Keyword.Reserved '\n' Text 'GC0909' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DISPLAY\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Blank-Screen' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-DISPLAY\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -10861,7 +10861,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '909' Literal.Number.Integer '-' Operator 'Done' Name.Variable @@ -10869,7 +10869,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -10877,11 +10877,11 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PROGRAM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'OCic' Name.Variable '.' Punctuation '\n' Text @@ -10889,18 +10889,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IDENTIFICATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROGRAM-ID' Keyword.Reserved '.' Punctuation -' ' Text +' ' Text.Whitespace 'GETOSTYPE' Name.Variable '.' Punctuation '\n' Text @@ -10934,93 +10934,93 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'ENVIRONMENT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'CONFIGURATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPOSITORY' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FUNCTION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTRINSIC' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DATA' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WORKING-STORAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Env-Path' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1024)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'Main' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '010' Literal.Number.Integer '-' Operator 'Get-TEMP-Var' Name.Variable @@ -11028,207 +11028,207 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Env-Path' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ACCEPT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Env-Path' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ENVIRONMENT ' Keyword.Reserved '"PATH"' Literal.String.Double '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ON' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'EXCEPTION\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-ACCEPT\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Env-Path' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACES\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Env-Path' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TALLYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace 'FOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo '";"' Literal.String.Double '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer '*> Must be some form of UNIX\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INSPECT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Env-Path' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'TALLYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TALLY' Name.Variable -' ' Text +' ' Text.Whitespace 'FOR' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL ' Keyword.Pseudo '"/cygdrive/"' Literal.String.Double '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer '*> UNIX/MacOS\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '3 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ELSE ' Keyword.Reserved '*> Cygwin\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '2 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE ' Keyword.Reserved '*> Assume Windows[/MinGW]\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RETURN-CODE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PROGRAM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'GETOSTYPE' Name.Variable '.' Punctuation '\n' Text @@ -11236,18 +11236,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IDENTIFICATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROGRAM-ID' Keyword.Reserved '.' Punctuation -' ' Text +' ' Text.Whitespace 'CHECKSOURCE' Name.Variable '.' Punctuation '\n' Text @@ -11281,70 +11281,70 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'ENVIRONMENT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'CONFIGURATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPOSITORY' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FUNCTION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTRINSIC' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DATA' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WORKING-STORAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Compressed-Src' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'OCCURS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'TIMES' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -11352,40 +11352,40 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Flags' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Found-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Skipping-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'Y'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'Not-Skipping-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'N'" Literal.String.Single '.' Punctuation @@ -11394,12 +11394,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-CHAR' Keyword.Type '.' Punctuation '\n' Text @@ -11407,41 +11407,41 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'J' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-CHAR' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'LINKAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Argument-1' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '02 ' Literal.Number.Integer 'A1-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'OCCURS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '80 ' Literal.Number.Integer 'TIMES' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -11449,71 +11449,71 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Argument-2' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'A2-LINKAGE-SECTION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'L'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'A2-IDENTIFICATION-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'I'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer '88' Literal.Number.Integer '-' Operator 'A2-Nothing-Special' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "' '" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Argument-1' Name.Variable ',' Punctuation -' ' Text +' ' Text.Whitespace 'Argument-2' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'Main' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -11521,7 +11521,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '010' Literal.Number.Integer '-' Operator 'Initialize' Name.Variable @@ -11529,34 +11529,34 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'A2-Nothing-Special' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'A1-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation '7' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'*'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -11564,7 +11564,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '020' Literal.Number.Integer '-' Operator 'Compress-Multiple-SPACES' Name.Variable @@ -11572,165 +11572,165 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Not-Skipping-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '0 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SPACES' Name.Constant -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Compressed-Src' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'VARYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1\n ' Literal.Number.Integer 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '80\n ' Literal.Number.Integer 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'A1-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Not-Skipping-SPACE' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ADD' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'UPPER-CASE' Name.Function '(' Punctuation 'A1-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation ')' Punctuation -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'J' Name.Variable ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Skipping-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'ELSE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'Not-Skipping-SPACE' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'ADD' Keyword.Reserved -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'J' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'MOVE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'A1-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'J' Name.Variable ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -11738,7 +11738,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '030' Literal.Number.Integer '-' Operator 'Scan-Compressed-Src' Name.Variable @@ -11746,193 +11746,193 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'VARYING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'FROM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1 ' Literal.Number.Integer 'BY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '1\n ' Literal.Number.Integer 'UNTIL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'I' Name.Variable -' ' Text +' ' Text.Whitespace '>' Operator -' ' Text +' ' Text.Whitespace '66\n ' Literal.Number.Integer 'EVALUATE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'WHEN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'*'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Compressed-Src' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable -' ' Text +' ' Text.Whitespace ':' Punctuation -' ' Text +' ' Text.Whitespace '2' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'*>'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo '(' Punctuation 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'L'" Literal.String.Single ')' Punctuation -' ' Text +' ' Text.Whitespace 'AND ' Operator.Word '(' Punctuation 'I' Name.Variable -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '66' Literal.Number.Integer ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Compressed-Src' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable -' ' Text +' ' Text.Whitespace ':' Punctuation -' ' Text +' ' Text.Whitespace '15' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'LINKAGE SECTION'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'A2-LINKAGE-SECTION' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'WHEN ' Keyword.Pseudo '(' Punctuation 'CS-Char' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'I'" Literal.String.Single ')' Punctuation -' ' Text +' ' Text.Whitespace 'AND ' Operator.Word '(' Punctuation 'I' Name.Variable -' ' Text +' ' Text.Whitespace '<' Operator -' ' Text +' ' Text.Whitespace '58' Literal.Number.Integer ')' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Compressed-Src' Name.Variable -' ' Text +' ' Text.Whitespace '(' Punctuation 'I' Name.Variable -' ' Text +' ' Text.Whitespace ':' Punctuation -' ' Text +' ' Text.Whitespace '23' Literal.Number.Integer ')' Punctuation -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace "'IDENTIFICATION '" Literal.String.Single -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace "'DIVISION'" Literal.String.Single '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SET' Keyword.Reserved -' ' Text +' ' Text.Whitespace '88' Literal.Number.Integer '-' Operator 'A2-IDENTIFICATION-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TRUE\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-EVALUATE\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'END-PERFORM\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -11940,7 +11940,7 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '099' Literal.Number.Integer '-' Operator 'Never-Found-Either-One' Name.Variable @@ -11948,17 +11948,17 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PROGRAM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'CHECKSOURCE' Name.Variable '.' Punctuation '\n' Text @@ -11966,18 +11966,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IDENTIFICATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PROGRAM-ID' Keyword.Reserved '.' Punctuation -' ' Text +' ' Text.Whitespace 'LISTING' Name.Variable '.' Punctuation '\n' Text @@ -12055,210 +12055,210 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'ENVIRONMENT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'CONFIGURATION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'REPOSITORY' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FUNCTION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ALL' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'INTRINSIC' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INPUT-OUTPUT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FILE-CONTROL' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Expand-Code' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Expanded-Src-Filename' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Report-File' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Report-Filename' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Sort-File' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'DISK' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SELECT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable -' ' Text +' ' Text.Whitespace 'ASSIGN' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'TO' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Src-Filename' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ORGANIZATION' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'IS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LINE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SEQUENTIAL' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'DATA' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FILE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Expand-Code' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Expand-Code-Rec' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'ECR-1' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'ECR-2-256' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Expand-Code-Rec-Alt' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'ECR-1-128' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(128)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'ECR-129-256' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(128)' Keyword.Type '.' Punctuation '\n' Text @@ -12266,18 +12266,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Report-File' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Report-Rec' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(135)' Keyword.Type '.' Punctuation '\n' Text @@ -12285,86 +12285,86 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Sort-File' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Sort-Rec' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Prog-ID' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Token-UC' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Section' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Line-No-Def' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(6)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SR-Reference' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SR-Line-No-Ref' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(6)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SR-Ref-Flag' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -12372,59 +12372,59 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'FD ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Source-Code' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Source-Code-Rec' Name.Variable '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SCR-1-128' Name.Variable '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(6)' Keyword.Type '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SCR-7' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0410' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(121)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SCR-129-256' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(128)' Keyword.Type '.' Punctuation '\n' Text @@ -12432,20 +12432,20 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'WORKING-STORAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '78 ' Literal.Number.Integer 'Line-Nos-Per-Rec' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '8' Literal.Number.Integer '.' Punctuation '\n' Text @@ -12453,10 +12453,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Cmd' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -12464,10 +12464,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Delim' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(2)' Keyword.Type '.' Punctuation '\n' Text @@ -12475,35 +12475,35 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Detail-Line-S' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLS-Line-No' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC ZZZZZ9' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLS-Statement' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(128)' Keyword.Type '.' Punctuation '\n' Text @@ -12511,120 +12511,120 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Detail-Line-X' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLX-Prog-ID' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLX-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLX-Line-No-Def' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC ZZZZZ9' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLX-Section' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'DLX-Reference' Name.Variable -' ' Text +' ' Text.Whitespace 'OCCURS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Line-Nos-Per-Rec' Name.Variable -' ' Text +' ' Text.Whitespace 'TIMES' Keyword.Pseudo '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'DLX-Line-No-Ref' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC ZZZZZ9' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'DLX-Ref-Flag' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -12632,10 +12632,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Dummy' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -12643,10 +12643,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Env-TEMP' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -12654,10 +12654,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Expanded-Src-Filename' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -12665,10 +12665,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Filename' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -12676,91 +12676,91 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Flags' Name.Variable '.' Punctuation '\n' Text 'GC0710' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Duplicate' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-First-Record' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-In-Which-Pgm' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-Main-Module' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'M'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-Copybook' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo "'C'" Literal.String.Single '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Last-Token-Ended-Sent' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Processing-PICTURE' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Token-Ended-Sentence' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text 'GC0710' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'F-Verb-Has-Been-Found' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text @@ -12768,26 +12768,26 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Group-Indicators' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'GI-Prog-ID' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'GI-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text @@ -12795,36 +12795,36 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-1S' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(125)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"OpenCOBOL 1.1 06FEB2009 Source Listing - "' Literal.String.Double -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '"OCic Copyright (C) 2009-2010, Gary L. Cutler, GPL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'H1S-Date' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9999/99/99' Keyword.Type '.' Punctuation '\n' Text @@ -12832,36 +12832,36 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-1X' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(125)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"OpenCOBOL 1.1 06FEB2009 Cross-Reference Listing - "' Literal.String.Double -' ' Text +' ' Text.Whitespace '&' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '"OCic Copyright (C) 2009-2010, Gary L. Cutler, GPL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'H1X-Date' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9999/99/99' Keyword.Type '.' Punctuation '\n' Text @@ -12869,10 +12869,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-2' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(135)' Keyword.Type '.' Punctuation '\n' Text @@ -12880,12 +12880,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-4S' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(16)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"Line Statement"' Literal.String.Double '.' Punctuation @@ -12894,18 +12894,18 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-4X' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(96)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"PROGRAM-ID Identifier/Register/Function Defn Wher\n' Literal.String.Double ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace '"e Defined References (* = Updated)"' Literal.String.Double '.' Punctuation '\n' Text @@ -12913,23 +12913,23 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-5S' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(135)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"====== =====================================================\n' Literal.String.Double ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace '"============================================================\n' Literal.String.Double ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace '"==============="' Literal.String.Double '.' Punctuation '\n' Text @@ -12937,23 +12937,23 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Heading-5X' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(135)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE\n ' Keyword.Pseudo '"=============== ================================ ====== ====\n' Literal.String.Double ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace '"=========== ================================================\n' Literal.String.Double ' ' Comment '-' Operator -' ' Text +' ' Text.Whitespace '"==============="' Literal.String.Double '.' Punctuation '\n' Text @@ -12961,10 +12961,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Held-Reference' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(100)' Keyword.Type '.' Punctuation '\n' Text @@ -12972,12 +12972,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'I' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -12985,12 +12985,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'J' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -12998,12 +12998,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Lines-Left' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -13011,12 +13011,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Lines-Per-Page' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -13024,10 +13024,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Lines-Per-Page-ENV' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -13035,12 +13035,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Num-UserNames' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -13048,10 +13048,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'PIC-X10' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(10)' Keyword.Type '.' Punctuation '\n' Text @@ -13059,10 +13059,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'PIC-X32' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text @@ -13070,10 +13070,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'PIC-X256' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -13081,10 +13081,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Program-Path' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -13092,10 +13092,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Report-Filename' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -13103,7154 +13103,7154 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Reserved-Words' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IABS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VACCEPT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ACCESS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IACOS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ACTIVE-CLASS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VADD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ADDRESS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ADVANCING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KAFTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALIGNED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VALLOCATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHABET"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHABETIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHABETIC-LOWER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHABETIC-UPPER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHANUMERIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALPHANUMERIC-EDITED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALSO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VALTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ALTERNATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AND"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IANNUITY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ANY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ANYCASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ARE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AREA"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AREAS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ARGUMENT-NUMBER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ARGUMENT-VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ASCENDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IASIN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ASSIGN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IATAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AUTHOR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AUTO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AUTO-SKIP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AUTOMATIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" AUTOTERMINATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BACKGROUND-COLOR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BASED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BEEP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BEFORE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BELL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY-C-LONG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY-CHAR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY-DOUBLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY-LONG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BINARY-SHORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BLANK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BLINK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BLOCK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BOOLEAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" BOTTOM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"YBY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IBYTE-LENGTH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC01"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC02"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC03"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC04"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC05"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC06"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC07"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC08"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC09"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC10"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC11"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MC12"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCALL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCANCEL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CHAINING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICHAR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CHARACTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CHARACTERS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CLASS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CLASS-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCLOSE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICOB-CRT-STATUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CODE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CODE-SET"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COLLATING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COLS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COLUMN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COLUMNS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICOMBINED-DATETIME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMMA"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMMAND-LINE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCOMMIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMMON"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-1"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-2"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-3"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-4"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-5"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMP-X"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-1"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-2"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-3"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-4"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-5"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COMPUTATIONAL-X"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCOMPUTE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICONCATENATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONDITION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KCONFIGURATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MCONSOLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONSTANT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONTAINS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONTENT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VCONTINUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONTROL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CONTROLS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KCONVERTING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" COPY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CORR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CORRESPONDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICOS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KCOUNT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CRT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CURRENCY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ICURRENT-DATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CURSOR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" CYCLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KDATA"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DATA-POINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DATE-COMPILED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DATE-MODIFIED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IDATE-OF-INTEGER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IDATE-TO-YYYYMMDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DATE-WRITTEN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DAY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IDAY-OF-INTEGER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DAY-OF-WEEK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IDAY-TO-YYYYDDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DEBUGGING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DECIMAL-POINT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DECLARATIVES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DEFAULT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VDELETE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DELIMITED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KDELIMITER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DEPENDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DESCENDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DESTINATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DETAIL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DISABLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DISK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VDISPLAY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VDIVIDE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KDIVISION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KDOWN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DUPLICATES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" DYNAMIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EBCDIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VELSE"' Literal.String.Double '.' Punctuation '\n' Text 'GC0710' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KEND"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-ACCEPT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-ADD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-CALL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-COMPUTE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-DELETE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-DISPLAY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-DIVIDE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-EVALUATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-IF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-MULTIPLY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-OF-PAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-PERFORM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-READ"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-RETURN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-REWRITE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-SEARCH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-START"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-STRING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-SUBTRACT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-UNSTRING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" END-WRITE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VENTRY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KENVIRONMENT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ENVIRONMENT-NAME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ENVIRONMENT-VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EOL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EOP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EOS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EQUAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KEQUALS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ERASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ERROR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ESCAPE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VEVALUATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EXCEPTION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXCEPTION-FILE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXCEPTION-LOCATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EXCEPTION-OBJECT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXCEPTION-STATEMENT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXCEPTION-STATUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EXCLUSIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VEXIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IEXP10"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EXTEND"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" EXTERNAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IFACTORIAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FACTORY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FALSE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KFD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KFILE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FILE-CONTROL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FILE-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FILLER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FINAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FIRST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-BINARY-16"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-BINARY-34"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-BINARY-7"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-DECIMAL-16"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-DECIMAL-34"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-EXTENDED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-LONG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FLOAT-SHORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FOOTING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FOR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FOREGROUND-COLOR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FOREVER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FORMAT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MFORMFEED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IFRACTION-PART"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VFREE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FROM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FULL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FUNCTION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FUNCTION-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" FUNCTION-POINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VGENERATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" GET"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KGIVING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" GLOBAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VGO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VGOBACK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" GREATER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" GROUP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" GROUP-USAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" HEADING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" HIGH-VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" HIGH-VALUES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" HIGHLIGHT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" I-O"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" I-O-CONTROL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KIDENTIFICATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VIF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" IGNORE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" IGNORING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" IN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INDEX"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KINDEXED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INDICATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INFINITY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INHERITS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INITIAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INITIALISED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VINITIALIZE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INITIALIZED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VINITIATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INPUT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KINPUT-OUTPUT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VINSPECT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INSTALLATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IINTEGER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IINTEGER-OF-DATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IINTEGER-OF-DAY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IINTEGER-PART"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INTERFACE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INTERFACE-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KINTO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INTRINSIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INVALID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" INVOKE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" IS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" JUST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" JUSTIFIED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" KEY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LABEL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LAST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LEADING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LEFT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LEFT-JUSTIFY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILENGTH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LESS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LIMIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LIMITS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LINAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILINAGE-COUNTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LINE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LINE-COUNTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LINES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KLINKAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KLOCAL-STORAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOCALE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOCALE-DATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOCALE-TIME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOCALE-TIME-FROM-SECONDS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOCK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOG10"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOW-VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOW-VALUES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOWER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ILOWER-CASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" LOWLIGHT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" MANUAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMAX"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMEAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMEDIAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" MEMORY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VMERGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" METHOD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" METHOD-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMIDRANGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMIN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" MINUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IMOD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" MODE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VMOVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" MULTIPLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VMULTIPLY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NATIONAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NATIONAL-EDITED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NATIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NEGATIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NESTED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VNEXT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NOT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NULL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NULLS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NUMBER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"INUMBER-OF-CALL-PARAMETERS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NUMBERS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NUMERIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" NUMERIC-EDITED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"INUMVAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"INUMVAL-C"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OBJECT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OBJECT-COMPUTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OBJECT-REFERENCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OCCURS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OFF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OMITTED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ON"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ONLY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VOPEN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OPTIONAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OPTIONS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IORD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IORD-MAX"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IORD-MIN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ORDER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ORGANIZATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OTHER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OUTPUT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OVERFLOW"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OVERLINE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" OVERRIDE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PACKED-DECIMAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PADDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PAGE-COUNTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PARAGRAPH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VPERFORM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IPI"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KPIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KPICTURE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PLUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KPOINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" POSITION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" POSITIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PRESENT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IPRESENT-VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PREVIOUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MPRINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PRINTING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KPROCEDURE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROCEDURE-POINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROCEDURES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROCEED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROGRAM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KPROGRAM-ID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROGRAM-POINTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROMPT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROPERTY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" PROTOTYPE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" QUOTE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" QUOTES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RAISE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RAISING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IRANDOM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IRANGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VREAD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VREADY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RECORD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RECORDING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RECORDS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RECURSIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KREDEFINES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REEL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REFERENCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RELATIVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VRELEASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IREM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REMAINDER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REMARKS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REMOVAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KRENAMES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KREPLACING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KREPORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REPORTING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REPORTS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REPOSITORY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REPRESENTS-NOT-A-NUMBER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REQUIRED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RESERVE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RESUME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RETRY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VRETURN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IRETURN-CODE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KRETURNING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IREVERSE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REVERSE-VIDEO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" REWIND"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VREWRITE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RIGHT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RIGHT-JUSTIFY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VROLLBACK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ROUNDED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" RUN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SAME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KSCREEN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SCROLL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KSD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSEARCH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISECONDS-FROM-FORMATTED-TIME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISECONDS-PAST-MIDNIGHT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KSECTION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SECURE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SECURITY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SEGMENT-LIMIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SELECT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SELF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SENTENCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SEPARATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SEQUENCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SEQUENTIAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSET"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SHARING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISIGN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SIGNED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SIGNED-INT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SIGNED-LONG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SIGNED-SHORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISIN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SIZE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SORT-MERGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISORT-RETURN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SOURCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SOURCE-COMPUTER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SOURCES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SPACE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SPACE-FILL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SPACES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SPECIAL-NAMES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISQRT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" STANDARD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" STANDARD-1"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" STANDARD-2"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISTANDARD-DEVIATION"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSTART"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" STATUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSTOP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISTORED-CHAR-LENGTH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSTRING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISUBSTITUTE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISUBSTITUTE-CASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSUBTRACT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ISUM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SUPER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VSUPPRESS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-1"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-2"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-3"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-4"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-5"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-6"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-7"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSWITCH-8"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SYMBOLIC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SYNC"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SYNCHRONIZED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSERR"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSIN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSIPT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSLIST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSLST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"MSYSOUT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" SYSTEM-DEFAULT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TABLE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KTALLYING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ITAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TAPE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VTERMINATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TEST"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ITEST-DATE-YYYYMMDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ITEST-DAY-YYYYDDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" THAN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" THEN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" THROUGH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" THRU"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TIME"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TIMES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KTO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TOP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TRAILING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TRAILING-SIGN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VTRANSFORM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"ITRIM"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TRUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TYPE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" TYPEDEF"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNDERLINE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNIVERSAL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VUNLOCK"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNSIGNED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNSIGNED-INT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNSIGNED-LONG"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNSIGNED-SHORT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VUNSTRING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UNTIL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KUP"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UPDATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UPON"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" UPPER"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IUPPER-CASE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" USAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VUSE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" USER-DEFAULT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KUSING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VAL-STATUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VALID"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VALIDATE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VALIDATE-STATUS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VALUE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" VALUES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IVARIANCE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KVARYING"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" WAIT"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VWHEN"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IWHEN-COMPILED"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" WITH"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" WORDS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"KWORKING-STORAGE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"VWRITE"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"IYEAR-TO-YYYY"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" YYYYDDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" YYYYMMDD"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ZERO"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ZERO-FILL"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ZEROES"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'FILLER' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(33)' Keyword.Type -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" ZEROS"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Reserved-Word-Table' Name.Variable -' ' Text +' ' Text.Whitespace 'REDEFINES' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Reserved-Words' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'Reserved-Word' Name.Variable -' ' Text +' ' Text.Whitespace 'OCCURS' Keyword.Pseudo -' ' Text +' ' Text.Whitespace '591 ' Literal.Number.Integer 'TIMES\n ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'ASCENDING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'KEY' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RW-Word' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INDEXED' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'RW-Idx' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'RW-Type' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'RW-Word' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text @@ -20258,10 +20258,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Saved-Section' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(15)' Keyword.Type '.' Punctuation '\n' Text @@ -20269,10 +20269,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Search-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text @@ -20280,10 +20280,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Source-Line-No' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(6)' Keyword.Type '.' Punctuation '\n' Text @@ -20291,12 +20291,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Src-Ptr' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -20304,378 +20304,378 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Syntax-Parsing-Items' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Current-Char-Is-Punct' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"="' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"("' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '")"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"*"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"/"' Literal.String.Double ',' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '"&"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '";"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '","' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"<"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '">"' Literal.String.Double ',' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '":"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Current-Char-Is-Quote' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '\'"\'' Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace '"\'"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Current-Char-Is-X' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"x"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"X"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Current-Char-Is-Z' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"z"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"Z"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Division' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-IDENTIFICATION-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"I"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"?"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-ENVIRONMENT-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"E"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-DATA-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"D"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'In-PROCEDURE-DIVISION' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"P"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Line-No' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(6)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Program-ID' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(12)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SPI-CP-13-15' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(3)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Section' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SPI-CS-1' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SPI-CS-2-14' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'FILLER ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PIC X(10)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '15 ' Literal.Number.Integer 'SPI-CS-11-14' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(3)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '10 ' Literal.Number.Integer 'SPI-CS-15' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Token-UC' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Current-Verb' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(12)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Next-Char' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Next-Char-Is-Quote' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '\'"\'' Literal.String.Single ',' Punctuation -' ' Text +' ' Text.Whitespace '"\'"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Prior-Token' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(32)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '05 ' Literal.Number.Integer 'SPI-Token-Type' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-EOF' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'HIGH-VALUES' Name.Constant '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Identifier' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"I"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Key-Word' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"K"' Literal.String.Double ',' Punctuation -' ' Text +' ' Text.Whitespace '"V"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Literal-Alpha' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"L"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Literal-Number' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"N"' Literal.String.Double '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Verb' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '"V"' Literal.String.Double '.' Punctuation '\n' Text 'GC0710' Comment -' ' Text +' ' Text.Whitespace '88 ' Literal.Number.Integer 'Token-Is-Reserved-Word' Name.Variable -' ' Text +' ' Text.Whitespace 'VALUE ' Keyword.Pseudo '" "' Literal.String.Double '.' Punctuation @@ -20684,12 +20684,12 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Tally' Name.Variable -' ' Text +' ' Text.Whitespace 'USAGE' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'BINARY-LONG' Keyword.Type '.' Punctuation '\n' Text @@ -20697,10 +20697,10 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Todays-Date' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC 9(8)' Keyword.Type '.' Punctuation '\n' Text @@ -20708,36 +20708,36 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'LINKAGE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Produce-Source-Listing' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Produce-Xref-Listing' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(1)' Keyword.Type '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '01 ' Literal.Number.Integer 'Src-Filename' Name.Variable -' ' Text +' ' Text.Whitespace 'PIC X(256)' Keyword.Type '.' Punctuation '\n' Text @@ -20745,39 +20745,39 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'DIVISION' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'USING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Produce-Source-Listing' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Produce-Xref-Listing' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'Src-Filename' Name.Variable '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '000' Literal.Number.Integer '-' Operator 'Main' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace '001' Literal.Number.Integer '-' Operator 'Init' Name.Variable @@ -20785,120 +20785,120 @@ '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '100' Literal.Number.Integer '-' Operator 'Initialization' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '200' Literal.Number.Integer '-' Operator 'Execute-cobc' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'OPEN' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'OUTPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'Report-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Produce-Source-Listing' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'PERFORM' Keyword.Reserved -' ' Text +' ' Text.Whitespace '500' Literal.Number.Integer '-' Operator 'Produce-Source-Listing' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'IF' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Produce-Xref-Listing' Name.Variable -' ' Text +' ' Text.Whitespace 'NOT ' Operator.Word '=' Operator -' ' Text +' ' Text.Whitespace 'SPACE\n ' Name.Constant -' ' Text +' ' Text.Whitespace 'SORT' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Sort-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'ASCENDING' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'KEY ' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'SR-Prog-ID' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SR-Token-UC' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'SR-Line-No-Ref' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'INPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PROCEDURE ' Keyword.Reserved -' ' Text +' ' Text.Whitespace '300' Literal.Number.Integer '-' Operator 'Tokenize-Source' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'OUTPUT' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'PROCEDURE' Keyword.Reserved -' ' Text +' ' Text.Whitespace '400' Literal.Number.Integer '-' Operator 'Produce-Xref-Listing' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'END-IF\n ' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'CLOSE' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'Report-File' Name.Variable '\n' Text ' ' Comment -' ' Text +' ' Text.Whitespace 'GOBACK\n ' Keyword.Reserved '.' Punctuation '\n' Text @@ -20906,11 +20906,11 @@ ' /\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace '100' Literal.Number.Integer '-' Operator 'Initialization' Name.Variable -' ' Text +' ' Text.Whitespace 'SECTION' Keyword.Reserved '.' Punctuation '\n' Text @@ -20922,11 +20922,11 @@ ' *****************************************************************\n' Comment ' ' Comment -' ' Text +' ' Text.Whitespace 'END' Keyword.Reserved -' ' Text +' ' Text.Whitespace 'PROGRAM' Keyword.Pseudo -' ' Text +' ' Text.Whitespace 'LISTING' Name.Variable '.' Punctuation '\n' Text diff --git a/tests/examplefiles/gooddata-cl/test.gdc.output b/tests/examplefiles/gooddata-cl/test.gdc.output index 8c1f6443..bc06876c 100644 --- a/tests/examplefiles/gooddata-cl/test.gdc.output +++ b/tests/examplefiles/gooddata-cl/test.gdc.output @@ -26,18 +26,18 @@ 'examples/quotes/quotes.csv' Literal.String '"' Literal.String ',' Punctuation -'\n' Text +'\n' Text.Whitespace -'\t' Text +'\t' Text.Whitespace 'header' Name.Variable '=' Operator '"' Literal.String 'true' Literal.String '"' Literal.String ',' Punctuation -'\n' Text +'\n' Text.Whitespace -'\t' Text +'\t' Text.Whitespace 'configFile' Name.Variable '=' Operator '"' Literal.String diff --git a/tests/examplefiles/maql/test.maql.output b/tests/examplefiles/maql/test.maql.output index e6821488..5de209b5 100644 --- a/tests/examplefiles/maql/test.maql.output +++ b/tests/examplefiles/maql/test.maql.output @@ -1,16 +1,16 @@ '# MAQL script' Comment.Single -'\n' Text +'\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'St' Literal.String '\\\\' Literal.String.Escape @@ -20,21 +20,21 @@ '"' Literal.String ')' Punctuation ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace '# A comment' Comment.Single -'\n' Text +'\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Stock Qu' Literal.String '\\"' Literal.String.Escape @@ -42,211 +42,211 @@ '"' Literal.String ')' Punctuation ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Stock Quotes Data' Literal.String '"' Literal.String ')' Punctuation ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'ADD' Keyword -' ' Text +' ' Text.Whitespace '{attribute.sector}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'DROP' Keyword -' ' Text +' ' Text.Whitespace '{attribute.symbol}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'DATASET' Keyword -' ' Text +' ' Text.Whitespace '{dataset.quotes}' Name.Variable -' ' Text +' ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Internal Quotes Data' Literal.String '"' Literal.String ')' Punctuation ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'ATTRIBUTE' Keyword -' ' Text +' ' Text.Whitespace '{attr.quotes.symbol}' Name.Variable -'\n ' Text +'\n ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Symbol' Literal.String '"' Literal.String ',' Punctuation -' ' Text +' ' Text.Whitespace 'FOLDER' Keyword -' ' Text +' ' Text.Whitespace '{folder.quotes.attr}' Name.Variable ')' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'AS' Keyword -' ' Text +' ' Text.Whitespace '{d_quotes_symbol.nm_symbol}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'ATTRIBUTE' Keyword -' ' Text +' ' Text.Whitespace '{attr.quotes.symbol}' Name.Variable -'\n ' Text +'\n ' Text.Whitespace 'ADD' Keyword -' ' Text +' ' Text.Whitespace 'LABELS' Keyword -' ' Text +' ' Text.Whitespace '{attr.quotes.company}' Name.Variable -' ' Text +' ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Company' Literal.String '"' Literal.String ')' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'AS' Keyword -' ' Text +' ' Text.Whitespace '{d_quotes_symbol.nm_company}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'FACT' Keyword -' ' Text +' ' Text.Whitespace '{fact.quotes.open_price}' Name.Variable -'\n ' Text +'\n ' Text.Whitespace 'VISUAL' Keyword '(' Punctuation -' ' Text +' ' Text.Whitespace 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Open Price' Literal.String '"' Literal.String ',' Punctuation -' ' Text +' ' Text.Whitespace 'FOLDER' Keyword -' ' Text +' ' Text.Whitespace '{folder.quotes.fact}' Name.Variable ')' Punctuation -' ' Text +' ' Text.Whitespace 'AS' Keyword -' ' Text +' ' Text.Whitespace '{f_quotes.f_open_price}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'FACT' Keyword -' ' Text +' ' Text.Whitespace '{fact.quotes.open_price}' Name.Variable -' ' Text +' ' Text.Whitespace 'ADD' Keyword -' ' Text +' ' Text.Whitespace '{f_quotes2.f_open_price}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'CREATE' Keyword -' ' Text +' ' Text.Whitespace 'FOLDER' Keyword -' ' Text +' ' Text.Whitespace '{folder.quotes.attr}' Name.Variable -'\n ' Text +'\n ' Text.Whitespace 'VISUAL' Keyword -' ' Text +' ' Text.Whitespace '(' Punctuation -' ' Text +' ' Text.Whitespace 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Stock Quotes Data' Literal.String '"' Literal.String ',' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'DESCRIPTION' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'Stock quotes data obtained from John Doe etc.' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace ')' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'TYPE' Keyword -' ' Text +' ' Text.Whitespace 'ATTRIBUTE' Keyword ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'DATATYPE' Keyword -' ' Text +' ' Text.Whitespace '{d_quotes_symbol.nm_symbol}' Name.Variable -' ' Text +' ' Text.Whitespace 'VARCHAR' Keyword '(' Punctuation '4' Literal.Number ')' Punctuation ',' Punctuation -'\n ' Text +'\n ' Text.Whitespace '{d_quotes_symbol.nm_symbol}' Name.Variable -' ' Text +' ' Text.Whitespace 'VARCHAR' Keyword '(' Punctuation '80' Literal.Number ')' Punctuation ',' Punctuation -'\n ' Text +'\n ' Text.Whitespace '{f_quotes.f_open_price}' Name.Variable -' ' Text +' ' Text.Whitespace 'DECIMAL' Keyword '(' Punctuation '10' Literal.Number @@ -254,75 +254,75 @@ '2' Literal.Number ')' Punctuation ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'INCLUDE' Keyword -' ' Text +' ' Text.Whitespace 'TEMPLATE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'URN:GOODDATA:DATE' Literal.String '"' Literal.String -' ' Text +' ' Text.Whitespace 'MODIFY' Keyword -' ' Text +' ' Text.Whitespace '(' Punctuation 'IDENTIFIER' Name.Builtin -' ' Text +' ' Text.Whitespace '"' Literal.String 'my-date' Literal.String '"' Literal.String ',' Punctuation -' ' Text +' ' Text.Whitespace 'TITLE' Keyword -' ' Text +' ' Text.Whitespace '"' Literal.String 'quote' Literal.String '"' Literal.String ')' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'ATTRIBUTE' Keyword -' ' Text +' ' Text.Whitespace '{attr.quotes.symbol}' Name.Variable -' ' Text +' ' Text.Whitespace 'ADD' Keyword -' ' Text +' ' Text.Whitespace 'KEYS' Keyword -' ' Text +' ' Text.Whitespace '{d_quotes_symbol.nm_symbol}' Name.Variable -' ' Text +' ' Text.Whitespace 'PRIMARY' Keyword ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'ATTRIBUTE' Keyword -' ' Text +' ' Text.Whitespace '{attr.quotes.symbol}' Name.Variable -' ' Text +' ' Text.Whitespace 'DROP' Keyword -' ' Text +' ' Text.Whitespace 'KEYS' Keyword -' ' Text +' ' Text.Whitespace '{d_quotes_symbol.nm_symbol}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'ALTER' Keyword -' ' Text +' ' Text.Whitespace 'FACT' Keyword -' ' Text +' ' Text.Whitespace '{fact.quotes.open_price}' Name.Variable -' ' Text +' ' Text.Whitespace 'ADD' Keyword -' ' Text +' ' Text.Whitespace '{f_quotes2.f_open_price}' Name.Variable ';' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace '# Another comment' Comment.Single -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/openedge/example.cls.output b/tests/examplefiles/openedge/example.cls.output index e4d9e19c..ed33ca1d 100644 --- a/tests/examplefiles/openedge/example.cls.output +++ b/tests/examplefiles/openedge/example.cls.output @@ -1,5 +1,5 @@ 'USING' Name.Builtin -' ' Text +' ' Text.Whitespace 'Progress' Name.Builtin '.' Punctuation 'L' Name.Variable @@ -9,17 +9,17 @@ '.' Punctuation '*' Operator '.' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'CLASS' Name.Builtin -' ' Text +' ' Text.Whitespace 'T' Name.Variable 'e' Name.Variable 's' Name.Variable 't' Name.Variable -' ' Text +' ' Text.Whitespace 'INHERITS' Name.Builtin -' ' Text +' ' Text.Whitespace 'Progress' Name.Builtin '.' Punctuation 'S' Name.Variable @@ -28,30 +28,30 @@ 'k' Name.Variable 's' Name.Variable ':' Punctuation -'\n\n ' Text +'\n\n ' Text.Whitespace 'DEFINE' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'PRIVATE' Name.Builtin -' ' Text +' ' Text.Whitespace 'VARIABLE' Name.Builtin -' ' Text +' ' Text.Whitespace 'c' Name.Variable 'T' Name.Variable 'e' Name.Variable 's' Name.Variable 't' Name.Variable -' ' Text +' ' Text.Whitespace 'AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'CHAR' Keyword.Type -' ' Text +' ' Text.Whitespace 'NO-UNDO' Name.Builtin '.' Punctuation -'\n\n ' Text +'\n\n ' Text.Whitespace 'CONSTRUCTOR' Name.Builtin -' ' Text +' ' Text.Whitespace 'PUBLIC' Name.Builtin -' ' Text +' ' Text.Whitespace 'T' Name.Variable 'e' Name.Variable 's' Name.Variable @@ -59,27 +59,27 @@ '(' Punctuation ')' Punctuation ':' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'SUPER' Name.Builtin '(' Punctuation ')' Punctuation '.' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'MESSAGE ' Name.Builtin '"Why are you punishing yourself by coding in this language?"' Literal.String.Double '.' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'END' Name.Builtin -' ' Text +' ' Text.Whitespace 'CONSTRUCTOR' Name.Builtin '.' Punctuation -'\n\n ' Text +'\n\n ' Text.Whitespace 'METHOD' Name.Builtin -' ' Text +' ' Text.Whitespace 'PUBLIC' Name.Builtin -' ' Text +' ' Text.Whitespace 'LOGICAL' Keyword.Type -' ' Text +' ' Text.Whitespace 'B' Name.Variable 'l' Name.Variable 'o' Name.Variable @@ -88,25 +88,25 @@ 'p' Name.Variable '(' Punctuation 'INPUT' Name.Builtin -' ' Text +' ' Text.Whitespace 'i' Name.Variable 'T' Name.Variable 'i' Name.Variable 'm' Name.Variable 'e' Name.Variable -' ' Text +' ' Text.Whitespace 'AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'INT' Keyword.Type ')' Punctuation ':' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'END' Name.Builtin '.' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'END' Name.Builtin -' ' Text +' ' Text.Whitespace 'CLASS' Name.Builtin '.' Punctuation -'\n' Text +'\n' Text.Whitespace diff --git a/tests/examplefiles/openedge/openedge_example.output b/tests/examplefiles/openedge/openedge_example.output index 67bd0f99..87e9be95 100644 --- a/tests/examplefiles/openedge/openedge_example.output +++ b/tests/examplefiles/openedge/openedge_example.output @@ -9,7 +9,7 @@ '.' Comment.Preproc 'i' Comment.Preproc '}' Comment.Preproc -'\n' Text +'\n' Text.Whitespace '{' Comment.Preproc 'n' Comment.Preproc @@ -34,47 +34,47 @@ '}' Comment.Preproc '}' Comment.Preproc '\n\n&SCOPED-DEFINE MY_NAME "Abe"' Comment.Preproc -'\n\n' Text +'\n\n' Text.Whitespace 'DEF' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'VAR' Name.Builtin -' ' Text +' ' Text.Whitespace 'i' Name.Variable -' ' Text +' ' Text.Whitespace 'AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'INT' Keyword.Type -' ' Text +' ' Text.Whitespace 'NO-UNDO' Name.Builtin '.' Punctuation -'\n' Text +'\n' Text.Whitespace 'i' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '0xABE' Literal.Number.Hex -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace '1337' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '/' Operator -' ' Text +' ' Text.Whitespace '(' Punctuation '1' Literal.Number.Integer -' ' Text +' ' Text.Whitespace '*' Operator -' ' Text +' ' Text.Whitespace '1.00' Literal.Number.Float ')' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'def' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'var' Name.Builtin -' ' Text +' ' Text.Whitespace 'c' Name.Variable 'l' Name.Variable 'o' Name.Variable @@ -89,19 +89,19 @@ 'e' Name.Variable 's' Name.Variable 't' Name.Variable -' ' Text +' ' Text.Whitespace 'as' Name.Builtin -' ' Text +' ' Text.Whitespace 'char' Keyword.Type -' ' Text +' ' Text.Whitespace 'no-undo' Name.Builtin '.' Punctuation -'\n' Text +'\n' Text.Whitespace 'DEF' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'VAR' Name.Builtin -' ' Text +' ' Text.Whitespace 'v' Name.Variable 'a' Name.Variable 'r' Name.Variable @@ -113,19 +113,19 @@ 'e' Name.Variable 's' Name.Variable 't' Name.Variable -' ' Text +' ' Text.Whitespace 'AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'DATETIME-TZ' Keyword.Type -' ' Text +' ' Text.Whitespace 'NO-UNDO' Name.Builtin '.' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'DEFINE' Keyword.Declaration -' ' Text +' ' Text.Whitespace 'TEMP-TABLE' Name.Builtin -' ' Text +' ' Text.Whitespace 't' Name.Variable 't' Name.Variable 'N' Name.Variable @@ -133,23 +133,23 @@ 'm' Name.Variable 'e' Name.Variable 's' Name.Variable -' ' Text +' ' Text.Whitespace 'NO-UNDO\n ' Name.Builtin -' ' Text +' ' Text.Whitespace 'FIELD' Name.Builtin -' ' Text +' ' Text.Whitespace 'c' Name.Variable 'N' Name.Variable 'a' Name.Variable 'm' Name.Variable 'e' Name.Variable -' ' Text +' ' Text.Whitespace 'AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'CHAR\n ' Keyword.Type -' ' Text +' ' Text.Whitespace 'INDEX' Name.Builtin -' ' Text +' ' Text.Whitespace 'I' Name.Variable 'X' Name.Variable 'P' Name.Variable @@ -162,20 +162,20 @@ 'm' Name.Variable 'e' Name.Variable 's' Name.Variable -' ' Text +' ' Text.Whitespace 'IS' Name.Builtin -' ' Text +' ' Text.Whitespace 'PRIMARY' Name.Builtin -' ' Text +' ' Text.Whitespace 'UNIQUE' Name.Builtin -' ' Text +' ' Text.Whitespace 'c' Name.Variable 'N' Name.Variable 'a' Name.Variable 'm' Name.Variable 'e' Name.Variable '.' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace '/*' Comment.Multiline ' ' Comment.Multiline @@ -197,7 +197,7 @@ 't' Comment.Multiline ' ' Comment.Multiline '*/' Comment.Multiline -'\n' Text +'\n' Text.Whitespace '/*' Comment.Multiline ' ' Comment.Multiline @@ -224,7 +224,7 @@ ' ' Comment.Multiline ' ' Comment.Multiline '*/' Comment.Multiline -'\n' Text +'\n' Text.Whitespace '/*' Comment.Multiline '\n' Comment.Multiline @@ -294,10 +294,10 @@ '\n' Comment.Multiline '*/' Comment.Multiline -'\n\n' Text +'\n\n' Text.Whitespace 'CREATE' Name.Builtin -' ' Text +' ' Text.Whitespace 't' Name.Variable 't' Name.Variable 'N' Name.Variable @@ -306,10 +306,10 @@ 'e' Name.Variable 's' Name.Variable '.' Punctuation -'\n' Text +'\n' Text.Whitespace 'ASSIGN' Name.Builtin -' ' Text +' ' Text.Whitespace 't' Name.Variable 't' Name.Variable 'N' Name.Variable @@ -323,9 +323,9 @@ 'a' Name.Variable 'm' Name.Variable 'e' Name.Variable -' ' Text +' ' Text.Whitespace '=' Operator -' ' Text +' ' Text.Whitespace '{' Comment.Preproc '&' Comment.Preproc 'M' Comment.Preproc @@ -337,12 +337,12 @@ 'E' Comment.Preproc '}' Comment.Preproc '.' Punctuation -'\n\n' Text +'\n\n' Text.Whitespace 'FOR' Name.Builtin -' ' Text +' ' Text.Whitespace 'EACH' Name.Builtin -' ' Text +' ' Text.Whitespace 't' Name.Variable 't' Name.Variable 'N' Name.Variable @@ -351,12 +351,12 @@ 'e' Name.Variable 's' Name.Variable ':' Punctuation -'\n ' Text +'\n ' Text.Whitespace 'MESSAGE ' Name.Builtin '"Hello, "' Literal.String.Double -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace 't' Name.Variable 't' Name.Variable 'N' Name.Variable @@ -370,17 +370,17 @@ 'a' Name.Variable 'm' Name.Variable 'e' Name.Variable -' ' Text +' ' Text.Whitespace '+' Operator -' ' Text +' ' Text.Whitespace "'!'" Literal.String.Single -' ' Text +' ' Text.Whitespace 'VIEW-AS' Name.Builtin -' ' Text +' ' Text.Whitespace 'ALERT-BOX' Name.Builtin '.' Punctuation -'\n' Text +'\n' Text.Whitespace 'END' Name.Builtin '.' Punctuation -'\n' Text +'\n' Text.Whitespace |
