Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/diags.mac
There are 23 other files named diags.mac in the archive. Click here to see a list.
; UPD ID= 1632 on 6/7/84 at 8:22 PM by HOFFMAN                          
TITLE	DIAGS FOR COBOL V13
SUBTTL	DIAGNOSTIC MESSAGES	AL BLACKINGTON/CAM

	SEARCH COPYRT
	SALL

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	P
	%%P==:%%P
	DBMS==:DBMS
	MCS==:MCS

TWOSEG
	.COPYRIGHT		;Put standard copyright statement in REL file
RELOC	400000
	SALL

;EDITS
;NAME	DATE		COMMENTS
;MJC	21-JUN-85	[1600] Add E.856 for OCCURS DEPENDING in INITIALIZE
;MJC	31-DEC-84	[1553] Add fatal E.855 for ELSE or WHEN scope problems.
;				Add period assumed to E.820.
;JEH	07-JUN-84	[1537] Change message for E.661
;JEH	24-OCT-83	[1502] Warning if record size < max record size
;JEH	10-OCT-83	[1500] Warnings on HIGH/LOW VALUES with numeric fields
;JEH	02-MAY-83	[1466] Change message 365 to include POSITIONING.
;RLF	19-Apr-83	[1460] Gives error message when key is subscripted.
;RLF	27-Jan-83	[1450] Gives error message on FREE syntax.
;JEH	18-Nov-82	[1424] Fatal for non-DISPLAY data in ASCII file.
;SMI	25-Aug-82	[1401] Fatal if statements in EXIT paragraph.
;JEH	 5-May-82	[1353] Fatal if operand too large for literal compare.
;JEH	30-Mar-82	[1346] Fatal on data key conversion routine, number of table keys.

;V12B****************
;DMN	 9-Nov-82	[1431] Fix error message added by edit 1046.
;DMN	15-Feb-82	[1340] Add 68274 message for Abbrev. Combined Relation Condition with NOT
;				and JUSTIFIED clause in VALUE.
;JEH	 1-Jan-82	[1330] Add warning for invalid memory size clause.
;WTK	29-Jul-81	[1312] [1135] Add diag 651 for -,---... and +,+++...

;V12*****************
;JSM	 2-Feb-81	[1116] Add diag 648 for UNSTRING.
;DAW	12-Dec-80	[1102] Make diag 64 more accurate.
;DMN	14-NOV-80	[1071] GIVE ERROR MESSAGE IF VARIABLE PART IS NOT LAST THING IN RECORD.
;CLRH	12-AUG-80	[1046] IN FIND RSE3, ID MUST BE 1-WORD COMP.
;DMN	22-APR-80	[1013] ADD ERROR FOR MISSING == ON COPY REPLACING.
;JSM	 2-APR-80	[1005] ADD ERROR FOR ILLEGAL IF OR SEARCH IN WHEN CLAUSE OF SEARCH.
;DMN	26-MAR-80	[1002] ADD ERRORS 629 & 630 FOR ILLEGAL CALL/ENTER ARG.
;JSM	29-JAN-80	[761] MAKE MESSAGES 117, 148, 154, 264, 414, AND 419
;			      MORE EXPLICIT FOR DML COMPILES
;CLRH	 3-MAY-79	[706] ADD 622 RECORD SIZE SHOULD MATCH FD
;DMN	 5-JAN-78	[624] RECORD SIZE DOES NOT MATCH FD IN "F" MODE FILE
;DMN	29-DEC-78	[623] ADD ERROR MESSAGE FOR SORT KEY CONTAINING OCCURS CLAUSE
;DMN	19-SEP-78	[557] VARIOUS COPY REPLACING BUGS
;EHM	17-SEP-78	[554] ADD 610 FOR SORT KEY NOT IN SORT FILE
;EHM	17-SEP-78	[553] ADD 609 FOR MAX NUM RECORDS/RERUN EXCEEDED
;EHM	17-SEP-78	[552] ADD 608 FOR NO END DECLARATIVES IF DECLARATIVES

;V10*****************
;SSC	28-SEPT-77	ADDED 594 FOR OPEN TRANSACTION STATEMENT
;EHM	19-SEP-77	[511] CHANGE 323 TO INDICATE THAT SEARCH USES
;				THE SAME PATHS AND ADDRESS TABLE.
;MDL	28-JUL-77	[505] ADDED #595 - GIVE FATAL MESSAGE WHEN MODE AND KEY TYPE CONFLICT
;MDL	26-APR-77	[471] ADDED 593 - GIVE FATAL MESSAGE WHEN AN
;			"OCCURS" EXCEEDS MAXIMUM OF 32,767.
;EHM	28-DEC-76	[456] ADDED 591 - GIVE WARNING OF INVALID ROUNDING
;MDL	04-NOV-76	[447] ADDED 590 - GIVE WARNING IF ATTEMPTING TO 'ACCEPT' MORE
;			THAN 1023 CHARACTERS INTO AN AREA.
;	21-SEP-76	[444]  ADDED 568 - COMPARE LENGTH FOR 'IF' STATEMENT EXCEEDED
;	30-JAN-76	[405]  FIX END OF 1ST TABLE AND TYPE OUT OF UNDEFINED DIAG NUMBERS
;GPS	12/23/74	ADD DIAGNOSTICS FOR SIMULTANEOUS UPDATE
;ACK	12-JAN-75	ADD CAPABILITY OF HAVING DIAGNOSTICS UP TO 1023.
;DBT	1/24/75		MESSAGE 565 - CANCEL OF CURRENT SUBROUTINE
;********************

; EDIT 355 ADDED 587
; EDIT 342 USE ERROR MSG 497 FOR REPORT LINE CODE MISSING
;EDIT	331	ADD ERROR MSG FOR SECTIONS OUT OF ORDER CAUSED BY MIS-
;		PLACED SCHEMA SECTION
; EDIT 315 ADD MORE REPORT WRITER ERROR CODES.
; EDIT 312 MAKE ERROR 410 INDEPENDENT OF DBMS ASSY SWITCH
; EDIT 257 ADDED 488
; EDIT 253 CHANGE RENAMES MSG 
;[237] /JEF	COBOLC.MAC, DIAGS.MAC	QAR-2918
;		IDENTIFIERS GIVEN IN THE CONTROL CLAUSE MUST BE DEFINED
;		ONLY IN THE FILE OR WORKING STORAGE SECTIONS.
;[220] /ACK	GENERATE AN ERROR IF A MINOR KEY IS THE SUBJECT OF AN OCCURS.
;EDIT 215	COBOLC, DIAGS -- REPORT WRITER BUG
;		ERROR IF HEADING < FIRST-DETAIL < LAST-DETAIL < FOOTING
; EDIT 213 ADD COPY WITHIN LIBARY ERROR MSG # 492
;EDIT 212	"CANCEL IS NOT IMPLEMENTED YET..."
;EDIT 162	"NOT ALLOWED IN LINKAGE SECTION"
;EDIT 137	GIVE ERROR MESSAGE IF SUBSCRIPT IS IN LINKAGE SECTION
;EDIT 110	NO MULTIPLE WORKING STORAGE
;		RESERVE ALTERNATE AREAS GIVES TOO MANY BUFFERS
;		ALTER STATEMENT GETS ERROR IF PRG COMPILED WITH /A
;		LAST STATEMENT IN PARA IS AN OPEN NOT TERMINATED BY A
;		PERIOD GETS NO WARNING.

	ENTRY	 SETDN
	INTERNAL SETFAK
	EXTERNAL FAKERA

;THIS ROUTINE SETS UP "TE" TO POINT TO THE MESSAGE
;	WHOSE NUMBER IS IN "TB"

SETDN:	LDB	TE,	TBNUM		;GET THE DIAG NUMBER.
	CAIG	TE,	LASTLO		; [405] POINTER IN THE FIRST TABLE?
	JRST		SETDN1		;YES.
	CAIGE	TE,	FRSTB2		;BETWEEN FIRST AND SECOND TABLES?
	JRST		SETDN3		;YES, FAKE IT.
	CAIG	TE,	RLSTHI		;SECOND TABLE?
	JRST		SETDN2		;YES.
	CAIG	TE,	LASTHI		;BETWEEN SECOND AND THIRD TABLES?
	JRST		SETDN3		;YES, FAKE IT.
	CAILE	TE,	LSTDIG		;IN THE THIRD TABLE?
	JRST		SETDN3		;NO, FAKE IT.
	MOVE	TE,	TABLE3-<LASTHI+1>(TE)	;GET THE POINTER.
	JRST		.+3		;GO SEE IF THERE REALLY IS A MSG.
