Trailing-Edge
-
PDP-10 Archives
-
ap-c800d-sb
-
diags.mac
There are 23 other files named diags.mac in the archive. Click here to see a list.
; UPD ID= 2012 on 8/22/79 at 12:12 PM by W:<WRIGHT>
TITLE DIAGS FOR COBOL V12A
SUBTTL DIAGNOSTIC MESSAGES AL BLACKINGTON/CAM
;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, 1979 BY DIGITAL EQUIPMENT CORPORATION
SEARCH P
%%P==:%%P
STRING==:STRING
RPW==:RPW
SERCH==:SERCH
DBMS==:DBMS
MCS==:MCS
TCS==:TCS
;EDITS
;NAME DATE COMMENTS
;V12*****************
;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.
TWOSEG
RELOC 400000
XALL
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,<F'ASSIGN' 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 MAY NOT EXCEED 49>
ERROR 65,<FINVALID CLAUSES FOR GROUP ITEM>
ERROR 66,<FREDEFINES NOT VALID AT RECORD LEVEL IN FILE SECTION>
ERROR 67,<F'FOR' EXPECTED>
ERROR 68,<FINDEX USAGE ITEMS MAY NOT HAVE A PICTURE>
ERROR 69,<W'JUSTIFIED' 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,<FLINE 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,<F'ON' 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,<F'ERROR' EXPECTED>
ERROR 108,<F'SIZE 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,<F'PROCEED' EXPECTED>
ERROR 115,<FPARAGRAPH NAME EXPECTED>
ERROR 116,<WALTERED TO PROCEED TO ITSELF>
ERROR 117,<FFILE NAME EXPECTED>
ERROR 118,<F'NO REWIND' OR 'LOCK' EXPECTED>
ERROR 119,<F'NO REWIND' EXPECTED>
ERROR 120,<F'BY' OR 'INTO' EXPECTED>
ERROR 121,<F'GIVING' CLAUSE REQUIRED>
ERROR 122,<F'ALL', 'LEADING', OR 'UNTIL FIRST' EXPECTED>
ERROR 123,<F1-CHARACTER NON-NUMERIC LITERAL EXPECTED>
ERROR 124,<F'BY' EXPECTED>
ERROR 125,<WPERIOD ASSUMED>
ERROR 126,<F'DEPENDING ON' CLAUSE EXPECTED>
ERROR 127,<F'TIMES' EXPECTED>
ERROR 128,<F'END' EXPECTED>
ERROR 129,<F'AT 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,<F'TO' EXPECTED>
ERROR 137,<W'DIVISION' EXPECTED>
ERROR 138,<FPARAGRAPH OR SECTION NAME EXPECTED>
ERROR 139,<FSECTION NAME EXPECTED>
ERROR 140,<W'SECTION' EXPECTED>
ERROR 141,<FONLY NOTES MAY APPEAR IN REMAINDER OF THIS PARAGRAPH>
ERROR 142,<FNOT A DECLARATIVE SENTENCE>
ERROR 143,<F'BEFORE' OR 'AFTER' EXPECTED>
ERROR 144,<F'BEGINNING', 'ENDING', OR 'ERROR' EXPECTED>
ERROR 145,<F'REEL', 'FILE', OR 'UNIT' EXPECTED>
ERROR 146,<F'LABEL' EXPECTED>
ERROR 147,<F'PROCEDURE' EXPECTED>
ERROR 148,<FSTATEMENT EXPECTED>
ERROR 149,<F'=' EXPECTED>
ERROR 150,<F'TALLYING' OR 'REPLACING' EXPECTED>
ERROR 151,<FA GROUP ITEM MAY NOT BE A MINOR KEY> ;[220]
ERROR 152,<F'.' OR 'ELSE' EXPECTED>
ERROR 153,<F'SENTENCE' EXPECTED>
ERROR 154,<F'INPUT', 'OUTPUT', OR 'I-O' EXPECTED>
ERROR 155,<FPROCEDURE NAME EXPECTED>
ERROR 156,<FTOO MANY LEVELS OF VARYING>
ERROR 157,<F'FROM' EXPECTED>
ERROR 158,<F'UNTIL' EXPECTED>
ERROR 159,<FRECORD NAME EXPECTED>
ERROR 160,<WTHIS STATEMENT DOES NOTHING>
ERROR 161,<F'KEY' EXPECTED>
ERROR 162,<F'DECLARATIVES' EXPECTED>
ERROR 163,<FEXTERNAL NAME EXPECTED>
IFN ANS68,<
ERROR 164,<F'MACRO', 'FORTRAN', OR 'FORTRAN-IV' EXPECTED>
>
IFN ANS74,<
ERROR 164,<F'MACRO', OR 'FORTRAN' EXPECTED>
>
ERROR 165,<F'FIRST' EXPECTED>
ERROR 166,<F'ALL', 'LEADING', 'FIRST', OR 'UNTIL FIRST' EXPECTED>
ERROR 167,<FILLEGAL SEQUENCE OF PRIORITIES>
ERROR 168,<FNULL PROCEDURE DIVISION>
ERROR 169,<FNULL DECLARATIVES>
ERROR 170,<F'RUN' 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,<F'LABEL 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>
IFN ANS68,<
ERROR 192,<F'BLOCK CONTAINS N RECORDS' MUST BE SPECIFIED FOR RANDOM ACCESS FILES>
ERROR 193,<FFILE-LIMITS REQUIRED>
>
; ERROR 194,<FVARIABLE LENGTH RECORDS NOT ALLOWED>
; ERROR 195,<FFILE-LIMITS NOT ALLOWED>
IFN ANS68,<
ERROR 196,<FMULTIPLE REEL/UNIT NOT ALLOWED>
>
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>
IFN ANS68,<
ERROR 205,<FACCESS MODE MUST BE RANDOM>
>
IFN ANS74,<
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,<W'AT END' ASSUMED>
ERROR 209,<W'INVALID 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,<F'BLANK WHEN ZERO' NOT ALLOWED AT GROUP LEVEL>
ERROR 223,<F'BLANK WHEN ZERO' ALLOWED ONLY ON NUMERIC DISPLAY ITEMS>
ERROR 224,<F'JUSTIFIED' CLAUSE NOT ALLOWED AT GROUP LEVEL>
ERROR 225,<F'SYNCHRONIZED' CLAUSE NOT ALLOWED AT GROUP LEVEL>
COMMENT \ ALLOW USAGE INDEX AT GROUP LEVEL 21-MAR-75 /ACK
ERROR 226,<F'USAGE 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 OR
LABEL RECORDS CLAUSE -- DATA RECORD ASSUMED
>
ERROR 229,<FA MAXIMUM OF 4095 OCCURRENCES ALLOWED>
ERROR 230,<FCONDITION-NAME MULTIPLY DEFINED FOR THIS ITEM>
IFN RPW,<
ERROR 231,<FCONTROL IDENTIFIER OR 'FINAL' EXPECTED>
>
ERROR 232,<W'EXIT' FOR THIS PROCEDURE CANNOT BE REACHED>
ERROR 233,<W'OTHERS' 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,<F'IF' 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,<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>
IFN RPW,<
ERROR 267,<FMUST BE AN 01-LEVEL REPORT GROUP ITEM>
>
ERROR 268,<FMORE THAN 12 NESTED REDEFINITIONS>
ERROR 269,<FAN ENTRY CONTAINING, OR SUBORDINATE TO AN ENTRY
CONTAINING, AN 'OCCURS' CLAUSE MAY NOT BE REDEFINED>
ERROR 270,<F'VALUE' 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,<F'ASCENDING' OR 'DESCENDING' EXPECTED>
ERROR 281,<F'RENAMES' EXPECTED>
ERROR 282,<FSORT 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,<F'COPY' 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,<F'VALUE' 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 WITH COMP-1 FIELDS>
ERROR 301,<F'BLOCK CONTAINS' MUST BE SPECIFIED FOR A FILE OPENED FOR
INPUT-OUTPUT>
ERROR 302,<WONLY EIGHT SIGNIFICANT PLACES USED FOR COMP-1>
ERROR 303,<F'THRU' 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,<F'AT END' CLAUSE REQUIRED>
ERROR 319,<F'INVALID KEY' CLAUSE REQUIRED>
ERROR 320,<F'AT 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>
IFN ANS68,<
ERROR 323,<FMORE THAN 12 NESTED 'IF'/'SEARCH' STATEMENTS>
ERROR 324,<FMORE THAN 12 CONDITIONS NESTED IN 'IF' STATEMENT>
>
IFN ANS74,<
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>
IFN RPW,<
ERROR 338,<FREPORT NAME MUST BE UNIQUE>
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>
IFN RPW,<
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,<F'DEPENDING' VARIABLES MUST BE COMP AND 10 DIGITS OR LESS>
IFN RPW,<
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,<F'PAGE' 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,<F'HEADING' OR 'FOOTING' REQUIRED>
ERROR 356,<FREPORT ITEM TYPE REQUIRED>
ERROR 357,<FNOT DECLARED AS A CONTROL>
ERROR 358,<FITEM REFERENCED BY A 'SUM' CLAUSE MUST BE SOURCE ITEM IN
'TYPE DETAIL' OR ITEM IN 'TYPE CONTROL FOOTING' WHICH HAS
A 'SUM' CLAUSE>
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 CLAUSE ILLEGAL WITH RECORDING MODE OTHER
THAN ASCII>
ERROR 366,<FVALUE OF USER-NUMBER MUST BE COMP ITEM WITH
FEWER THAN 11 DIGITS>
IFN RPW,<
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,<F'ADVANCING' ALLOWED ONLY ON SEQUENTIAL FILES>
ERROR 373,<FIMPROPER USAGE>
IFN ISAM,<
IFN ANS68,<
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>
IFN SERCH,<
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,<F'SEARCH ALL' REQUIRES 'KEY' CLAUSE IN TABLE DEFINITION>
>
IFN RPW,<
ERROR 387,<FCODE MUST NOT CONTAIN NON-SIXBIT CHARACTERS>
>
ERROR 388,<W'ON/OFF' EXPECTED - 'ON' ASSUMED>
IFN SERCH,<
ERROR 389,<FONLY EQUALITY CONDITIONS ALLOWED IN 'SEARCH ALL'>
ERROR 390,<F'WHEN' 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>
IFN ISAM,<
IFN ANS68,<
ERROR 393,<FSYMBOLIC KEY REQUIRED>
>
ERROR 394,<FRECORD KEY REQUIRED>
>
ERROR 395,<F'RECORDS' OR 'CHARACTERS' REQUIRED>
ERROR 396,<FCALL ARGUMENT MUST BE WORD-ALIGNED>
ERROR 397,<FDUPLICATE ENTRY DEFINITION>
ERROR 398,<FILLEGAL TO CALL INTERNAL ENTRY>
IFN RPW,<
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,<F'SET' EXPECTED>
ERROR 405,<F'ERROR-STATUS' EXPECTED>
ERROR 406,<FILLEGAL COMBINATION OF ERROR-STATUS USE PROCEDURES>
ERROR 407,<FAREA-NAME EXPECTED>
ERROR 408,<FDUPLICATE SCHEMA SECTION>
ERROR 409,<F'ALL', '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,<F'INTO' EXPECTED>
ERROR 412,<F'ALL' OR SET-NAME EXPECTED>
ERROR 413,<F'COMPILE' EXPECTED>
ERROR 414,<F'INVALID', 'ONLY', 'SELECTIVE', OR 'ALL' EXPECTED>
ERROR 415,<F'SELECTIVE', 'ONLY', 'ALL', OR RECORD-NAME EXPECTED>
ERROR 416,<FRECORD-NAME, SET-NAME, AREA-NAME, OR 'RUN-UNIT' EXPECTED>
ERROR 417,<F'RECORD' EXPECTED>
ERROR 418,<F'FOR' EXPECTED>
ERROR 419,<F'AREA' OR 'SET' EXPECTED>
ERROR 420,<F'SUB-SCHEMA' OR SUB-SCHEMA NAME EXPECTED>
ERROR 421,<FINVOKE STATEMENT MUST FOLLOW SCHEMA SECTION>
ERROR 422,<FSET-NAME EXPECTED>
ERROR 423,<F'CURRENT' EXPECTED>
ERROR 424,<FAMBIGUOUS OR INCORRECT RSE SPECIFICATION>
ERROR 425,<F'EXCLUSIVE', 'PROTECTED', OR 'RETRIEVAL' EXPECTED>
ERROR 426,<FSET-NAME OR AREA-NAME EXPECTED>
ERROR 427,<F'RECORD' OR RECORD-NAME EXPECTED>
ERROR 428,<FNO MORE THAN 10 AREA-NAMES ALLOWED PER OPEN STATEMENT>
ERROR 429,<FINCORRECT PRIVACY KEY>
ERROR 430,<F'UPDATE' EXPECTED>
ERROR 431,<FDECLARATIVES MUST IMMEDIATELY FOLLOW PROCEDURE DIVISION>
>
IFN MCS!TCS,<
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,<F'INITIAL', 'INPUT' OR 'OUTPUT' EXPECTED>
ERROR 437,<F'INPUT' EXPECTED>
ERROR 438,<FINVALID QUEUE SPECIFICATION>
ERROR 439,<F'DATE', 'TIME' OR 'COUNT' EXPECTED>
ERROR 440,<F'LENGTH' EXPECTED>
ERROR 441,<F'IS' OR DATA-NAME EXPECTED>
ERROR 442,<F'OCCURS' EXPECTED>
ERROR 443,<F'DESTINATION' EXPECTED>
ERROR 444,<F'CLASS' EXPECTED>
>
IFN MCS,<
ERROR 445,<FNUMBER OF OCCURENCES IN DESTINATION TABLE MUST BE LESS THAN 51>
>
IFN TCS,<
ERROR 445,<FNUMBER OF OCCURENCES IN DESTINATION TABLE MUST BE EQUAL TO 1>
>
IFN MCS!TCS,<
ERROR 446,<FMORE THAN ONE 'INITIAL' INPUT CD>
ERROR 447,<WCLAUSE PREVIOUSLY USED>
ERROR 448,<F'INPUT' OR 'OUTPUT' EXPECTED>
ERROR 449,<F'TERMINAL' OR CD-NAME EXPECTED>
ERROR 450,<FINVALID PASSWORD>
ERROR 451,<F'MESSAGE' OR 'COUNT' EXPECTED>
ERROR 452,<F'COUNT' 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,<F'FROM' OR 'WITH' EXPECTED>
ERROR 458,<FMUST BE AN INPUT CD>
>
IFN MCS,<
ERROR 459,<F'MESSAGE' or 'SEGMENT' expected>
>
IFN TCS,<
ERROR 459,<F'MESSAGE' expected>
>
IFN STRING,<
ERROR 460,<F'POINTER' EXPECTED>
ERROR 461,<F'OVERFLOW' EXPECTED>
ERROR 462,<F'DELIMITED BY' CLAUSE REQUIRED>
>
IFN MCS!TCS,<
ERROR 463,<FMUST BE A CHANNEL NUMBER>
>
ERROR 464,<FCANNOT BE AN EDITED ITEM>
IFN STRING,<
ERROR 465,<FPOINTER, COUNTER OR TALLYING ITEM HAS TOO FEW DIGITS>
>
IFN MCS!TCS,<
ERROR 466,<FRECEIVING ITEM CONTAINED IN CD-RECORD>
>
IFN DBMS,<
ERROR 467,<F'STATUS' EXPECTED>
>
ERROR 468,<F'OR' OR 'INTO' EXPECTED>
ERROR 469,<W'CANCEL' IS NOT IMPLEMENTED YET -- THIS SENTENCE IGNORED>
IFN DBMS!MCS!TCS,<
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]
>
IFN RPW,<
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,<F'SOURCE' 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,<F'SOURCE' OR 'SUM' OR 'VALUE' CLAUSE NOT ALLOWED AT GROUP LEVEL> ; [315]
ERROR 480,<F'NEXT GROUP' CLAUSE ALLOWED ONLY AT AN 01 GROUP LEVEL> ; [315]
ERROR 481,<F'RESET FINAL' CLAUSE ALLOWED ONLY IF THERE IS A 'CONTROL FINAL'> ; [315]
ERROR 482,<F'GROUP 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]
IFN RPW,<
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>
IFN RPW,<
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 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,<FCOBOL REGRETS THAT NEITHER 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,<FPLEASE UNDERSTAND THAT WHEN IDENTIFYING A RECORD OF A SEQUENTIAL OR RANDOM FILE TO BE RETAINED, A COMP VALUE MUST BE USED>
ERROR 572,<FA DATA NAME OR LITERAL USED TO IDENTIFY A RECORD OF AN INDEXED FILE TO BE RETAINED MUST MATCH THE SYMBOLIC KEY OF THE FILE IN USAGE AND SIZE>
ERROR 573,<FCOBOL REGRETS THAT ONLY 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 DBMS4,<
ERROR 588,<FVARIABLE IN THIS CONTEXT MUST BE 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,<F'OCCURS' MAXIMUM OF 32,767 EXCEEDED>
ERROR 594,<FTRANSACTION-NAME EXPECTED>
IFN ANS68,<
ERROR 595,<FACTUAL KEY REQUIRED ONLY FOR RANDOM FILES>
>
IFN ANS74,<
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>
IFN CSTATS,<
ERROR 599,<F'WITH METER--ING' MUST BE SPECIFIED IN ENVIRONMENT DIVISION>
ERROR 600,<FMust be less than 2500>
>;END IFN CSTATS
ERROR 601,<WSequenced (/S) source file assumed.>
ERROR 602,<FMaximum of 18 decimal places exceeded>
IFN TCS,<
ERROR 603,<F'WITH' '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,<FMust represent an integer.> ;[661]
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.>
;ANS-74 ERRORS START AT 700
IFN ANS74,<
ERROR 700,<FContinuation of comment-entry by '-' is not permitted.>
ERROR 701,<F'BLANK WHEN ZERO' and '*' not allowed together.>
ERROR 702,<FNumeric literal must be unsigned integer.>
ERROR 703,<F'ERROR' or 'EXCEPTION' expected.>
ERROR 704,<F'SEQUENTIAL', 'RANDOM' or 'DYNAMIC' expected.>
ERROR 705,<Fdate-name or integer expected.>
ERROR 706,<F'LINES' expected.>
ERROR 707,<F'FOOTING' expected.>
ERROR 708,<F'TOP' or 'BOTTOM' expected.>
ERROR 709,<FIllegal Alphabet-name.>
ERROR 710,<FItem must be signed numeric display.>
ERROR 711,<F'SEQUENCE' expected.>
ERROR 712,<F'THRU' or 'ALSO' requires a one character nonnumeric literal.>
ERROR 713,<Falphabet-name expected.>
ERROR 714,<FALTERNATE RECORD KEY not supported.>
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,<WDEC extension to ANSI-74 standard>
ERROR 723,<WShould be unsigned integer.>
ERROR 724,<FOnly one 'BEFORE' or '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.>
>
;MISCELLANEOUS CONSTANTS
IFN ANS74,<INTERN TBNUM>
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