text/x-cobol
*.cbl;*.cob
*
^\s{0,6}\w
.{74,}
\b([A-Za-z0-9_]*)\b
"
"
'
'
\b[0-9]+(\.[0-9]+)?\b
SPACE
SPACES
NULL
ZERO
ZEROES
ZEROS
LOW-VALUES
LOW-VALUE
HIGH-VALUES
HIGH-VALUE
QUOTE
QUOTES
ACCEPT
ACCESS
ADD
ADDRESS
ADVANCING
AFTER
ALPHABET
ALPHABETIC
ALPHABETIC-LOWER
ALPHABETIC-UPPER
ALPHANUMERIC
ALPHANUMERIC-EDITED
ALS
ALTERNATE
AND
ANY
ARE
AREA
AREAS
ASCENDING
ASSIGN
AT
AUTHOR
BEFORE
BINARY
BLANK
BLOCK
BOTTOM
BY
CANCEL
CBLL
CD
CF
CH
CHARACTER
CHARACTERS
CLASS
CLOCK-UNITS
CLOSE
COBOL
CODE
CODE-SET
COLLATING
COLUMN
COMMA
COMMON
COMMUNICATIONS
COMPUTATIONAL
COMPUTE
CONTENT
CONTINUE
CONTROL
CONVERTING
CORR
CORRESPONDING
COUNT
CURRENCY
DATE
DATE-COMPILED
DATE-WRITTEN
DAY
DAY-OF-WEEK
DE
DEBUG-CONTENTS
DEBUG-ITEM
DEBUG-LINE
DEBUG-NAME
DEBUG-SUB-1
DEBUG-SUB-2
DEBUG-SUB-3
DEBUGGING
DECIMAL-POINT
DELARATIVES
DELETE
DELIMITED
DELIMITER
DEPENDING
DESCENDING
DESTINATION
DETAIL
DISABLE
DISPLAY
DIVIDE
DIVISION
DOWN
DUPLICATES
DYNAMIC
EGI
ELSE
EMI
ENABLE
END-ADD
END-COMPUTE
END-DELETE
END-DIVIDE
END-EVALUATE
END-MULTIPLY
END-OF-PAGE
END-READ
END-RECEIVE
END-RETURN
END-REWRITE
END-SEARCH
END-START
END-STRING
END-SUBTRACT
END-UNSTRING
END-WRITE
EQUAL
ERROR
ESI
EVALUATE
EVERY
EXCEPTION
EXIT
EXTEND
EXTERNAL
FALSE
FD
FILLER
FINAL
FIRST
FOOTING
FOR
FROM
GENERATE
GIVING
GLOBAL
GREATER
GROUP
HEADING
I-O
IN
INDEX
INDEXED
INDICATE
INITIAL
INITIALIZE
INITIATE
INPUT
INSPECT
INSTALLATION
INTO
IS
JUST
JUSTIFIED
KEY
LABEL
LAST
LEADING
LEFT
LENGTH
LOCK
MEMORY
MERGE
MESSAGE
MODE
MODULES
MOVE
MULTIPLE
MULTIPLY
NATIVE
NEGATIVE
NEXT
NO
NOT
NUMBER
NUMERIC
NUMERIC-EDITED
OCCURS
OF
OFF
OMITTED
ON
OPEN
OPTIONAL
OR
ORDER
ORGANIZATION
OTHER
OUTPUT
OVERFLOW
PACKED-DECIMAL
PADDING
PAGE
PAGE-COUNTER
PF
PH
PIC
PICTURE
PLUS
POINTER
POSITION
POSITIVE
PRINTING
PROCEDURES
PROCEDD
PROGRAM-ID
PROGRAM
PURGE
QUEUE
RANDOM
RD
READ
RECEIVE
RECORD
RECORDS
REDEFINES
REEL
REFERENCE
REFERENCES
RELATIVE
RELEASE
REMAINDER
REMOVAL
REPLACE
REPLACING
REPORT
REPORTING
REPORTS
RERUN
RESERVE
RESET
RETURN
RETURNING
REVERSED
REWIND
REWRITE
RF
RH
RIGHT
ROUNDED
RUN
SAME
SD
SEARCH
SECTION
SECURITY
SEGMENT-LIMITED
SEGMENT
SELECT
SEND
SENTENCE
SEPARATE
SEQUENCE
SEQUENTIAL
SET
SIGN
SIZE
SORT-MERGE
SORT
SOURCE-COMPUTER
SOURCE
STANDARD
STANDARD-1
STANDARD-2
START
STATUS
STOP
STRING
SUB-QUEUE-1
SUB-QUEUE-2
SUB-QUEUE-3
SUBTRACT
SUM
SUPPRESS
SYMBOLIC
SYNC
SYNCHRONIZED
TABLE
TALLYING
TAPE
TERMINAL
TERMINATE
TEST
TEXT
THAN
THEN
THROUGH
THRU
TIME
TIMES
TO
TOP
TRAILING
TRUE
TYPE
UNIT
UNSTRING
UNTIL
UP
UPON
USAGE
USE
USING
VALUE
VALUES
VARYING
WHEN
WITH
WORDS
WRITE
OBJECT-COMPUTER
SPECIAL-NAMES
FILE-CONTROL
I-O-CONTROL
CONFIGURATION
INPUT-OUTPUT
FILE
WORKING-STORAGE
LOCAL-STORAGE
LINKAGE
IDENTIFICATION
ENVIRONMENT
DATA
PROCEDURE
END-CALL
CALL
CANCEL
GOBACK
END-PERFORM
PERFORM
INVOKE
END-IF
IF