SETDN1:	SKIPA	TE,	TABLE1(TE)	;GET IT FROM THE FIRST TABLE.
SETDN2:	SKIPE	TE,	TABLE2-FRSTB2(TE)	;GET IT FROM THE SECOND TABLE.
	JUMPN	TE,	CPOPJ		;IF THERE REALLY WAS A POINTER
					; RETURN, OTHERWISE FAKE IT.
;FAKE DIAGNOSTIC REQUIRED

SETDN3:	LDB	TE,TBNUM	;CONVERT DIAG # TO DECIMAL
	IDIVI	TE,12
	LSHC	TD,-7
	IDIVI	TE,12
	LSHC	TD,-7
	IDIVI	TE,^D10
	LSHC	TD,^D14+^D15
	LSHC	TE,^D21
	ADD	TE,	["0000"]

	DPB	TE,[POINT 28,FAKERA+3,34]; STASH # IN MESSAGE

	LDB	TE,TBFAZE
	DPB	TE,[POINT 4,FAKERA+6,20]

	MOVE	TE,[POINT 7,FAKERA,6]
CPOPJ:	POPJ	PP,


SETFAK:	XWD	.+1,7
	ASCIZ	/FDiagnostic no. XXXX from phase A/
;IF THE FIRST CHARACTER OF A DIAGNOSTIC MESSAGE IS "A", THAT
;	MESSAGE WILL APPEAR AT THE END OF THE SOURCE LISTING.
;IF THE CHARACTER IS "F", THE DIAG IS FATAL.
;IF ANY OTHER CHARACTER (SPECIFICALLY "W"),
;	 THE DIAG IS A WARNING IMBEDDED IN SOURCE LISTING.

	DEFINE ERROR (X,Y),<
	XLIST
	.XCREF
ERA'X:	ASCIZ $'Y'$
	IFG ^D'X-LASTLO,<
	IFL ^D'X-FRSTB2,<LASTLO==^D'X>>
	IFG ^D'X-RLSTHI,<
	IFL ^D'X-LASTHI,<RLSTHI==^D'X>>
	IFG ^D'X-LSTDIG,<LSTDIG==^D'X>
	.CREF
	LIST
	>

	INTERNAL FRSTHI
	INTERNAL LASTHI
	LASTLO==0
	LASTHI==0			;LAST MESSAGE IN TABLE 1.
	RLSTHI==0			;LAST MESSAGE IN TABLE 2.
	LSTDIG==0			;LAST MESSAGE IN TABLE 3.
	FRSTHI==^D500			;FIRST MESSAGE REQUIRING
					; ADDITIONAL DATA.
	FRSTB2==FRSTHI-4		;FIRST MESSAGE IN TABLE 2.
	LASTHI==^D550			;LAST POSSIBLE MESSAGE IN TABLE 2.
					; NOTE:  TABLE 3 STARTS AT 551.
	ERROR 1,<FFirst word not IDENTIFICATION.>
	ERROR 2,<FBlocking factor greater than 4095.>
	ERROR 3,<FMore than one PROGRAM-ID.>
	ERROR 4,<FImproper PROGRAM-ID.>
IFE TOPS20,<
	ERROR 5,<WDECsystem-10 assumed.>
>
IFN TOPS20,<
	ERROR 5,<WDECSYSTEM-20 assumed.>
>
	ERROR 6,<FMore than one OBJECT-COMPUTER paragraph.>
	ERROR 7,<FImproper paragraph name.>
	ERROR 8,<FThe word SELECT expected.>
	ERROR 9,<FFile SELECTed more than once.>
	ERROR 10,<FASSIGN is the only allowed word here.>
	ERROR 11,<FNo device name specified.>
	ERROR 12,<FOnly one device of this type allowed.>
	ERROR 13,<FNo file name given.>
	ERROR 14,<FProcessing mode must be SEQUENTIAL.>
	ERROR 15,<FImproper ACCESS mode.>
	ERROR 16,<FClause duplicated.>
	ERROR 17,<FThis cannot be a data name.>
	ERROR 18,<FImproper clause.>
	ERROR 19,<FImproper SEGMENT-LIMIT.>
	ERROR 20,<FThis file not SELECTed.>
	ERROR 21,<FThis cannot be a file-name.>
	ERROR 22,<FPosition number required.>
	ERROR 23,<FNot on same device as previous file listed.>
	ERROR 24,<FCannot be used as a mnemonic name.>
	ERROR 25,<FPositive integer required.>
	ERROR 26,<FCannot be used as a condition name.>
	ERROR 27,<FMust be a single-character non-numeric literal.>
	ERROR 28,<FAlready in use as a mnemonic name.>
	ERROR 29,<FMore than one RERUN clause for this file.>
	ERROR 30,<FParagraph appears more than once.>
;	ERROR 31,<FNo DATA DIVISION.>
;	ERROR 32,<FNo PROCEDURE DIVISION.>
	ERROR 33,<FAll records for this file must have same usage.>
	ERROR 34,<FThis file already defined.>
	ERROR 35,<FRecord name not unique within this file.>
	ERROR 36,<FThis is a multi-device file.>
	ERROR 37,<WThis record not mentioned in DATA RECORDS clause.>
	ERROR 38,<FNo record name given.>
	ERROR 39,<FThis is not previous item at this level.>
	ERROR 40,<FThis is not a numeric item.>
	ERROR 41,<FUsage conflicts with group item.>
	ERROR 42,<FThis clause not valid for group item.>
	ERROR 43,<FImproper section name.>
	ERROR 44,<FNot a SORT file.>
	ERROR 45,<FThis must be a literal.>
	ERROR 46,<FNot allowed in this section.>
	ERROR 47,<FData name not defined in this record.>
	ERROR 48,<FNew record expected here.>
	ERROR 49,<FNo value given.>

;MESSAGE 50 SEEMS TO DUPLICATE MESSAGE 171
;	ERROR 50,<FSection duplicated.>
	ERROR 51,<FImproper PICTURE - this character invalid.>
	ERROR 52,<FImproper PICTURE - this character not
allowed in combination with preceding characters.>
	ERROR 53,<FA word may not begin with a hyphen.>
	ERROR 54,<FA word may not end with a hyphen.>
	ERROR 55,<FToo many characters in the word.>
	ERROR 56,<FToo many characters in the literal.>
	ERROR 57,<FInvalid character.>
	ERROR 58,<FCannot be used as an index name.>
	ERROR 59,<FThis item does not have usage INDEX.>
	ERROR 60,<FNot uniquely defined.>
	ERROR 61,<FMore than three levels of OCCURS.>
	ERROR 62,<FVALUE OF ID must be a DISPLAY field of 9 characters.>
	ERROR 63,<FVALUE OF DATE-WRITTEN must be a DISPLAY field of 6 characters.>
	ERROR 64,<FLevel numbers must be in range 01-49.> ;[1102]
	ERROR 65,<FInvalid clauses for group item.>
	ERROR 66,<FREDEFINES not valid at record level in FILE SECTION.>
	ERROR 67,<FFOR expected.>
	ERROR 68,<FINDEX USAGE items may not have a PICTURE.>
	ERROR 69,<WJUSTIFIED clause invalid with numeric items.>
	ERROR 70,<WNo ending quote on this literal.>
	ERROR 71,<WNo leading quote on continued literal.>
	ERROR 72,<FToo many characters in PICTURE.>
	ERROR 73,<FImproper continuation character.>
	ERROR 74,<FLibrary routine not found.>
	ERROR 75,<FNo library specified in command string.>
	ERROR 76,<FImproper character for numeric literal.>
	ERROR 77,<FMore than one decimal point.>
	ERROR 78,<WShould not be preceded by a space.>
	ERROR 79,<WShould be followed by a space.>
	ERROR 80,<FFile descriptor expected.>
	ERROR 81,<WPreceding space assumed.>
	ERROR 82,<FSource line too long.>
	ERROR 83,<FImproper device name.>
	ERROR 84,<FRight parenthesis expected.>
	ERROR 85,<FAlready in use as a condition name.>
	ERROR 86,<FRelational operator expected.>
	ERROR 87,<FON or OFF expected.>
	ERROR 88,<FIntermediate result too large.>
	ERROR 89,<FValues not allowed in LINKAGE SECTION.>
	ERROR 90,<FAltering independent segment from another segment.>
	ERROR 91,<FNot implemented in this version of COBOL.>
	ERROR 92,<FExternal program name expected.>
	ERROR 93,<FDummy argument must be an 01 LINKAGE SECTION item.>
	ERROR 94,<WThis paragraph is never ALTERed.>
	ERROR 95,<FIllegal entry name.>
	ERROR 96,<FDecimal places not allowed.>
	ERROR 97,<FNo file-descriptor for this file.>
	ERROR 98,<FMust be an integer in the range 0 - 66.>
	ERROR 99,<FMust be a printer channel.>
	ERROR 100,<FNot yet implemented.>
	ERROR 101,<FIdentifier expected.>
	ERROR 102,<WNot a device name -- TTY assumed.>
	ERROR 103,<FCannot be a data-name.>
	ERROR 104,<FNot defined.>
	ERROR 105,<WNo CORRESPONDING elements.>
	ERROR 106,<FNot a group name.>
	ERROR 107,<FERROR expected.>
	ERROR 108,<FSIZE ERROR assumed.>
	ERROR 109,<FSIZE ERROR clause incorrect.>
	ERROR 110,<FNumeric literal or identifier expected.>

