| Token number |
FL4 |
The token number within
the source file generated by the compiler, starting at 1. Any
copybooks have already been included in the source. |
| Token code |
HL2 |
The type of token
(user-name, literal, reserved word, and so forth).
For reserved words, the compiler reserved-word table values are
used.
For PICTURE strings, the special code 0000 is used.
For each piece (other than the last) of a continued token, the
special code 3333 is used.
Otherwise, the following codes are used:
- 0001
- ACCEPT
- 0002
- ADD
- 0003
- ALTER
- 0004
- CALL
- 0005
- CANCEL
- 0007
- CLOSE
- 0009
- COMPUTE
- 0011
- DELETE
- 0013
- DISPLAY
- 0014
- DIVIDE
- 0017
- READY
- 0018
- END-PERFORM
- 0019
- ENTER
- 0020
- ENTRY
- 0021
- EXIT
- 0022
- EXEC
- EXECUTE
- 0023
- GO
- 0024
- IF
- 0025
- INITIALIZE
- 0026
- INVOKE
- 0027
- INSPECT
- 0028
- MERGE
- 0029
- MOVE
|
| |
|
- 0030
- MULTIPLY
- 0031
- OPEN
- 0032
- PERFORM
- 0033
- READ
- 0035
- RELEASE
- 0036
- RETURN
- 0037
- REWRITE
- 0038
- SEARCH
- 0040
- SET
- 0041
- SORT
- 0042
- START
- 0043
- STOP
- 0044
- STRING
- 0045
- SUBTRACT
- 0048
- UNSTRING
- 0049
- USE
- 0050
- WRITE
- 0051
- CONTINUE
- 0052
- END-ADD
- 0053
- END-CALL
- 0054
- END-COMPUTE
- 0055
- END-DELETE
- 0056
- END-DIVIDE
- 0057
- END-EVALUATE
- 0058
- END-IF
- 0059
- END-MULTIPLY
- 0060
- END-READ
- 0061
- END-RETURN
- 0062
- END-REWRITE
- 0063
- END-SEARCH
- 0064
- END-START
- 0065
- END-STRING
- 0066
- END-SUBTRACT
- 0067
- END-UNSTRING
- 0068
- END-WRITE
- 0069
- GOBACK
|
| |
|
- 0070
- EVALUATE
- 0071
- RESET
- 0072
- SERVICE
- 0073
- END-INVOKE
- 0074
- END-EXEC
- 0075
- XML
- 0076
- END-XML
- 0099
- FOREIGN-VERB
- 0101
- DATA-NAME
- 0105
- DASHED-NUM
- 0106
- DECIMAL
- 0107
- DIV-SIGN
- 0108
- EQ
- 0109
- EXPONENTIATION
- 0110
- GT
- 0111
- INTEGER
- 0112
- LT
- 0113
- LPAREN
- 0114
- MINUS-SIGN
- 0115
- MULT-SIGN
- 0116
- NONUMLIT
- 0117
- PERIOD
- 0118
- PLUS-SIGN
- 0121
- RPAREN
- 0122
- SIGNED-INTEGER
- 0123
- QUID
- 0124
- COLON
- 0125
- IEOF
- 0126
- EGCS-LIT
- 0127
- COMMA-SPACE
- 0128
- SEMICOLON-SPACE
- 0129
- PROCEDURE-NAME
- 0130
- FLT-POINT-LIT
- 0131
- Language Environment
|
| |
|
- 0132
- GE
- 0133
- IDREF
- 0134
- EXPREF
- 0136
- CICS
- 0137
- NEW
- 0138
- NATIONAL-LIT
- 0200
- ADDRESS
- 0201
- ADVANCING
- 0202
- AFTER
- 0203
- ALL
- 0204
- ALPHABETIC
- 0205
- ALPHANUMERIC
- 0206
- ANY
- 0207
- AND
- 0208
- ALPHANUMERIC-EDITED
- 0209
- BEFORE
- 0210
- BEGINNING
- 0211
- FUNCTION
- 0212
- CONTENT
- 0213
- CORR
- CORRESPONDING
- 0214
- DAY
- 0215
- DATE
- 0216
- DEBUG-CONTENTS
- 0217
- DEBUG-ITEM
- 0218
- DEBUG-LINE
- 0219
- DEBUG-NAME
- 0220
- DEBUG-SUB-1
- 0221
- DEBUG-SUB-2
- 0222
- DEBUG-SUB-3
- 0223
- DELIMITED
- 0224
- DELIMITER
- 0225
- DOWN
|
| |
|
- 0226
- NUMERIC-EDITED
- 0227
- XML-EVENT
- 0228
- END-OF-PAGE
- EOP
- 0229
- EQUAL
- 0230
- ERROR
- 0231
- XML-NTEXT
- 0232
- EXCEPTION
- 0233
- EXTEND
- 0234
- FIRST
- 0235
- FROM
- 0236
- GIVING
- 0237
- GREATER
- 0238
- I-O
- 0239
- IN
- 0240
- INITIAL
- 0241
- INTO
- 0242
- INVALID
- 0243
- SQL
- 0244
- LESS
- 0245
- LINAGE-COUNTER
- 0246
- XML-TEXT
- 0247
- LOCK
- 0248
- GENERATE
- 0249
- NEGATIVE
- 0250
- NEXT
- 0251
- NO
- 0252
- NOT
- 0253
- NUMERIC
- 0254
- KANJI
- 0255
- OR
- 0256
- OTHER
- 0257
- OVERFLOW
- 0258
- PAGE
- 0259
- CONVERTING
|
| |
|
- 0260
- POINTER
- 0261
- POSITIVE
- 0262
- DBCS
- 0263
- PROCEDURES
- 0264
- PROCEED
- 0265
- REFERENCES
- 0266
- DAY-OF-WEEK
- 0267
- REMAINDER
- 0268
- REMOVAL
- 0269
- REPLACING
- 0270
- REVERSED
- 0271
- REWIND
- 0272
- ROUNDED
- 0273
- RUN
- 0274
- SENTENCE
- 0275
- STANDARD
- 0276
- RETURN-CODE
- SORT-CORE-SIZE
- SORT-FILE-SIZE
- SORT-MESSAGE
- SORT-MODE-SIZE
- SORT-RETURN
- TALLY
- XML-CODE
- 0277
- TALLYING
- 0278
- SUM
- 0279
- TEST
- 0280
- THAN
- 0281
- UNTIL
- 0282
- UP
- 0283
- UPON
- 0284
- VARYING
- 0285
- RELOAD
- 0286
- TRUE
|
| |
|
- 0287
- THEN
- 0288
- RETURNING
- 0289
- ELSE
- 0290
- SELF
- 0291
- SUPER
- 0292
- WHEN-COMPILED
- 0293
- ENDING
- 0294
- FALSE
- 0295
- REFERENCE
- 0296
- NATIONAL-EDITED
- 0297
- COM-REG
- 0298
- ALPHABETIC-LOWER
- 0299
- ALPHABETIC-UPPER
- 0301
- REDEFINES
- 0302
- OCCURS
- 0303
- SYNC
- SYNCHRONIZED
- 0304
- MORE-LABELS
- 0305
- JUST
- JUSTIFIED
- 0306
- SHIFT-IN
- 0307
- BLANK
- 0308
- VALUE
- 0309
- COMP
- COMPUTATIONAL
- 0310
- COMP-1
- COMPUTATIONAL-1
- 0311
- COMP-3
- COMPUTATIONAL-3
- 0312
- COMP-2
- COMPUTATIONAL-2
- 0313
- COMP-4
- COMPUTATIONAL-4
- 0314
- DISPLAY-1
- 0315
- SHIFT-OUT
|
| |
|
- 0316
- INDEX
- 0317
- USAGE
- 0318
- SIGN
- 0319
- LEADING
- 0320
- SEPARATE
- 0321
- INDEXED
- 0322
- LEFT
- 0323
- RIGHT
- 0324
- PIC
- PICTURE
- 0325
- VALUES
- 0326
- GLOBAL
- 0327
- EXTERNAL
- 0328
- BINARY
- 0329
- PACKED-DECIMAL
- 0330
- EGCS
- 0331
- PROCEDURE-POINTER
- 0332
- COMP-5
- COMPUTATIONAL-5
- 0333
- FUNCTION-POINTER
- 0334
- TYPE
- 0335
- JNIENVPTR
- 0336
- NATIONAL
- 0337
- GROUP-USAGE
- 0401
- HIGH-VALUE
- HIGH-VALUES
- 0402
- LOW-VALUE
- LOW-VALUES
- 0403
- QUOTE
- QUOTES
- 0404
- SPACE
- SPACES
- 0405
- ZERO
|
| |
|
- 0406
- ZEROES
- ZEROS
- 0407
- NULL
- NULLS
- 0501
- BLOCK
- 0502
- BOTTOM
- 0505
- CHARACTER
- 0506
- CODE
- 0507
- CODE-SET
- 0514
- FILLER
- 0516
- FOOTING
- 0520
- LABEL
- 0521
- LENGTH
- 0524
- LINAGE
- 0526
- OMITTED
- 0531
- RENAMES
- 0543
- TOP
- 0545
- TRAILING
- 0549
- RECORDING
- 0601
- INHERITS
- 0603
- RECURSIVE
- 0701
- ACCESS
- 0702
- ALSO
- 0703
- ALTERNATE
- 0704
- AREA
- AREAS
- 0705
- ASSIGN
- 0707
- COLLATING
- 0708
- COMMA
- 0709
- CURRENCY
- 0710
- CLASS
- 0711
- DECIMAL-POINT
- 0712
- DUPLICATES
- 0713
- DYNAMIC
- 0714
- EVERY
|
| |
|
- 0716
- MEMORY
- 0717
- MODE
- 0718
- MODULES
- 0719
- MULTIPLE
- 0720
- NATIVE
- 0721
- OFF
- 0722
- OPTIONAL
- 0723
- ORGANIZATION
- 0724
- POSITION
- 0725
- PROGRAM
- 0726
- RANDOM
- 0727
- RELATIVE
- 0728
- RERUN
- 0729
- RESERVE
- 0730
- SAME
- 0731
- SEGMENT-LIMIT
- 0732
- SELECT
- 0733
- SEQUENCE
- 0734
- SEQUENTIAL
- 0736
- SORT-MERGE
- 0737
- STANDARD-1
- 0738
- TAPE
- 0739
- WORDS
- 0740
- PROCESSING
- 0741
- APPLY
- 0742
- WRITE-ONLY
- 0743
- COMMON
- 0744
- ALPHABET
- 0745
- PADDING
- 0746
- SYMBOLIC
- 0747
- STANDARD-2
- 0748
- OVERRIDE
- 0750
- PASSWORD
|
| |
|
- 0801
- ARE
- IS
- 0802
- ASCENDING
- 0803
- AT
- 0804
- BY
- 0805
- CHARACTERS
- 0806
- CONTAINS
- 0808
- COUNT
- 0809
- DEBUGGING
- 0810
- DEPENDING
- 0811
- DESCENDING
- 0812
- DIVISION
- 0814
- FOR
- 0815
- ORDER
- 0816
- INPUT
- 0817
- REPLACE
- 0818
- KEY
- 0819
- LINE
- LINES
- 0821
- OF
- 0822
- ON
- 0823
- OUTPUT
- 0825
- RECORD
- 0826
- RECORDS
- 0827
- REEL
- 0828
- SECTION
- 0829
- SIZE
- 0830
- STATUS
- 0831
- THROUGH
- THRU
- 0832
- TIME
- 0833
- TIMES
- 0834
- TO
- 0836
- UNIT
|
| |
|
- 0837
- USING
- 0838
- WHEN
- 0839
- WITH
- 0901
- PROCEDURE
- 0902
- DECLARATIVES
- 0903
- END
- 1001
- DATA
- 1002
- FILE
- 1003
- FD
- 1004
- SD
- 1005
- WORKING-STORAGE
- 1006
- LOCAL-STORAGE
- 1007
- LINKAGE
- 1101
- ENVIRONMENT
- 1102
- CONFIGURATION
- 1103
- SOURCE-COMPUTER
- 1104
- OBJECT-COMPUTER
- 1105
- SPECIAL-NAMES
- 1106
- REPOSITORY
- 1107
- INPUT-OUTPUT
- 1108
- FILE-CONTROL
- 1109
- I-O-CONTROL
- 1201
- ID
- IDENTIFICATION
- 1202
- PROGRAM-ID
- 1203
- AUTHOR
- 1204
- INSTALLATION
- 1205
- DATE-WRITTEN
- 1206
- DATE-COMPILED
- 1207
- SECURITY
- 1208
- CLASS-ID
- 1209
- METHOD-ID
- 1210
- METHOD
- 1211
- FACTORY
|
| |
|
- 1212
- OBJECT
- 2020
- TRACE
- 3000
- DATADEF
- 3001
- F-NAME
- 3002
- UPSI-SWITCH
- 3003
- CONDNAME
- 3004
- CONDVAR
- 3005
- BLOB
- 3006
- CLOB
- 3007
- DBCLOB
- 3008
- BLOB-LOCATOR
- 3009
- CLOB-LOCATOR
- 3010
- DBCLOB-LOCATOR
- 3011
- BLOB-FILE
- 3012
- CLOB-FILE
- 3013
- DBCLOB-FILE
- 3014
- DFHRESP
- 5001
- PARSE
- 5002
- AUTOMATIC
- 5003
- PREVIOUS
- 9999
- COBOL
|
| Token length |
HL2 |
The length of the
token |
| Token column |
FL4 |
The starting column
number of the token in the source listing |
| Token line |
FL4 |
The line number of the
token in the source listing |
| Flags |
CL1 |
Information about the
token:
- X'80'
- Token is continued
- X'40'
- Last piece of continued token
Note that for PICTURE strings, even if the source token is continued,
there will be only one Token record generated. It will have a token
code of 0000, the token column and line of the first piece, the
length of the complete string, no continuation flags set, and the
token text of the complete string.
|
| Reserved |
CL7 |
Reserved for future
use |
| Token text |
CL(n) |
The actual token
string |