Token record: X'0030'

The compiler does not generate token records for any lines that are treated as comment lines, which include, but are not limited to, items in the following list.

Comment lines, which are source lines that have an asterisk (*) or a slash (/) in column 7
The following compiler-directing statements:
- *CBL (*CONTROL)
- BASIS
- COPY
- DELETE
- EJECT
- INSERT
- REPLACE
- SKIP1
- SKIP2
- SKIP3
- TITLE
Debugging lines, which are source lines that have a D in column 7, if WITH DEBUGGING MODE is not specified

Table 1. **SYSADATA token record**
Field	Size	Description
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 0077 ALLOCATE 0078 FREE 0079 JSON 0080 END-JSON 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 0139 UTF8-LIT 0140 QUAL-OP 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 0338 XML-NNAMESPACE 0339 XML-NAMESPACE 0340 XML-NNAMESPACE-PREFIX 0341 XML-NAMESPACE-PREFIX 0342 VOLATILE 0343 UTF-8 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 0500 POINTER-32 0551 BYTE-LENGTH 0555 LIMIT 0601 INHERITS 0603 RECURSIVE 0604 PROTOTYPE 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 0751 XML-SCHEMA
		0801 ARE IS 0802 ASCENDING 0803 AT 0804 BY 0805 CHARACTERS 0806 CONTAINS 0807 COPY 0808 COUNT 0809 DEBUGGING 0810 DEPENDING 0811 DESCENDING 0812 DIVISION 0814 FOR 0815 ORDER 0816 INPUT 0817 REPLACE 0818 KEY
		0819 LINE LINES 0820 XML-INFORMATION 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 0840 SQLIMS 0841 DEFAULT 0900 DETAIL 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 1213 FUNCTION-ID 2020 TRACE 2046 SUPPRESS 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 5004 ENCODING 5005 NAMESPACE 5006 NAMESPACE-PREFIX 5007 XML-DECLARATION 5008 ATTRIBUTES 5009 VALIDATING 5010 UNBOUNDED 5011 ATTRIBUTE 5012 ELEMENT 5013 NONNUMERIC 5014 NAME 5015 CYCLE 5016 PARAGRAPH 5017 LOC 5018 INTRINSIC 5020 AS 5021 INITIALIZED 5022 BYTE-LENGTH 5023 FIXED 5024 BOOL
		5025 BOOLEAN 5026 ENTRY-INTERFACE 5027 DLL 5029 STATIC 5030 ENTRY-NAME 5031 COMPAT 5032 LONGMIXED 5033 LONGUPPER 5034 CODEPAGE 5035 IGNORING 5036 INDICATING 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