;NOTE THERE IS NO MESSAGE 111.  INSTEAD MESSAGE 111 CAUSES
;EITHER 103 OR 104 DEPENDING ON THE SITUATION.

	ERROR 112,<FAt least two items must appear before GIVING.>
	ERROR 113,<FCannot be ALTERed.>
	ERROR 114,<FPROCEED expected.>
	ERROR 115,<FParagraph name expected.>
	ERROR 116,<WALTERed to proceed to itself.>
	ERROR 117,<FFile name or AREA expected.>
	ERROR 118,<FNO REWIND or LOCK expected.>
	ERROR 119,<FNO REWIND expected.>
	ERROR 120,<FBY or INTO expected.>
	ERROR 121,<FGIVING clause required.>
	ERROR 122,<FALL, LEADING, or UNTIL FIRST expected.>
	ERROR 123,<F1-character non-numeric literal expected.>
	ERROR 124,<FBY expected.>
	ERROR 125,<WPeriod assumed.>
	ERROR 126,<FDEPENDING ON clause expected.>
	ERROR 127,<FTIMES expected.>
	ERROR 128,<FEND expected.>
	ERROR 129,<FAT END or INVALID KEY clause missing.>
	ERROR 130,<FIdentifier, index, or TO expected.>
	ERROR 131,<FIdentifier, index, or literal expected.>
	ERROR 132,<FIdentifier, index, TO, UP, or DOWN expected.>
	ERROR 133,<FIndex or identifier expected.>
	ERROR 134,<FIllegal item in expression: compiler error.>
	ERROR 135,<FUnbalanced parenthesis in expression.>
	ERROR 136,<FTO expected.>
	ERROR 137,<WDIVISION expected.>
	ERROR 138,<FParagraph or section name expected.>
	ERROR 139,<FSection name expected.>
	ERROR 140,<WSECTION expected.>
	ERROR 141,<FOnly comments may appear in remainder of this paragraph.>
	ERROR 142,<FNot a declarative sentence.>
	ERROR 143,<FBEFORE or AFTER expected.>
	ERROR 144,<FBEGINNING, ENDING, or ERROR expected.>
	ERROR 145,<FREEL, FILE, or UNIT expected.>
	ERROR 146,<FLABEL expected.>
	ERROR 147,<FPROCEDURE expected.>
	ERROR 148,<FStatement expected, or invalid identifier or keyword.>
	ERROR 149,<F'=' Expected.>
	ERROR 150,<FTALLYING or REPLACING expected.>
	ERROR 151,<FA group item may not be a minor key.>	;[220]
	ERROR 152,<F'.' or ELSE expected.>
	ERROR 153,<FSENTENCE expected.>
	ERROR 154,<FINPUT, OUTPUT, I-O, or AREA expected.>
	ERROR 155,<FProcedure name expected.>
	ERROR 156,<FToo many levels of VARYING.>
	ERROR 157,<FFROM expected.>
	ERROR 158,<FUNTIL expected.>
	ERROR 159,<FRecord name expected.>
	ERROR 160,<WThis statement does nothing.>
	ERROR 161,<FKEY expected.>
	ERROR 162,<FDECLARATIVES expected.>
	ERROR 163,<FExternal name expected.>
	ERROR 164,<FMACRO, or FORTRAN expected.>
	ERROR 165,<FFIRST expected.>
	ERROR 166,<FALL, LEADING, FIRST, or UNTIL FIRST expected.>
	ERROR 167,<FIllegal sequence of priorities.>
	ERROR 168,<FNull PROCEDURE DIVISION.>
	ERROR 169,<FNull DECLARATIVES.>
	ERROR 170,<FRUN or literal expected.>
	ERROR 171,<FDuplicate section name.>
	ERROR 172,<FDuplicate paragraph in this section.>
	ERROR 173,<FThis file already appears in a SAME RECORD AREA clause.>
	ERROR 174,<FThis file already appears in a SAME AREA clause.>
	ERROR 175,<FImproper character for CURRENCY SIGN.>
	ERROR 176,<FFD expected.>
	ERROR 177,<FLABEL RECORDS clause required.>
	ERROR 178,<FTwo sections have this name.>
	ERROR 179,<FThis paragraph name must be qualified.>
	ERROR 180,<FA section, as well as a paragraph in the current section,
has this name.>
	ERROR 181,<FThis procedure name is not defined.>
	ERROR 182,<FNot a PICTURE.>
	ERROR 183,<FNull literal.>
	ERROR 184,<FIllegal use of figurative constant.>
	ERROR 185,<FImproper reference of procedure name in or out of DECLARATIVES.>
	ERROR 186,<FFigurative constant or non-numeric literal must follow ALL.>
	ERROR 187,<FThis procedure name is multiply defined.>
	ERROR 188,<WThis statement cannot be reached.>
	ERROR 189,<FToo many levels of qualification.>
	ERROR 190,<FImproper qualification.>
	ERROR 191,<FThis file is never OPENed.>
;	ERROR 192,<fBLOCK CONTAINS n RECORDS must be specified for RANDOM access files.>
;	ERROR 193,<FFILE-LIMITS required.>
;	ERROR 194,<FVariable length records not allowed.>
	ERROR 195,<FA sort or merge file may not be specified in the MULTIPLE FILE TAPE clause.>
	ERROR 196,<FMultiple files on same device must have a uniform labeling convention.>
	ERROR 197,<FOnly one device allowed.>
	ERROR 198,<FLABELS must be STANDARD.>
	ERROR 199,<FVALUE OF ID required.>
;	ERROR 200,<FVALUE OF ID & VALUE OF DATE-WRITTEN not allowed.>
	ERROR 201,<FNo data record specified.>
	ERROR 202,<FNo devices specified.>
	ERROR 203,<FThe word DATA expected.>
	ERROR 204,<WFile never OPENed.>
	ERROR 205,<FORGANIZATION must be RELATIVE or INDEXED.>
	ERROR 206,<FNot a record in the FILE SECTION.>
	ERROR 207,<FMust contain an integer.>
	ERROR 208,<WAT END assumed.>
	ERROR 209,<WINVALID KEY assumed.>
	ERROR 210,<FThis literal may contain only DISPLAY-6 characters.>
	ERROR 211,<FImproper class.>
	ERROR 212,<WCondition always true.>
	ERROR 213,<WCondition always false.>
	ERROR 214,<FWrong number of operands passed from PHASE D: compiler error.>

	ERROR 215,<FFound outside an expression: compiler error.>
	ERROR 216,<FExpression generator confused: compiler error.>
	ERROR 217,<WImpossible to get SIZE ERROR.>
	ERROR 218,<WRounding not necessary.>
	ERROR 219,<FImproper range of PERFORM.>
	ERROR 220,<FPICTURE required.>
	ERROR 221,<FPICTURE not permitted.>
	ERROR 222,<FBLANK WHEN ZERO not allowed at group level.>
	ERROR 223,<FBLANK WHEN ZERO allowed only on numeric display items.>
	ERROR 224,<FJUSTIFIED clause not allowed at group level.>
	ERROR 225,<FSYNCHRONIZED clause not allowed at group level.>
	COMMENT	\	ALLOW USAGE INDEX AT GROUP LEVEL	21-MAR-75	/ACK
	ERROR 226,<FUSAGE INDEX clause not allowed at group level.>
\
	ERROR 227,<WAt least one and no more than eight data names must
be given in a FILE STATUS clause.>
	ERROR 228,<WThis record not mentioned in DATA RECORDS clause -- DATA RECORD assumed
.>
	ERROR 229,<FA maximum of 4095 occurrences allowed.>
	ERROR 230,<FCondition-name multiply defined for this item.>
	ERROR 231,<FCONTROL identifier or FINAL expected.>
	ERROR 232,<WEXIT for this procedure cannot be reached.>
	ERROR 233,<WOTHERS expected.>
	ERROR 234,<FVALUE clause at higher level supersedes VALUE
clause at this level.>
	ERROR 235,<FVALUE clause may not appear in a data description containing,
or subordinate to an entry containing, an OCCURS clause.>
	ERROR 236,<FGroup items may have only figurative constants or non-numeric
literals as values.>
	ERROR 237,<FVALUE clause not permitted in FILE SECTION.>
	ERROR 238,<WNon-numeric literal in value clause truncated to size of item.>
	ERROR 239,<FDivision by zero not permitted.> ; 
	ERROR 240,<FACTUAL KEY must be a COMPUTATIONAL item of ten or fewer digits.>
	ERROR 241,<FClass of data item inconsistent with VALUE.>
	ERROR 242,<FNon-standard characters in VALUE clause.>
	ERROR 243,<FSwitch numbers must be in the range 0 through 35.>
	ERROR 244,<FUSAGE conflicts with PICTURE.>
	ERROR 245,<FToo many digits to left of decimal point in VALUE clause.>
	ERROR 246,<FToo many digits to right of decimal point in VALUE clause.>
	ERROR 247,<FAn item subordinate to one containing a VALUE clause must not
be JUSTIFIED or SYNCHRONIZED, and must have USAGE DISPLAY-6, DISPLAY-7
OR DISPLAY-9.>
	ERROR 248,<FVALUE not in range described by PICTURE.>
	ERROR 249,<WVALUE may not be signed.>
	ERROR 250,<FWrong number of subscripts.>
	ERROR 251,<FImproper subscript.>
	ERROR 252,<FVALUE greater than number of occurrences.>
	ERROR 253,<FData items with levels of 01, 66, or 77 may not appear in
a RENAMES clause.> ; [253]
	ERROR 254,<FData items requiring subscripting may not appear in a
RENAMES clause.> ; [253]
	ERROR 255,<FData items appearing in a RENAMES ... THRU ... clause must
belong to the same record.>
	ERROR 256,<FData items appearing in a RENAMES ... THRU ... clause may neither be
subordinate to the other.>
	ERROR 257,<FThe area defined by the second data item in a RENAMES ... THRU ...
clause must follow the area defined by the first.>
	ERROR 258,<FLiteral or figurative constant expected.>
	ERROR 259,<FAnother independent item has this name.>
	ERROR 260,<FIF syntax scan error -- improper unnesting--compiler error.>
	ERROR 261,<FUnbalanced parentheses.>
	ERROR 262,<FNo current paragraph - compiler error.>
	ERROR 263,<FNull table link - compiler error.>
	ERROR 264,<FInteger literal or identifier expected, or NEXT/PRIOR/FIRST/LAST.>
;	ERROR 264,<FMust be numeric, and have no decimal places.>
	ERROR 265,<FOnly group items allowed in CORRESPONDING.>
	ERROR 266,<FMay redefine only the current data item.>
	ERROR 267,<FMust be an 01-level report group item.>
	ERROR 268,<FMore than 12 nested redefinitions.>
	ERROR 269,<FAn item containing, or subordinate to an item
containing, an OCCURS clause may not be redefined>
	ERROR 270,<FVALUE clause is not permitted in a redefinition.>
	ERROR 271,<ARedefinition is not the same size as the redefined item.>
	ERROR 272,<FThis must be greater than the first integer.>
	ERROR 273,<FImproper use of ALL.>
	ERROR 274,<FMust be subscripted.>
	ERROR 275,<FMay not be subscripted.>
	ERROR 276,<FBad USAGE -- compiler error.>
	ERROR 277,<FToo many levels of subscripting.>
	ERROR 278,<FMust have a size of 10 digits or less.>
	ERROR 279,<FCannot continue after an empty or comment line.>
	ERROR 280,<FASCENDING or DESCENDING expected.>
	ERROR 281,<FRENAMES expected.>
	ERROR 282,<FCode generator confused -- compiler error.>
	ERROR 283,<FImproper name for independent item.>
	ERROR 284,<FA record containing DISPLAY-7 items may not
contain items of any other usage.>
	ERROR 285,<FThis cannot be a library-name.>
	ERROR 286,<FCOPY statement must be terminated by a period.>
	ERROR 287,<FLeft parenthesis expected.>
	ERROR 288,<FIdentifier, numeric literal, or mnemonic-name expected.>
	ERROR 289,<FFILLER may not be referenced directly.>
	ERROR 290,<FThis must be a SWITCH ON or OFF STATUS.>
	ERROR 291,<FThis file must not appear in an SD.>
	ERROR 292,<FCannot have both USING and INPUT PROCEDURE.>
	ERROR 293,<FMust have either USING or INPUT PROCEDURE.>
	ERROR 294,<FCannot have both GIVING and OUTPUT PROCEDURE.>
	ERROR 295,<FMust have either GIVING or OUTPUT PROCEDURE.>
	ERROR 296,<FVALUE expected.>
	ERROR 297,<FThere is an independent item of this name.>
	ERROR 298,<FImproper figurative constant in VALUE clause.>
	ERROR 299,<FNo result found -- compiler error.>
	ERROR 300,<WRounding not done for COMP-1 or COMP-2 fields.>
	ERROR 301,<FBLOCK CONTAINS must be specified for a file opened for
INPUT-OUTPUT.>
	ERROR 302,<WOnly eight significant places allowed for COMP-1.>
	ERROR 303,<FTHRU expected.>
;	ERROR 304,<FAt least 3 devices must be assigned to a SORT file.>
REPEAT 0,<
	Error 305,<FA file opened for INPUT-OUTPUT or RANDOM access
must have a BLOCK CONTAINS 1 RECORD clause if it is explicitly or
implicitly DISPLAY-7.>
>
	ERROR 306,<WSyntax scan suspended at this character.>
	ERROR 307,<WSyntax scan resumed at this character.>
	ERROR 308,<FThis procedure-name must be in DECLARATIVES.>
	ERROR 309,<FThis procedure-name must not be in DECLARATIVES.>
	ERROR 310,<FThis procedure-name must be in an INPUT PROCEDURE.>
	ERROR 311,<FThis procedure-name is in an INPUT PROCEDURE.>
	ERROR 312,<FThis procedure-name must be in an OUTPUT PROCEDURE.>
	ERROR 313,<FThis procedure-name is in an OUTPUT PROCEDURE.>
	ERROR 314,<FLiterals and reserved words may not be replaced.>
	ERROR 315,<FA word may not be replaced by a reserved word.>
	ERROR 316,<FAn item may not exceed 262,143 characters.>
	ERROR 317,<FThis is neither a data-name nor a procedure-name.>
	ERROR 318,<FAT END clause required.>
	ERROR 319,<FINVALID KEY clause required.>
	ERROR 320,<FAT END and INVALID KEY not allowed.>
	ERROR 321,<FThis item must not be COMPUTATIONAL-1.>
	ERROR 322,<FA record in the FILE SECTION may not exceed 4095 characters.>
	ERROR 323,<FMore than 24 nested IF/SEARCH statements.>
	ERROR 324,<FMore than 24 conditions nested in IF statement.>
	ERROR 325,<FOCCURS is illegal at 01 level in FILE SECTION.>
	ERROR 326,<FVerb name expected.>
	ERROR 327,<FInvalid DENSITY.>
	ERROR 328,<FODD or EVEN required.>
	ERROR 329,<FNon-sixbit character in VALUE of DISPLAY-6 item.>
	ERROR 330,<FA numeric item may not exceed 18 digits.>
	ERROR 331,<FTwo literals may not be compared.>
	ERROR 332,<FInsufficient qualification.>
	ERROR 333,<FFewer than 6 characters in DATE-WRITTEN.>
	ERROR 334,<WFewer than 9 characters in IDENTIFICATION.>
	ERROR 335,<FSecond half of project-programmer number missing.>
	ERROR 336,<FMust be an octal integer of 6 digits or less.>
	ERROR 337,<FImproper mode.>
	ERROR 338,<FA report may not be sent to more than one file.>
	ERROR 339,<FFILE SECTION must precede REPORT SECTION.> ; 
	ERROR 340,<FData item has improper size for this use.>
	ERROR 341,<WShould begin in A-margin.>
	ERROR 342,<FREPORT not specified in a REPORT clause in FILE SECTION.>
	ERROR 343,<FLine number greater than PAGE LIMIT.>
	ERROR 344,<FPAGE LIMIT must be positive and less than 512.>
	ERROR 345,<FCONTROL identifier expected.>
	ERROR 346,<FIf used, FINAL must be the first CONTROL.>
	ERROR 347,<FDEPENDING variables must be COMP and 10 digits or less.>
	ERROR 348,<FClause not legal in report group.>
	ERROR 349,<FUSAGE not legal in REPORT SECTION.>
	ERROR 350,<FClause legal only in report group.>
	ERROR 351,<FPAGE expected.>
	ERROR 352,<FMust be less than PAGE LIMIT.>
	ERROR 353,<FNot a CONTROL identifier.>
	ERROR 354,<FOnly one GROUP of this type allowed per report.>
	ERROR 355,<FHEADING or FOOTING required.>
	ERROR 356,<FReport item type required.>
	ERROR 357,<FNot declared as a CONTROL.>
	ERROR 358,<FItem must be in TYPE DETAIL of TYPE CONTROL FOOTING report group.>
	ERROR 359,<FReport-name expected.>
	ERROR 360,<FItem will not fit in print line.>
	ERROR 361,<FNot a TYPE DETAIL item.>
	ERROR 362,<FItem is SUMmed in REPORT SECTION, therefore it must be numeric.>
	ERROR 363,<FOnly a CONTROL FOOTING GROUP may have a SUM.>
	ERROR 364,<FItem referenced by a SUM UPON clause must be TYPE DETAIL.>
	ERROR 365,<FADVANCING/POSITIONING clause illegal with RECORDING MODE other than ASCII.>	;[1466]
	ERROR 366,<FVALUE OF USER-NUMBER must be a COMP item with fewer than 11 digits.>
	ERROR 367,<FMust be defined in either the FILE or WORKING-STORAGE SECTION.>
	ERROR 368,<FRESET may be used only with CONTROL-FOOTING items.>
	ERROR 369,<FMust be a CONTROL.>
	ERROR 370,<FMust be a higher level CONTROL than that of this GROUP.>
	ERROR 371,<FValid only for files with ACCESS MODE INDEXED.>
	ERROR 372,<FADVANCING allowed only on SEQUENTIAL files.>
	ERROR 373,<FImproper usage.>
;	ERROR 374,<FRECORD KEY and SYMBOLIC KEY must be same class.>
;	ERROR 375,<FRECORD KEY and SYMBOLIC KEY must be same USAGE.>
;	ERROR 376,<FRECORD KEY and SYMBOLIC KEY must be same size.>
;	ERROR 377,<FRECORD KEY and SYMBOLIC KEY must have the same number of decimal places.>
	ERROR 378,<FINDEXED files must not be BINARY.>
	ERROR 379,<FRECORD KEY must be in appropriate record.>
	ERROR 380,<FREDEFINES nesting confused -- compiler error.>
	ERROR 381,<FSearched items must have OCCURS clause with INDEXED option.>
	ERROR 382,<FA key of more major priority than this was not specified.>
	ERROR 383,<FOne operand in every WHEN condition must be a search key.>
	ERROR 384,<FAssociated data item must be a search key.>
	ERROR 385,<FCondition name must have only a single value.>
	ERROR 386,<FSEARCH ALL requires KEY clause in table definition.>
	ERROR 387,<FCODE must not contain non-sixbit characters.>
	ERROR 388,<WON/OFF expected - ON assumed.>
	ERROR 389,<FOnly equality conditions allowed in SEARCH ALL.>
	ERROR 390,<FWHEN expected.>
	ERROR 391,<FThe only connective in WHEN clause is AND.>

;DONT BELIEVE 392 IS EVER USED
;BUT IF IT IS IT SHOULD BE CHANGED TO 329
;	ERROR 392,<FNon-sixbit character in literal.>

;	ERROR 393,<FSYMBOLIC KEY required.>
	ERROR 394,<FRECORD KEY required.>
	ERROR 395,<FRECORDS or CHARACTERS required.>
	ERROR 396,<FCALL argument must be word-aligned.>
	ERROR 397,<FDuplicate ENTRY definition.>
	ERROR 398,<FIllegal to call internal ENTRY.>
	ERROR 399,<FPAGE-COUNTER and LINE-COUNTER may not be independently defined when report writer features are used.>
	ERROR 400,<FImproper punctuation.>
	ERROR 401,<FNot declared in an ENTRY or PD USING clause.>
	ERROR 402,<FDuplicate WORKING-STORAGE SECTION.>
IFN DBMS,<
	ERROR 403,<FSet-name or ANY expected.>
	ERROR 404,<FSET expected.>
	ERROR 405,<FERROR-STATUS expected.>
	ERROR 406,<FIllegal combination of ERROR-STATUS USE PROCEDURES.>
	ERROR 407,<FArea-name expected.>
	ERROR 408,<FDuplicate SCHEMA SECTION.>
	ERROR 409,<FALL, RECORD, AREA, SET, or set-name expected.>
>	; [312] END IFN DBMS

	ERROR 410,<WThis name shouldn't be more than 6 characters.>
IFN DBMS,<
	Error 411,<FINTO expected.>
	ERROR 412,<FALL or set-name expected.>
	ERROR 413,<FCOMPILE expected.>
	ERROR 414,<FINVALID, ONLY, SELECTIVE, ALL or no qualification expected.>
	ERROR 415,<FSELECTIVE, ONLY, ALL, or record-name expected.>
	ERROR 416,<FRecord-name, set-name, area-name, or RUN-UNIT expected.>
	ERROR 417,<FRECORD expected.>
	ERROR 418,<FFOR expected.>
	ERROR 419,<FAREA or SET expected, or invalid previous identifier.>
	ERROR 420,<FSUB-SCHEMA or sub-schema name expected.>
	ERROR 421,<FINVOKE statement must follow SCHEMA SECTION.>
	ERROR 422,<FSet-name expected.>
	ERROR 423,<FCURRENT expected.>
	ERROR 424,<FAmbiguous or incorrect RSE specification.>
	ERROR 425,<FEXCLUSIVE, PROTECTED, or RETRIEVAL expected.>
	ERROR 426,<FSet-name or area-name expected.>
	ERROR 427,<FRECORD or record-name expected.>
	ERROR 428,<FNo more than 10 area-names allowed per OPEN statement.>
	ERROR 429,<FIncorrect privacy key.>
	ERROR 430,<FUPDATE expected.>
	ERROR 431,<FDECLARATIVES must immediately follow PROCEDURE DIVISION.>
	>
IFN MCS,<
	Error 432,<FDuplicate COMMUNICATION SECTION.>
	ERROR 433,<FCOMMUNICATION SECTION must precede REPORT SECTION.>
	ERROR 434,<FMore than 11 data items in input CD.>
	ERROR 435,<FCD-name expected.>
	ERROR 436,<FINITIAL, INPUT or OUTPUT expected.>
	ERROR 437,<FINPUT expected.>
	ERROR 438,<FInvalid queue specification.>
	ERROR 439,<FDATE, TIME or COUNT expected.>
	ERROR 440,<FLENGTH expected.>
	ERROR 441,<FIS or data-name expected.>
	ERROR 442,<FOCCURS expected.>
	ERROR 443,<FDESTINATION expected.>
	ERROR 444,<FCLASS expected.>
	>
IFN MCS,<
	ERROR 445,<FNumber of occurences in destination table must be less than 51.>
;	ERROR 445,<FNumber of occurences in destination table must be equal to 1.>
	ERROR 446,<FMore than one INITIAL input CD.>
	ERROR 447,<WClause previously used.>
	ERROR 448,<FINPUT or OUTPUT expected.>
	ERROR 449,<FTERMINAL or cd-name expected.>
	ERROR 450,<FInvalid password.>
	ERROR 451,<FMESSAGE or COUNT expected.>
	ERROR 452,<FCOUNT expected.>
	ERROR 453,<FMust be an output CD.>
	ERROR 454,<FMust be alphanumeric.>
	ERROR 455,<FInvalid end indicator.>
	ERROR 456,<FDuplicate cd-name.>
	ERROR 457,<FFROM or WITH expected.>
	ERROR 458,<FMust be an input CD.>
	>
IFN MCS,<
	ERROR 459,<FMESSAGE or SEGMENT expected.>
;	ERROR 459,<FMESSAGE expected.>
	>
	ERROR 460,<FPOINTER expected.>
	ERROR 461,<FOVERFLOW expected.>
	ERROR 462,<FDELIMITED BY clause required.>
IFN MCS,<
	ERROR 463,<FMust be a channel number.>
	>
	ERROR 464,<FCannot be an edited item.>
	ERROR 465,<WPointer, counter or tallying item may have too few digits.>
IFN MCS,<
	ERROR 466,<FReceiving item contained in cd-record.>
	>

IFN DBMS,<
	ERROR 467,<FSTATUS expected.>
	>
	ERROR 468,<FOR or INTO expected.>
	ERROR 469,<WCANCEL is not implemented yet -- this sentence ignored.>

IFN DBMS!MCS,<
	ERROR 470,<FThis section is out of order.>	;[%331]
	ERROR 471,<FSchema name may not also be a reserved word or data name or PROGRAM ID.>	;[sc]
	>

	ERROR 472,<FDuplicate CONTROL HEADING GROUP for this identifier.>	; [315]
	ERROR 473,<FDuplicate CONTROL FOOTING GROUP for this identifier.>	; [315]
	ERROR 474,<FColumn number must be greater than previous one in report line.>	; [315]
	ERROR 475,<FSOURCE or VALUE or (for CONTROL FOOTING only) SUM clause required.>	; [315]
	ERROR 476,<FRESET clause not allowed at GROUP level.>	; [315]
	ERROR 477,<FGROUP INDICATE clause not allowed at GROUP level.>	; [315]
	ERROR 478,<FCOLUMN NUMBER illegal at GROUP level.>	; [315]
	ERROR 479,<FSOURCE or SUM or VALUE clause not allowed at GROUP level.>	; [315]
	ERROR 480,<FNEXT GROUP clause allowed only at an 01 GROUP level.>	; [315]
	ERROR 481,<FRESET FINAL clause allowed only if there is a CONTROL FINAL.>	; [315]
	ERROR 482,<FGROUP INDICATE clause allowed only for TYPE DETAIL.>	; [315]
	ERROR 483,<FCONTROL FOOTING line number must be from FIRST DETAIL to FOOTING inclusive.>	; [315]
	ERROR 484,<FCONTROL HEADING or DETAIL line number must be from FIRST DETAIL to LAST DETAIL inclusive.>	; [315]
	ERROR 485,<FPAGE HEADING line number must be from HEADING to FIRST DETAIL inclusive.>	; [315]
	ERROR 486,<FREPORT HEADING or REPORT FOOTING line number must be from HEADING to PAGE-LIMIT inclusive.>	; [315]
	ERROR 487,<FPAGE FOOTING line number must be from FOOTING to PAGE-LIMIT inclusive.>	; [315]
	ERROR 488,<FRecord must be in a SORT FILE.> ; [257]
	ERROR 489,<FHEADING must be .le. to FIRST DETAIL.>	;[215]
	ERROR 490,<FFIRST DETAIL must be .le. to LAST DETAIL.>	;[215]
	ERROR 491,<FLAST DETAIL must be .le. to FOOTING.>	;[215]
	ERROR 492,<FCOPY not allowed within a library.>	; [213]
	ERROR 493,<FNot allowed in LINKAGE SECTION.>
	ERROR 494,<FSubscript may not be in LINKAGE SECTION.>
	ERROR 495,<FSubscripted subscript not allowed.>
	ERROR 496,<WLeft-most truncation.>
	ERROR 497,<FThere must be a LINE clause with or before the FIRST COLUMN clause in a report group.>
	ERROR 498,<WMost significant digits truncated.>
	ERROR 499,<WLeast significant digits truncated.>
;WARNING:
;	MESSAGES BETWEEN 500 AND 550 HAVE ADDED DATA

;	(SEE COBOLF AND USE OF FRSTHI IN SRTERA (IN SRTTAB)
;	(TO FIND OUT WHAT IS GOING ON)
	ERROR 500,<ALeft-most truncation on>
	ERROR 501,<ARight-most truncation on>
	ERROR 502,<AMost significant digits truncated on>
	ERROR 503,<ALeast significant digits truncated on>
	ERROR 504,<AZeroes put into>
	ERROR 505,<FConflicts with a USE procedure in SECTION>
	ERROR 506,<FClass conflicts with class of literal specified as
VALUE for condition name>
	ERROR 507,<W>	;syntax exceeds requested level.

	ERROR 551,<FUSAGE must be INDEX.>
	ERROR 552,<FClass must be alphanumeric.>
	ERROR 553,<FWrong size for this item.>
	ERROR 554,<FUsage must be DISPLAY.>
	ERROR 555,<FClass must be numeric.>
	ERROR 556,<FCan not have any decimal places.>
	ERROR 557,<FCan not be in the LINKAGE SECTION.>
	ERROR 558,<FCan not be in the FILE SECTION.>
	ERROR 559,<FCan not have a JUSTIFIED clause.>
	ERROR 560,<FCan not be edited.>
	ERROR 561,<FCan not be subscripted.>
	ERROR 562,<FBLANK WHEN ZERO not allowed.>
	ERROR 563,<FMust not be signed.>
	ERROR 564,<FMay not be used as a FILE STATUS item.>
	ERROR 565,<FIllegal CANCEL of internal ENTRY.>
;	ERROR 566,<FEBCDIC files may not have non-standard LABELS.>
	ERROR 567,<WCan not follow a level 77 item - assuming level 01.>
	ERROR 568,<WMaximum compare length of 2047 characters is exceeded.>
	ERROR 570,<FNeither a non-numeric literal nor a long numeric literal nor a figurative constant may be used to identify a record to be retained.> 
	ERROR 571,<FA one-word COMP value must be used when identifying a record of a RELATIVE file to be RETAINed.>
	ERROR 572,<FA data name or literal used to identify a record of an INDEXED file to be RETAINed must match the RECORD KEY of the file in usage and size.>
	ERROR 573,<FOnly sixteen files may be opened by a single OPEN statement.>
	ERROR 574,<FFiles being opened for simultaneous update must be opened for INPUT-OUTPUT (I-O).>
	ERROR 575,<WThe presence of a FOR clause alone does not open a file for simultaneous update; an OTHERS clause is required.>
;	ERROR 576,<FRelative indexing is not allowed on dynamicly subscripted STRING/UNSTRING items.>
	ERROR 577,<FReceiving item may not be edited or justified.>
	ERROR 578,<FInvalid RECORDING MODE.>
	ERROR 579,<FBoth WRITE ADVANCING and WRITE POSITIONING clauses are used on this file.>
	ERROR 580,<FIdentifier or numeric literal expected.>
	ERROR 581,<FOnly AFTER POSITIONING is allowed.>
	ERROR 582,<FPositioning item must be described by PIC X.>
	ERROR 583,<FMust be an integer in the range 0 - 3.>
	ERROR 584,<FAll records in a file whose recording mode is F must be the same size.>
	ERROR 585,<FOnly densities of 800 or 1600 BPI are allowed with STANDARD ASCII.>
	ERROR 586,<WThis report group will cause blank lines to be printed since it contains a LINE clause but no COLUMN clauses.>
	ERROR 587,<WMaximum ALTERNATE AREAS exceeded; set to maximum value of 62.>
IFN DBMS,<
	ERROR 588,<FVariable not File Name or not defined in SUB-SCHEMA.>
>
;	ERROR 589,<WDECSYSTEM-20 assumed.>
	ERROR 590,<WMaximum of 1023 characters will be accepted.>	;[447]
	ERROR 591,<WRounding ignored.>		;[456]
	ERROR 592,<FWITH SEQUENCE CHECK expected.>
	ERROR 593,<FOCCURS maximum of 32,767 exceeded.>
	ERROR 594,<FTransaction-name expected.>
	ERROR 595,<FRELATIVE KEY required only for RELATIVE files.>
	ERROR 596,<FBYTE and BINARY mode not both allowed.>
	ERROR 597,<FHas a DEPENDING variable not declared in an ENTRY or PD USING clause.>
	ERROR 598,<FLINKAGE subscripts must be usage COMP with fewer than 11 digits, and may not have an additive.>
	ERROR 601,<WSequenced (/S) source file assumed.>
	ERROR 602,<FMaximum of 18 decimal places exceeded.>
;	ERROR 603,<FWITH EMI or EGI expected.>
	ERROR 604,<FIllegal for this dataname to have a scaling factor.>
	ERROR 605,<F'==' Expected.>				;[557]
	ERROR 606,<WDevice missing -- TTY assumed.>
	ERROR 607,<FLibrary file not found.>			;[557]
	ERROR 608,<FCorresponding END DECLARATIVES not seen.>	;[552]
	ERROR 609,<WRERUN count maximum of 65535 assumed.>	;[553]
	ERROR 610,<FKey not contained in sort-file.>		;[554]
	ERROR 611,<WDISPLAY-6, DISPLAY-7 or DISPLAY-9 expected -- DISPLAY-6 assumed.>
	ERROR 612,<FThis item may not have a DEPENDING variable.>
	ERROR 613,<FSort key must not contain an OCCURS clause.>	;[623]
	ERROR 614,<FRecord size must match RECORD CONTAINS clause in FD of file whose RECORDING MODE is F.>	;[624]
	ERROR 615,<FIdentifier or non-numeric literal expected.>
	ERROR 616,<FIdentifier, non-numeric literal, or SIZE expected.>
	ERROR 617,<FALTERNATE RECORD KEY not supported.>
	ERROR 618,<F.>		;unused diag slot
	ERROR 619,<FMust be a key or subordinate item with the same starting position.>
	ERROR 620,<WIncorrect and ambiguous syntax.>
	ERROR 621,<WPeriod ignored.>
	ERROR 622,<WRECORD CONTAINS clause does not match max. record size, RECORD CONTAINS clause ignored.>	;[706]
	ERROR 623,<FBLOCK CONTAINS character count too small, file is unblocked.>
	ERROR 624,<FALTERNATE KEY may only be specified for INDEXED files.>
	ERROR 625,<FSimultaneous update not supported for RMS files.>
	ERROR 626,<FKEY IS allowed only when file is INDEXED.>
	ERROR 627,<FKey must be DISPLAY mode.>
	ERROR 628,<FKey size must be less than 256 characters.>
	ERROR 629,<FCALL/ENTER arg expected.>	;[1002]
	ERROR 630,<FIllegal CALL/ENTER arg.>	;[1002]
	ERROR 631,<FOPEN EXTEND may only be specified for sequential files.>
	ERROR 632,<FIF or SEARCH not allowed in WHEN clause of SEARCH>	;[1005]
	ERROR 633,<FEnding == not found.>	;[1013]
	ERROR 634,<FMust be an integer in the range 0 - 255.>
	ERROR 635,<FThis data item must be described as an integer.>
	ERROR 636,<FMay only appear in a USE BEFORE REPORTING procedure.>
	ERROR 637,<FSUPPRESS not allowed for DETAIL lines - use GENERATE <rdname>.>
	ERROR 638,<FZERO is the only figurative constant allowed.>
	ERROR 639,<FIdentifier must be one-word computational or index>	;[1431] [1046]
	ERROR 640,<FREDEFINES not allowed at 01 level in COMMUNICATION SECTION.>
	ERROR 641,<WDISPLAY-7 assumed - it is the only usage allowed here.>
	ERROR 642,<WSize of user-defined CD entry is not equal to the default size.>
	ERROR 643,<FPositive integer expected.>
	ERROR 644,<FMay not reference a report in a USE BEFORE REPORTING
 procedure which uses the same file as the USE report group.>
	ERROR	645,<FData-name illegal at this point, statement or paragraph name expected.>
	ERROR	646,<FOnly the last part of a record can have a variable number of occurances.>	;[1071]
	ERROR	647,<FMissing 9 in PICTURE clause after S.>
	ERROR	648,<FReserved word BY allowed only once in UNSTRING> ;[1116]
	ERROR	649,<WLibrary module name too long - truncated to 8 characters.>
	ERROR	650,<WLibrary file-name.ext too long - truncated to 9 characters.>
	ERROR	651,<WNo room for significant digit before first comma>	;[1135]
	ERROR	652,<FTRAILING expected.>
	ERROR	653,<FALTERNATE NUMERIC expected.>
	ERROR	654,<FINPUT-OUTPUT SECTION probably mis-spelled.>
	ERROR	655,<FDATA DIVISION probably mis-spelled.>
	ERROR	656,<FFILE-CONTROL. missing.>
	ERROR	657,<WMEMORY SIZE too large, default assumed.>	;[1330]
	ERROR	658,<FParagraph name cannot be same as section name.>
	ERROR	659,<FSimultaneous Update with RETAIN not supported for Sequential Files.>
	ERROR	660,<FOperand too large to use in literal compare.>	;[1353]
	ERROR	661,<FUsage must be DISPLAY to write from an ASCII record.>	;[1424][1537]
	ERROR	662,<FA Data-item must be explicitly named for RETAIN of an RMS-20 File Key>
	ERROR	663,<FFREE verb for RMS-20 file must specify EVERY, file-name EVERY, or file-name KEY data-name>
	ERROR	664,<FMultiple Key Data-names allowed in Key Clause of Retain for RMS Indexed Files only>
	ERROR	665,<FFirst Item following Retain KEY clause must be a Primary or Alternate RMS Key>
	ERROR	666,<FRetained Surrogate must concur with RMS Index Key according to Usage and Size.>
	ERROR	667,<ADEC extension - HIGH-VALUES is highest collating sequence value, not the highest numeric value>	;[1500][1547]
	ERROR	668,<ADEC extension - Highest numerical value used>	;[1500][1547]
	ERROR	669,<ADEC extension - ZERO is only FIGURATIVE CONSTANT allowed for numeric fields by ANSI Standard>	;[1500][1547]
	ERROR	670,<WRecord size is less than maximum computed size.>	;[1502]
;ANS-74 ERRORS START AT 700
	ERROR	700,<FContinuation of comment-entry by '-' is not permitted.>
	ERROR	701,<FBLANK WHEN ZERO and '*' not allowed together.>
	ERROR	702,<FNumeric literal must be unsigned integer.>
	ERROR	703,<FERROR or EXCEPTION expected.>
	ERROR	704,<FSEQUENTIAL, RANDOM or DYNAMIC expected.>
	ERROR	705,<FData-name or integer expected.>
	ERROR	706,<FLINES expected.>
	ERROR	707,<FFOOTING expected.>
	ERROR	708,<FTOP or BOTTOM expected.>
	ERROR	709,<FIllegal alphabet-name.>
	ERROR	710,<FItem must be signed numeric display.>
	ERROR	711,<FSEQUENCE expected.>
	ERROR	712,<FTHRU or ALSO requires a one character nonnumeric literal.>
	ERROR	713,<FAlphabet-name expected.>
	ERROR	714,<FKEY IS not allowed when READ file NEXT is specified.>
	ERROR	715,<FCOBOL-74 syntax is DELETE file-name INVALID KEY.>
;	ERROR	716,<FNon-standard labels are illegal in COBOL-74.>
;	ERROR	717,<WDEBUG module is not implemented.>
	ERROR	718,<FAlphabet-name is not defined.>
	ERROR	719,<WDuplicate character(s) in this collating sequence.>
	ERROR	720,<FValue must not exceed number of characters in the character set.>
	ERROR	721,<WAll items which are immediately subordinate to a group item must have the same level-number.>
;	ERROR	722,<ADEC extension to ANSI-74 standard.> ;[1547]
	ERROR	723,<WShould be unsigned integer.>
	ERROR	724,<FOnly one BEFORE and one AFTER clause allowed per INSPECT argument.>
	ERROR	725,<FItem must have the same size as the item being replaced.>
	ERROR	726,<FThis item must be smaller than 4096 characters.>
	ERROR	727,<FRELATIVE KEY must be specified for this file.>
	ERROR	728,<FDEBUGGING expected.>
	ERROR	729,<FDELETE not allowed for SEQUENTIAL files.>
	ERROR	730,<FReserved word in COBOL-74: may not be used as a paragraph name.>
	ERROR	731,<FDEBUG-ITEM is a reserved word in COBOL-74.>
	ERROR	732,<FNot implemented on TOPS10.>
	ERROR	733,<WBLOCK CONTAINS 1 RECORD assumed.>
;	ERROR	734,<W"RESERVE 2 AREAS" assumed.>
	ERROR	735,<FINVALID KEY clause must not be specified for SEQUENTIAL access files.>
	ERROR	736,<FALL, cd-name, file-name, identifier, or procedure-name expected.>
	ERROR	737,<FIdentifier or PROCEDURES expected.>
	ERROR	738,<FMay not RETAIN or FREE records in more than one file that has a non-COMP key.>		;DMN design flaw restriction
	ERROR	739,<FWhen the KEY clause is used for relative files, this item must be the RELATIVE KEY.>
	ERROR	740,<FKEY clause not allowed when file access mode is SEQUENTIAL.>
	ERROR	741,<FThis item must be defined in a record of the file.>

	ERROR	742,<WRecord size not the same as SD file as required by 74 standard.>
	ERROR	743,<FORGANIZATION must be RELATIVE if RELATIVE KEY is specified.>
	ERROR	744,<FORGANIZATION must be INDEXED if RECORD KEY is specified.>
	ERROR	745,<FLiteral must be 74 or 82.>
	ERROR	746,<W2-character non-numeric literal expected.>
	ERROR	747,<FNEXT expected.>
	ERROR	748,<WReport Writer file must be OPENed for OUTPUT or EXTEND only.>
	ERROR	749,<WDATA RECORD clause and REPORT clause are mutually exclusive.>
	ERROR	750,<WCOLUMN NUMBER required if VALUE clause specified.>
	ERROR	751,<FFile-name may not be repeated within the MERGE statement.>
	ERROR	752,<WLINAGE clause must be specified if END-OF-PAGE used.>
	ERROR	753,<FEND-OF-PAGE expected.>
	ERROR	754,<WADVANCING mnenonic-name cannot be specified with LINAGE clause.>
	ERROR	755,<FRELATIVE KEY must not be in record of current file.>
	ERROR	756,<FNo more than 255 keys allowed.>	;[1346]
	ERROR	757,<FCannot store key conversion address - compiler failure.>	;[1346]
	ERROR	758,<FRecord is not big enough to hold maximum variable length record.>
	ERROR	759,<FKey name and/or EVERY expected after FREE>		;[1450]
	ERROR	760,<FKey name can't be subscripted>		;[1460]
;ANS-74 REPORT WRITER ERRORS START AT 770
	ERROR	770,<WCOBOL-74 requires SUM item to be in same report>
	ERROR	771,<WCOBOL-74 does not allow LINE NEXT PAGE in RH, PH, or PF groups>
	ERROR	772,<WCOBOL-74 requires each CONTROL data-name to be unique>
	ERROR	773,<WCOBOL-74 does not allow redefinition of line clause>
	ERROR	774,<WCOBOL-74 requires a LINE clause when specifying NEXT GROUP clause>
	ERROR	775,<WCOBOL-74 requires a DETAIL, CF or CH group in a report>
	ERROR	776,<WCOBOL-74 does not allow NEXT GROUP IS NEXT PAGE in a PAGE FOOTING>
	ERROR	777,<WCOBOL-74 does not allow NEXT GROUP in a REPORT FOOTING>
	ERROR	778,<WIf a CODE clause is specified for one report, it must be specified for all reports in same file>
	ERROR	779,<WCOBOL-74 does not allow more then 3 levels in a report group>
	ERROR	780,<WCOBOL-74 does not allow 01 level entries to be elementry in REPORT SECTION>
	ERROR	781,<WCOBOL-74 does not allow a RELATIVE LINE CLAUSE to be the first line clause in a PAGE FOOTING group>
	ERROR	782,<WCOBOL-74 does not allow a NEXT GROUP IS INTEGER clause without a PAGE LIMITS clause>
	ERROR	783,<WCOBOL-74 requires a PAGE clause in RD entry when specifying PH or PF group>
	ERROR	784,<WCOBOL-74 requires a PICTURE clause and COLUMN clause when specifying a GROUP INDICATE clause>
	ERROR	785,<WCOBOL-74 does not allow subscripting with LINE-COUNTER or PAGE-COUNTER>
	ERROR	786,<WCOBOL-74 does not allow more than one DETAIL group in a summary report>
	ERROR	787,<WCannot do I-O ( other than OPEN or CLOSE ) operation on a file that contains a report.>
	ERROR	788,<WSource items may not reference control data-items in PAGE HEADING, or PAGE FOOTING report groups>
	ERROR	789,<WSource items may not reference data-items containing control data items>
	ERROR	790,<WSource items may not reference data-items subordinate to a control data item>
	ERROR	791,<WSource items may not reference a redefinition or renaming of any part of a control data-item.>
	ERROR	792,<FRelative Key of an RMS RELATIVE File must have ten digits
or less.>
	ERROR	793,<FReport must be defined in REPORT SECTION.>
	
;ANS-8x ERRORS START AT 800
	ERROR	800,<FAlphabet-name expected.>
	ERROR	801,<FDUPLICATES expected.>
	ERROR	802,<WSTANDARD-1 expected.>
	ERROR	803,<FTRUE expected.>
	ERROR	804,<FCondition-name expected.>
	ERROR	805,<WSIXBIT does not support lower case.>
	ERROR	806,<FREFERENCE or CONTENT expected.>
	ERROR	807,<FTEST expected.>
	ERROR	808,<FUNTIL or VARYING expected.>
	ERROR	809,<FSymbolic-character expected.>
	ERROR	810,<FIS or ARE expected.>
	ERROR	811,<FInteger out of range of ASCII alphabet.>
	ERROR	812,<FMore integers than symbolic-characters.>
	ERROR	813,<FMore symbolic-characters than integers.>
	ERROR	814,<FSymbolic-character must be unique.>
	ERROR	815,<FPROGRAM expected.>
	ERROR	816,<FPROGRAM-ID expected.>
	ERROR	817,<FALPHABETIC, ALPHANUMERIC, NUMERIC, ALPHANUMERIC-EDITED or NUMERIC-EDITED expected.>
	ERROR	818,<FIdentifier, integer, literal or figurative constant expected.>
	ERROR	819,<FMust not be INDEX, FILLER, REDEFINED, LEVEL 66, or contain DEPENDING ON.>
	ERROR	820,<FIncorrect scope terminator. Period assumed.> ;[1553]
	ERROR	821,<FMissing END-PERFORM.>
	ERROR	822,<FFigurative Constant ZEROS not allowed as selection subject in EVALUATE.>
	ERROR	823,<FMust be 1-character non-numeric.>
	ERROR	824,<FCan nest EVALUATE only 3 deep.>
	ERROR	825,<FFile with LINAGE clause must not be OPENed EXTEND.>
	ERROR	826,<FALL literal cannot be associated with numeric or numeric-edited data item.>
	ERROR	827,<WShould be unsigned integer whose description does not contain P.>
	ERROR	828,<WINTO phrase may not be specified in this case.>
	ERROR	829,<WADVANCING PAGE and END-OF-PAGE may not both be specified.>
	ERROR	830,<FAPPLY BASIC-LOCKING only allowed for RMS files.>
	ERROR	831,<FUNLOCK not allowed in same program as APPLY BASIC-LOCKING.>
	ERROR	832,<FRETAIN/FREE not allowed in same program as APPLY BASIC-LOCKING.>
	ERROR	833,<FCannot Open a non-RMS file for Simultaneous Update in same program as BASIC-LOCKING.>
	ERROR	834,<FOnly legal in contained programs.>
	ERROR	835,<FCOMMON or INITIAL expected.>
	ERROR	836,<FEXTERNAL or GLOBAL expected.>
	ERROR	837,<FGLOBAL expected.>
	ERROR	838,<FOnly legal at 01 level.>
	ERROR	839,<FTRUE, FALSE, or conditional expression expected>
	ERROR	840,<FImproper Selection Object for comparison>
	ERROR	841,<FModifier can't be negative or zero>
	ERROR	842,<FReference Modifier Offset too large>
	ERROR	843,<FCan use Reference Modification with a DISPLAY mode field only.>
	ERROR	844,<FReference Modification Length extends beyond field>
	ERROR	845,<FOnly one length modifier allowed.>
	ERROR	846,<WVARYING expected.>
	ERROR	847,<FMin. record size must not exceed max. record size.>
	ERROR	848,<FReference Modification has been implemented for literals only.>
	ERROR	849,<FIncorrect subscript or reference modifier.>
	ERROR	850,<FNo reference modifier for offset found.>
	ERROR	851,<FInvalid reference modifier.>
	ERROR	852,<FLibrary module name expected.>
	ERROR	853,<WClause not supported for RMS files.>
	ERROR	854,<WANSI 74 Debug module implemented, only last 3 subscripts stored.>
	ERROR	855,<FIF, SEARCH or EVALUATE scope already terminated.> ;[1553]
	ERROR	856,<FCan't INITIALIZE OCCURS with DEPENDING clause.> ;[1600]
	ERROR	899,<FContained programs not supported.>
;MISCELLANEOUS CONSTANTS

TBNUM::	POINT 10,TB,35	;DIAG NUMBER FIELD IN TB
TBFAZE:	POINT 3,TB,24	;PHASE NUMBER FIELD IN TB


;TABLES OF POINTERS TO MESSAGES

	DEFINE	TABLE (A) <
		IFDEF ERA'A <POINT 7,ERA'A,6>
		IFNDEF ERA'A <0>
	>


	Radix 10

	DEFINE TABLEA (A,B),<
	XLIST
	.XCREF
	I==A
	REPEAT B-A+1,<TABLE \I
	I==I+1>
	.CREF
	LIST>

TABLE1:	TABLEA 0,LASTLO;
TABLE2:	TABLEA FRSTB2,RLSTHI;
TABLE3:	TABLEA LASTHI+1,LSTDIG;

	RADIX 8




	END