PDP-10 Archive: 43,50517/rpgerr.mac from decuslib10-10

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/rpgerr.mac

There is 1 other file named rpgerr.mac in the archive. Click here to see a list.

	SUBTTL	RPGII ERROR MESSAGES
;	BOB CURRIER	JULY 13, 1975   22:54:39
;
;THIS FILES CONTAINS ALL ERROR MESSAGES ASSOCIATED WITH RPGII VERSION 1
;AS WELL AS SOME THAT ARE NOT USED. ERROR MESSAGE NUMBERS CORRESPOND
;WITH IBM STANDARDS, AND THUS DO NOT ALWAYS MAKE A HELL OF A LOT OF SENSE
;IN THIS ENVIRONMENT.
;
;ERROR MESSAGES ARE DEFINED AS FOLLOWS:
;
;	ERR	SPEC TYPE00, ERROR #, SEVERITY, ERROR TEXT
;
;WHERE:
;
;	ERR = A MACRO CALL
;	SPEC TYPE = H,F,I,C,L,E,O
;	SEVERITY =
;		W: WARNING
;		F: FATAL
;		T: TERMINAL (THIS ABORTS COMPILATION)
;		H: HUMUNGOUS (COMPILER DRY ROT)
;
;ALL MESSAGES ARE DEFINED AS THE HUGE MACRO "DIAG".
;

DEFINE	DIAG,<

;CONTROL CARD ERRORS

ERR	H,005,W,<INVALID DEBUG CODE IN COL 15, ASSUME BLANK>
ERR	H,016,W,<INVALID 1P REPEAT ENTRY IN COL 41, ASSUME 1>
ERR	H,019,W,<INVALID ZERO SUPRESS ENTRY IN COL 44, ASSUME 1>
err	h,021,w,<invalid entries in cols 7-12, 16-40, 42-43 or 45-74,
assume blanks>
ERR	H,376,W,<INVALID FILE NAME IN COLS 75-80 OF CONTROL CARD, ASSUME BLANK>

;FILE DESCRIPTION ERRORS

ERR	F,023,W,<INVALID FILENAME IN COL 7-14, CARD IGNORED>
ERR	F,024,F,<FILENAME PREVIOUSLY DEFINED IN COL 7-14>
ERR	F,025,F,<INVALID DEVICE NAME IN COL 40-46, ASSUME DISK>
ERR	F,026,W,<INVALID FILE TYPE ENTRY IN COL 15, ASSUME DEFAULT FOR DEVICE>
ERR	F,028,W,<FILE DESIGNATION IN COL 16 IS INVALID FOR EITHER FILE TYPE OR DEVICE.
ASSUME SECONDARY>
ERR	F,030,W,<FILE DESIGNATION ENTRY IN COL 16 INVALID FOR OUTPUT OR DISPLAY FILE,
ASSUME BLANK>
ERR	F,032,W,<NO PRIMARY FILE SPECIFIED IN COL 16, ASSUME FIRST SECONDARY FILE AS PRIMARY>
ERR	F,033,F,<NO PRIMARY OR SECONDARY FILE SPECIFIED IN COL 16, OR NO FILE DESCRIPTION SPEC FOUND>
ERR	F,034,W,<MULTIPLE PRIMARY FILES DEFINED IN COL 16, ASSUME SECONDARY>
ERR	F,036,W,<INVALID END OF FILE ENTRY IN COL 17, ASSUME E FOR INPUT FILE TYPE
WITHOUT RANDOM PROCESSING>
ERR	F,037,W,<INVALID ENTRY IN COL 19, ASSUME F>
ERR	F,038,W,<END OF FILE ENTRY IN COL 17 INVALID FOR FILE TYPE>
ERR	F,039,W,<INVALID SEQUENCE ENTRY IN COL 18, ASSUME PREVIOUS ENTRY>
ERR	F,040,W,<ENTRY IN COL 18 INVALID FOR TYPE OF FILE OR MODE OF PROCESSING, ASSUME BLANK>
ERR	F,041,W,<INVALID RECORD LENGTH ENTRY IN COL 24-27, ASSUME DEFAULT FOR DEVICE>
ERR	F,042,W,<INVALID ENTRIES IN COL 20-23, ASSUME RECORD LENGTH>
ERR	F,043,W,<DUAL I/O ENTRY IN COL 32 INVALID FOR TYPE OF FILE OR MODE OF PROCESSING,
ASSUME BLANK>
ERR	F,044,W,<INVALID ENTRY IN COL 32, ASSUME BLANK>
ERR	F,045,F,<OVERFLOW INDICATOR IN COL 33-34 PREVIOUSLY ASSIGNED, ASSUME BLANK>
ERR	F,046,F,<INVALID OVERFLOW INDICATOR IN COL 33-34, ASSUME BLANK>
ERR	F,047,W,<OVERFLOW INDICATOR IN COL 33-34 INVALID FOR DEVICE, ASSUME BLANK>
ERR	F,048,W,<INVALID OR BLANK EXTENSION CODE ENTRY IN COL 39 FOR TABLE OR
RECORD ADDRESS FILE, ASSUME E>
ERR	F,049,W,<INVALID EXTENSION CODE IN COL 39>
ERR	F,051,W,<EXTENSION CODE IN COL 39 INVALID WITH DEVICE OR P,S,C, OR D IN COL 16, ASSUME BLANK>
ERR	F,052,F,<DEVICE IN COL 40-46 PREVIOUSLY ASSIGNED TO OUTPUT OR NON-TABLE INPUT FILE>
ERR	F,053,W,<INVALID ENTRIES IN COL 47-52, ASSUME BLANKS>
ERR	F,055,W,<ENTRIES IN COL 71-72 INVALID FOR TABLE FILE, ASSUME BLANK>
ERR	F,057,F,<INVALID FILE CONDITIONING ENTRIES IN COL 71-72>
ERR	F,058,W,<INVALID ENTRIES IN COL 67 AND/OR 73-74, ASSUME BLANK>
ERR	F,307,W,<FILE NAME DEFINED BUT NEVER USED. SPECIFICATION IS DROPPED>
ERR	F,308,W,<SEQUENCING INVALID FOR FILE WITH NO MATCH FIELD, ASSUME COLUMN 18 ON
FILE DESCRIPTION SPECIFICATION BLANK>
ERR	F,309,W,<SEQUENCE ENTRY IN COL 18 INVALID OR BLANK FOR FILES WITH MATCH FIELDS
SPECIFIED, ASSUME FIRST VALID SEQUENCE OR A>
ERR	F,310,F,<EXTENSION CODE SPECIFIED IN COL 39 ON FILE DESCRIPTION SPECIFICATION
FOR THIS FIL, BUT EXTENSION SPECIFICATION MISSING>
ERR	F,311,W,<AN EXTENSION OR LINE COUNTER SPECIFICATION WAS PROVIDED FOR THIS FILE BUT
AN EXTENSION CODE WAS NOT ENTERED IN COL 39 ON THE FILE DESCRIPTION SPECIFICATION>
ERR	F,339,F,<AN OUTPUT REFERENCE IS REQUIRED FOR EACH COMBINED OR UPDATE FILE>
ERR	F,374,W,<ENTRY IN COL 16 INVALID>
ERR	F,377,F,<RAF, COLUMN 31, IS NOT ALLOWED ON A BSCA FILE>
ERR	F,398,F,<COLS 54-59, INVALID FOR DEVICE, OR WRONG ENTRY, ASSUME BLANK>
ERR	F,399,F,<INVALID ENTRY IN COL 54-59>
ERR	F,400,F,<INVALID MODE OF PROCESSING ENTRY IN COL 28>
ERR	F,403,W,<INVALID LENGTH OF KEY FIELD IN COLUMN 29-30, ASSUME 03>
ERR	F,404,W,<INVALID RECORD ADDRESS TYPE ENTRY IN COLUMN 31, ASSUME A>
ERR	F,405,W,<INVALID KEY START LOCATION ENTRY IN COLS 35-38, ASSUME 1>
ERR	F,406,W,<INVALID CORE INDEX ENTRY IN COLS 60-65, ASSUME BLANK>
ERR	F,407,W,<INVALID FILE ADDITION OR UNORDERED ENTRY IN COLUMN 66, ASSUME A>
ERR	F,408,W,<NUMBER OF EXTENTS ENTRY IN COLS 68-69 IS INVALID OR NOT ALLOWED WITH THIS
DEVICE, ASSUME BLANK>
ERR	F,409,W,<ENTRY OF K MADE IN COLUMN 31 FOR RECORD ADDRESS TYPE, ASSUME A>
ERR	F,450,F,<BUFOFF SPECIFIED ON AN OUTPUT FILE>
ERR	F,451,W,<CONTINUATION (K IN COLUMN 53) INVALID FOR DEVICE>
ERR	F,452,F,<ENTRY IN COL 54-59 OF A CONTINUATION CARD IS INVALID OR MISSING>
ERR	F,453,W,<CONTINUATION ENTRY IN COL 54-59 IS REPEATED FOR A FILE, SECOND ENTRY IGNORED>
ERR	F,454,F,<INVALID BUFFER OFFSET SPECIFIED IN COL 60-65>
ERR	F,455,W,<COLUMNS 7-52 AND 66-72 ARE NOT BLANK FOR A CONTINUATION LINE, ASSUME BLANK>
ERR	F,456,F,<RECORD LENGTH SPECIFIED FOR A TAPE IS LESS THAN 18>
ERR	F,457,W,<ENTRY IN COL 70 INVALID FOR DEVICE. ASSUME BLANK>
ERR	F,458,W,<BUFOFF SPECIFIED IN COL 54-59 FOR A NON-ASCII TAPE FILE, ASSUME ASCII>
ERR	F,459,W,<COLUMNS 60-65 ARE NOT BLANK WHEN ASCII IS ENTERED IN COL 54-59>
ERR	F,460,W,<INVALID ENTRY IN COL 53, ASSUME BLANK>
ERR	F,461,W,<INVALID ENTRY IN COL 70, ASSUME BLANK>
ERR	F,462,W,<CONTINUATION, K IN COL 53, INVALID FOR MAIN FILE DESCRIPTION LINE, ASSUME BLANK>
ERR	F,540,W,<FILE TYPE ENTRY IS U OR C FOR A CONSOLE, ASSUME I>
ERR	F,541,W,<FILE DESIGNATION IS INVALID FOR ADDROUT FILE, ASSUME R>
ERR	F,543,F,<LENGTH OF KEY COL 29-30, OR LENGTH OF KEY AND KEY START LOCATION
GREATER THAN RECORD LENGTH>
ERR	F,544,W,<LENGTH OF RA OR KEY FIELD, COLS 29-30 BLANK OR INVALID, ASSUME 03>
ERR	F,545,W,<RECORD LENGTH, COLS 24-27, NOT 18 FOR ADDROUT TAPE FILE, ASSUME 18>
ERR	F,548,W,<FILE ADDITION IS INVALID FOR FILE OR DEVICE, ASSUME BLANK>
ERR	F,549,F,<KEY FIELD START LOCATION IS BLANK OR EXCEEDS RECORD LENGTH>
ERR	F,551,W,<RECORD LENGTH MISSING OR INVALID FOR DISK FILE, ASSUME 256>
ERR	F,553,W,<CORE INDEX IS INVALID FOR DEVICE TYPE OR MODE OF PROCESSING>
ERR	F,560,F,<Mode of Processing (Col 28) must contain R or blank, Assume blank>
ERR	F,561,W,<KEY FIELD START LOCATION (COLS 35-38) GIVEN BUT NOT ALLOWED, ASSUME BLANK>
ERR	F,564,F,<RECORD LENGTH IS NOT AT LEAST TWICE THE KEY LENGTH>
ERR	F,565,F,<COLUMN 31 INVALID FOR DEVICE TYPE>
ERR	F,568,W,<LENGTH OF KEY FIELD OR RA LENGTH COL 29-30 FIVEN BUT NOT ALLOWED,
ASSUME BLANK>
ERR	F,569,F,<ENTRY OF I COL 32 NOT GIVEN FOR AN INDEXED FILE, ASSUME I>
ERR	F,573,F,<MULTI RA FILES DEFINED>
ERR	F,574,F,<EXTERNAL INDICATOR COLS 71-72 NOT THE SAME AS RA FILES>
ERR	F,578,F,<RA FILE OR A FILE ASSOCIATED WITH RA FILE IS REQUIRED BUT NOT DEFINED>
ERR	F,644,W,<SHARED I/O NOT ALLOWED WITH DISK45 IN PROGRAM, ASSUME NO SHARED I/O>

;EXTENSION SPECIFICATION ERRORS

ERR	E,061,W,<INVALID ENTRIES IN COL 7-10, ASSUME BLANK>
ERR	E,062,W,<INVALID OR UNDEFINED FROM FILENAME ENTRY IN COL 11-18, CARD IGNORED>
ERR	E,063,W,<TYPE OF FILE INVALID FOR FROM FILENAME ENTRY IN COL 11-18, CARD IGNORED>
ERR	E,064,F,<INVALID OR UNDEFINED TO FILENAME IN COL 19-26, CARD IGNORED>
ERR	E,065,W,<TYPE OF FILE INVALID OR INCORRECT FOR TO FILENAME ENTRY IN COL 19-26,
CARD IGNORED>
ERR	E,067,W,<INVALID TABLE OR ARRAY NAME IN COL 27-32, CARD IGNORED>
ERR	E,068,W,<INVALID OR MISSING NUMBER OF ENTRIES PER RECORD IN COL 33-35, ASSUME 8>
ERR	E,070,W,<INVALID OR MISSING NUMBER OF ENTRIES PER TABLE OR ARRAY IN COL 36-39,
ASSUME 05>
ERR	E,071,W,<NO OF ENTIRES PER RECORD IN COL 33-35 EXCEEDS NO OF ENTRIES PER
TABLE/ARRAY IN COLUMNS 36-39>
ERR	E,072,W,<INVALID OR MISSING LENGTH OF ENTRY IN COL 40-42, ASSUME 05>
ERR	E,073,W,<LENGTH SPECIFIED FOR EACH TABLE/ARRAY RECORD IN COL 33-35 AND COL 40-42
OR COL 52-54 EXCEEDS RECORD LENGTH, CARD IGNORED>
ERR	E,074,W,<INVALID ENTRY IN COL 43 OR 55, ASSUME BLANK>
ERR	E,075,W,<PACKED OR BINARY VALID ONLY FOR PRE-EXECUTION TIME TABLE OR ARRAY,
ASSUME BLANK>
ERR	E,076,W,<INVALID DECIMAL POSITION ENTRY IN COL 44 OR 56, ASSUME 0>
ERR	E,077,W,<INVALID SEQUENCE ENTRY IN COL 45 OR 57, ASSUME BLANK>
ERR	E,079,W,<INVALID ALTERNATE TABLE/ARRAY NAME IN COL 46-51, CARD IGNORED>
ERR	E,080,W,<ALTERNATE TABLE/ARRAY NAME IN COL 46-51 AND/OR 27-32 MISSING FOR ENTRIES IN
COLUMNS 33-45 AND/OR 52-57, ASSUME COL 33-57 AND/OR 46-57 BLANK>
ERR	E,082,W,<LENGTH OF TABLE/ARRAY ENTRY IN COL 40-42 OR 52-54 FOR ALPHA FIELDS EXCEEDS 256.
ASSUME 256 FOR NON-COMPILE TIME TABLE/ARRAY, OTHERWISE ASSUME 96>
ERR	E,083,W,<LENGTH OF TABLE/ARRAY ENTRY IN COL 40-42 OR 52-54 FOR NUMERIC FIELD
EXCEEDS 15, ASSUME 15>
ERR	E,121,W,<FROM FILE CANNOT HAVE AN E IN COL 17 OF FILE DESCRIPTION SPECIFICATION
WHEN TO FILE IS A DEMAND FILE>
ERR	E,126,T,<LENGTH OF TABLE/ARRAY EXCEEDS MAXIMUM CORE STORAGE>
ERR	E,130,W,<TO FILE MUST BE A LIMITS FILE IF FROM FILE IS A RECORD ADDRESS FILE,
OR TO FILE MUST BE A RANDOM ACCESS FILE IF FROM FILE IS AN ADDROUT FILE,
CARD IGNORED>
ERR	E,390,W,<SEQUENCE CHECKING IS NOT PERFORMED ON EXECUTION TIME ARRAYS>
ERR	E,392,W,<LAST ENTRY IN ONE OR MORE COMPILE TIME TABLE/ARRAYS EAS BLANK>
ERR	E,401,W,<ONLY ONE TABLE/ARRAY PER FILENAME ALLOWED FOR THIS DEVICE, CARD IGNORED>
ERR	E,500,W,<FROM NAME INVALID OR MISSING FROM RA FILE>
ERR	E,502,W,<FROM FILENAME IS AN RA FILE THAT IS USED MORE THAN ONCE>
ERR	E,503,W,<TO FILENAME FOR RA FILE TYPE IS EITHER: 1-NOT A PRIMARY, SECONDARY OR
DEMAND FILE OR 2-IS MISSING,INVALID OR NON-DISK FILE>
ERR	E,504,W,<TO FILENAME IS INCORRECT FILE TYPE>
ERR	E,567,W,<TABLE RECORD SIZE GREATER THAN FROM FILENAME DEVICE RECORD SIZE>
ERR	E,576,W,<COMPILE TIME TABLE DATA FOUND. COMPILE TIME TABLE OR ARRAY NOT SPECIFIED IN EXTENSION>
ERR	E,577,W,<ONLY ONE FILE ASSOCIATED WITH RA FILE IS ALLOWED PER PROGRAM>
ERR	E,586,W,<MORE THAN ALLOWABLE TABLE/ARRAY NAMES USED IN THE PROGRAM>
ERR	E,593,W,<TABLE/ARRAY NAME MISSING FOR 'TO' AND/OR 'FROM' FILENAME>
ERR	E,594,W,<TO FILENAME MAY NOT BE USED WITH EXECUTION TIME TABLE/ARRAY>
ERR	E,598,W,<ALPHA TABLE/ARRAY SPECIFIED AS PACKED, ASSUME NUMERIC>
ERR	E,599,W,<LENGTH OF ELEMENT FOR BINARY TABLE/ARRAY NOT SPECIFIED AS 4 OR 9,
DEFAULT TO 4 IF LENGTH SPECIFIED IS LESS THAN 4, OTHERWISE DEFAULT TO 9>
ERR	E,645,W,<IMPROPER USE OF THE PACK/UNPACK FEATURE FOR LIMITS FILE PROCESSING>
ERR	E,647,W,<UNEQUAL KEY LENGTHS SPECIFIED FOR KEYS OF IDENTICAL FORMAT,
ASSUME KEY LENGTH OF LIMIT FILE>
;LINE COUNTER SPEC ERRORS

ERR	L,085,F,<INVALID, MISSING OR UNDEFINED FILE NAME>
ERR	L,086,F,<FILENAME IN COL 7-14 DOES NOT REFER TO A PRINTER FILE>
ERR	L,087,F,<FORM LENGTH ENTRY IN COL 15-17 INVALID OR GREATER THAN 112>
ERR	L,088,W,<INVALID OR MISSING FL ENTRY IN COL 18-19, ASSUME FL>
ERR	L,089,F,<OVERFLOW LINE ENTRY IN COL 20-22 INVALID OR GREATER THAN 112>
ERR	L,090,W,<INVALID OR MISSING OL ENTRY IN COL 23-24, ASSUME OL>
ERR	L,091,F,<OVERFLOW LINE IN COL 20-22 EXCEEDS FORM LENGTH IN COL 15-17, ASSUME FORM LENGTH>

;INPUT SPECIFICATION ERRORS

ERR	I,092,F,<INVALID OR UNDEFINED FILE NAME IN COL 7-14>
ERR	I,093,F,<FILE AND RECORD TYPE ENTRIES IN COL 7-42 AND FIELD TYPE ENTRIES IN
COL 43-74 ON SAME LINE, ASSUME 43-74 BLANK>
ERR	I,094,F,<FILE AND RECORD TYPE DESCRIPTION MUST PRECEDE THIS SPECIFICATION>
ERR	I,096,F,<AND LINE FOLLOWS LINE WITH NO RECORD IDENTIFICATION CODES>
ERR	I,097,W,<NO FIELDS DESCRIBED FOR THIS OR PREVIOUS RECORD>
ERR	I,098,W,<INVALID SEQUENCE ENTRY IN COL 15-16, ASSUME ALPHABETIC SEQUENCE ENTRY>
ERR	I,101,W,<NUMERIC SEQUENCE ENTRY IN COL 15-16 NOT IN ASCENDING ORDER OR THE FIRST
IS NOT 01, ASSUME PREVIOUS NUMERIC SEQUENCEOR 01 IF FIRST NUMERIC RECORD>
ERR	I,102,W,<INVALID NUMBER ENTRY IN COL 17 FOR NUMERIC SEQUENCE, ASSUME N>
ERR	I,103,W,<INVALID OPTION ENTRY IN COL 18 FOR NUMERIC SEQUENCE, ASSUME O>
ERR	I,104,F,<NUMBER/OPTION ENTRIES IN COL 17-18 INVALID WITH ALPHAMERIC SEQUENCE ENTRIES>
ERR	I,105,W,<NUMBER/OPTION ENTRIES IN COL 17-18 INVALID FOR AND/OR LINE, ASSUME BLANK>
ERR	I,106,F,<INVALID POSITION ENTRY FOR RECORD ID CODES IN COL 21-24, 28-31, OR 35-38,
OR TO POSITION COL 48-51, ASSUME 1>
ERR	I,107,W,<INVALID NOT ENTRY IN COL 25,32, OR 39, ASSUME N>
ERR	I,108,W,<INVALID C/Z/D ENTRY IN COL 26,33, OR 40, ASSUME C>
ERR	I,109,W,<INVALID STACKER SELECT ENTRY IN COL 42 OR NOT ALLOWED WITH DEVICE, ASSUME BLANK>
ERR	I,110,W,<STACKER SELECT ENTRY IN COL 42 INVALID WOTH AN AND LINE, ASSUME BLANK>
ERR	I,111,W,<INVALID ENTRY IN COL 43, ASSUME BLANK>
ERR	I,112,F,<INVALID OR BLANK FROM OR TO ENTRY IN COL 44-51, ASSUME 1 FOR BOTH ENTRIES>
ERR	I,113,F,<FROM ENTRY IN COL 44-47 EXCEEDS TO ENTRY IN COL 48-51, ASSUME ENTRY
EQUAL TO FROM ENTRY>
ERR	I,114,F,<LENGTH OF NUMERIC FIELD IN COL 44-51 EXCEEDS 15, ASSUME 15>
ERR	I,115,F,<ALPHAMERIC FIELD SPECIFIED AS PACKED OR BINARY, ASSUME NUMERIC FIELD>
ERR	I,116,F,<INVALID DECIMAL POSITION ENTRY IN COL 52, ASSUME 0>
ERR	I,117,W,<DECIMAL POSITION ENTRY IN COL 52 INVALID FOR ARRAY, ASSUME BLANK>
ERR	I,118,F,<FIELD NAME IN COL 53-58 MISSING OR INVALID>
ERR	I,119,F,<INVALID CONTROL LEVEL INDICATOR IN COL 59-60, ASSUME BLANK>
ERR	I,120,F,<INVALID MATCHING FIELD ENTRY IN COL 61-62, ASSUME M1>
ERR	I,158,F,<TABLE NAME INVALID FOR A FIELD NAME ENTRY IN COL 53-58>
ERR	I,159,W,<MISSING RECORD IDENTIFYING INDICATOR IN COL 19-20>
ERR	I,160,F,<FILE NAMED IN COL 7-14 NOT SPECIFIED AS INPUT, COMBINED, UPDATE-PRIMARY,
SECONDARY, DEMAND, OR CHAINED FILE>
ERR	I,162,W,<RECOR DIDENTIFYING INDICATOR IN COL 19-20 INVALID FOR AN AND LINE>
ERR	I,163,F,<ENTRIES IN COL 17-18 AND 21-42 INVALID FOR LOOKAHEAD RECORD, ENTRIES IN 59-74
INVALID FOR LOOK AHEAD FIELD>
ERR	I,164,W,<STACKER SELECT ENTRY IN COL 42 INVALID FOR DEVICE SPECIFIED,
ASSUME BLANK>
ERR	I,165,F,<INDICATORS IN COL 65-70 INVALID FOR A TABLE/ARRAY>
ERR	I,166,F,<PLUS OR MINUS INDICATOR IN COL 65-68 INVALID FOR ALPHAMERIC FIELD>
ERR	I,167,F,<RECORD ID POSITION 21-38 OR TO ENTRY IN COL 48-51 EXCEEDS RECORD LENGTH,
ASSUME RECORD LENGTH>
ERR	I,168,F,<FIELD NAME IN COL 53-58 IS A RESERVED WORD OTHER THAN PAGE>
ERR	I,169,F,<CONTROL OR MATCHING FIELDS INVALID FOR ARRAY OR TRAILER RECORD>
ERR	I,170,F,<MATCHING OR CONTROL FIELDS INVALID WITH DEMAND OR CHAIN FILES>
ERR	I,171,F,<LOOK AHEAD RECORDS INVALID WOTH DEMAND FILES, CHAIN FILES,
FILES CONTAING SPREAD CARDS, OR WITH THIS DEVICE>
ERR	I,172,F,<INCORRECT SEQUENCE OF INPUT SPECIFICATIONS>
ERR	I,173,F,<NO FIELDS SPECIFIED FOR LOOK AHEAD RECORD>
ERR	I,175,F,<STERLING ENTRY IN COL 71-74, BUT OMITTED FROM HEADER CARD>
ERR	I,176,F,<SIGN POSITION ENTERED IN COL 71-74 EXCEEDS RECORD LENGTH>
ERR	I,177,F,<DECIMAL POSITION ENTRY IN COL 52 BLANK OR GREATER THAN 3 FOR STERLING FIELD>
ERR	I,178,F,<STERLING OR BINARY INVALID WOTH CONTROL OR MATCHING FIELDS>
ERR	I,179,F,<SIGN POSITION ENTRY, OTHER THAN STANDARD, IN COL 71-74 INVALID FOR STERLING ARRAYS>
ERR	I,180,F,<ARRAY LENGTH EXCEEDS LENGTH SPECIFIED IN COL 36-42 IN EXTENSION SPECIFICATIONS
OR NOT A MULTIPLE OF ENTRY LENGTH IN COL 40-42 IN EXTENSION SPECIFICATIONS>
ERR	I,181,F,<INCONSISTANT FIELD LENGTHS FOR CONTROL OR MATCHING FIELDS OF ONE
LEVEL, ASSUME FIRST VALID LENGTH>
ERR	I,182,F,<INVALID SPLIT CONTROL FIELD SPECIFICATION, ASSUME PREVIOUS TOTAL LENGTH FOR THIS LEVEL>
ERR	I,183,W,<CONTROL OR MATCHING FIELDS OF A LEVEL SPECIFIED AS BOTH ALPHAMERIC AND
NUMERIC, ASSUME NUMERIC>
ERR	I,184,F,<ALL OF THE VALID MATCH LEVELS WERE NOT REFERENCED IN LAST RECORD GROUP>
ERR	I,186,F,<MATCH OR CONTROL FOELDS WITHOUT FIELD RECORD RELATION ENTRIES MUST PRECEDE
MATCH OR CONTROL FIELDS WITH FIELD RECORD RELATION ENTRIES, ASSUME PART
OF A NEW GROUP OF MATCH FIELDS>
ERR	I,187,F,<MATCH AND CONTROL FIELDS WITH FIELD RECORD RELATION ENTRIES MUST BE
GROUPED ACCORDING TO THE FIELD RECORD RELATION INDICATOR. ASSUME NEW 
GROUP OF MATCH FIELDS>
ERR	I,188,F,<FIELD REOCRD RELATION INDICATOR USED IMPROPERLY WITH MATCH OR CONTROL FIELDS>
ERR	I,314,W,<RECORD IDENTIFICATION CODES ARE MISSING (COLS. 21-41)>
ERR	I,317,F,<NUMBER OF DECIMAL POSITIONS SPECIFIED EXCEEDS FIELD LENGTH>
ERR	I,325,W,<ALL INPUT, UPDATE, AND COMBINED FILES CONDITIONED BY EXTERNAL INDICATORS>
ERR	I,327,F,<SPLIT CONTROL FIELDS SPECIFIED MAY NOT HAVE PARTS THAT ARE PACKED>
ERR	I,511,F,<PACKED LENGTH GREATER THAN 8 FOR A FIELD, TABLE OR ARRAY>
ERR	I,570,F,<LOOK AHEAD WITH NUMERIC SEQUENCE OR LOOK AHEAD FOLLOWS A NUMERIC RECORD>
ERR	I,580,F,<REFERENCED A MATCH LEVEL WHICH IS NOT VALID, OR DEFINED A LEVEL MORE THAN ONCE>
ERR	I,583,F,<BINARY LENGTH SPECIFIED GREATER THAN 9, ASSUME 9>
ERR	I,584,F,<THIS MATCH LEVEL WAS REFERENCED PREVIOUSLY IN THIS RECORD GROUP>
ERR	I,621,F,<TRAILER RECORD OVERLAPS HEADER RECORD>
ERR	I,622,F,<NO TRAILER FIELDS FOR SPREAD CARD>
ERR	I,623,F,<ENTRIES IN COL 7-18 AND 21-74 INVALID FOR TR SPECIFICATION, ASSUME NO TR>
ERR	I,624,F,<TR SPECIFICATION OUT OF ORDER>
ERR	I,628,F,<INVALID FILE TYPE FOR SPREAD CARD>
ERR	I,634,F,<STERLING INVALID FOR SPREAD CARD>
ERR	I,635,W,<NUMERIC SEQUENCE CHECKING SPECIFIED FOR A SPREAD RECORD, BUT N
NOT SPECIFIED FOR NUMBER, ASSUME N>

;CALCULATION SPECIFICATION ERRORS

ERR	C,095,F,<AND OR OR LINE OUT OF ORDER>
ERR	C,122,W,<FIELD WAS PREVIOUSLY DEFINED WITH DIFFERANT LENGTH OR DECIMAL POSITIONS.
ASSUME FIRST DEFINITION - OR FIELD IS NOW DEFINED AS LOOK AHEAD FIELD.>
ERR	C,123,F,<INVALID ENTRY IN COL 7-8>
ERR	C,124,W,<INVALID ENTRY IN COL 9, 12, OR 15; ASSUME N>
ERR	C,125,F,<INVALID FIELD NAME OR CONSTANT FOR FACTOR 1 IN COL 18-27>
ERR	C,127,W,<ENTRY IN COL 49-51 INVALID WITH NO RESULT FIELD, ASSUME 49-51 BLANK>
ERR	C,128,F,<INVALID OPERATION CODE ENTRY IN COL 28-32>
ERR	C,129,F,<FACTOR 2 FIELD NAME IN COL 33-42 EXCEEDS 6 CHARACTERS>
ERR	C,131,F,<FACTOR 2 IN COL 33-42 INVALID>
ERR	C,132,F,<FACTOR 2 MUST BE A FILENAME>
ERR	C,133,F,<NUMERIC FIELD LENGTH EXCEEDS 15; ASSUME 15>
ERR	C,134,F,<ALPHANUMERIC FIELD LENGTH EXCEEDS 256; ASSUME 256>
ERR	C,135,F,<INVALID RESULT FIELD ENTRY IN COL 43-53>
ERR	C,137,F,<INVALID RESULT FIELD LENGTH IN COL 49-51; ASSUME 15 FOR NUMERIC OR 256
FOR ALPHANUMERIC FIELD>
ERR	C,138,F,<DECIMAL POSITION ENTRY IN COL 52 INVALID WITH NO FIELD LENGTH ENTRY IN
COL 49-51; ASSUME BLANK>
ERR	C,139,F,<INVALID DECIMAL POSITION ENTRY IN COL 52; ASSUME 0>
ERR	C,140,W,<INVALID HALF ADJUST ENTRY IN COL 53; ASSUME H>
ERR	C,141,W,<DEBUG CALCULATION OPERATION USED, BUT DEBUG OPTION NOT SPECIFIED IN THE CONTROL CARD>
ERR	C,161,F,<AND OR OR LINE INVALID WITH LOOK AHEAD RECORDS OR RLABL>
ERR	C,189,F,<INVALID SEQUENCE FOR CALCULATION SPECIFICATIONS OR SR NOT SPECIFIED IN
COLUMNS 7-8 WITH BEGSR OR ENDSR>
ERR	C,190,F,<INVALID SEQUENCE FOR BEGSR AND ENDSR OPERATION CODES>
ERR	C,191,F,<A SUBROUTINE MUST NOT CALL ITSELF>
ERR	C,192,F,<BRANCHING BETWEEN SUBROUTINE AND OTHER CALCULATIONS INVALID>
ERR	C,193,F,<BRANCHING BETWEEN DETAIL, TOTAL AND LR CALCULATIONS INVALID>
ERR	C,194,F,<SETOF OPERATION INVALID FOR LR INDICATOR>
ERR	C,195,F,<LENGTH OR SEARCH WORD NOT EQUAL TO LENGTH OF ELEMENT IN TABLE OR ARRAY>
ERR	C,196,F,<FACTOR 2 OR RESULT FIELD INVALID FOR LOOKUP OPERATION>
ERR	C,197,W,<SEARCH TABLE HAS MORE ENTRIES THAN RELATED TABLE>
ERR	C,198,F,<INDICATOR ENTERED IN COL 54-57 INVALID WITH LOKUP ON AN UNSEQUENCEED TABLE>
ERR	C,199,F,<TEST FOR BOTH HIGH AND LOW INVALID FOR LOKUP OPERATION>
ERR	C,200,F,<RESULTING INDICATORS IN COL 54-59 REQUIRED OR NOT ALLOWED FOR OPERATION SPECIFIED>
ERR	C,201,W,<HALF ADJUST ENTRY IN COL 53 FOR DIVISION OPERATION FOLLOWED BY A MVR OPERATION;
ASSUME NO HALF ADJUST>
ERR	C,202,F,<MVR OPERATION CODE DOES NOT FOLLOW DIV OPERATION>
ERR	C,204,W,<HALF ADJUST ENTRY IN COL 53 INVALID FOR OPERATION OR NUMBER OF DECIMAL
POSITIONS SPECIFIED; ASSUME BLANK>
ERR	C,205,F,<COMP, TESTZ, OR MVR INVALID FOR AN ARRAY>
ERR	C,206,F,<INVALID USE OF COMP OR LOKUP>
ERR	C,207,F,<FIELD TYPE, ALPHANUMERIC OR NUMERIC, INVALID FOR OPERATION SPECIFIED>
ERR	C,208,F,<FORCE OPERATION INVALID AT TOTAL TIME>
ERR	C,209,F,<FILE TYPE INVALID FOR USE WITH THIS OPERATION CODE>
ERR	C,211,F,<DEBUG SPECIFIED FOR MORE THAN ONE OUTPUT FILE>
ERR	C,212,W,<EXCPT OPERATION CODE SPECIFIED BUT NO EXCPT OUTPUT RECORDS SPECIFIED>
ERR	C,213,F,<EXSR DOES NOT REFERANCE A BEGSR NAME>
ERR	C,214,F,<GOTO BRANCHES TO A BEGSR NAME>
ERR	C,215,F,<FACTOR 1 ENTRY IN COL 18-27 MISSING>
ERR	C,216,F,<FACTOR 1 ENTRY IN COL 18-27 INVALID FOR THIS OPERATION>
ERR	C,217,F,<FACTOR 2 ENTRY IN COL 33-42 MISSING>
ERR	C,218,F,<FACTOR 2 ENTRY IN COL 33-42 INVALID FOR THIS OPERATION>
ERR	C,219,F,<RESULT FIELD IN COL 43-48 MISSING>
ERR	C,220,F,<RESULT FIELD ENTRY IN COL 43-48 INVALID FOR THIS OPERATION>
ERR	C,221,W,<RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH>
ERR	C,223,F,<SUBROTUINE SPECIFICATIONS ARE ONLY CALCULATION SPECIFICATIONS>
ERR	C,224,F,<A ZERO CONSTANT INVALID AS DIVISOR IN COL 33-42>
ERR	C,225,F,<CONDITIONING INDICATORS IN COL 9-17 INVALID WITH TAG, BEGSR, ENDSR, OR
RLABL OPERATION>
ERR	C,226,F,<A RESERVED WORD OTHER THAN PAGE INVALID>
ERR	C,227,F,<RESULT FIELD IN COL 43-48 IS A LOOK AHEAD FIELD OR CONSTANT>
ERR	C,228,F,<INVALID INDEX>
ERR	C,229,F,<INDEXING INVALID FOR TABLES OR FIELDS>
ERR	C,231,F,<GOTO DOES NOT BRANCH TO A TAG>
ERR	C,232,F,<THIS NAME WAS PREVIOUSLY USED ON A TAG, BEGSR, OR ENDSR>
ERR	C,337,F,<INVALID SEQUENCE FOR EXIT AND RLABL OP CODES>
ERR	C,338,F,<SUBR MUST BE USED WITH EXIT OP CODE>
ERR	C,388,F,<FACTOR 1 MUST BE EITHER A FIELD NAME OR A LITERAL WHEN USED WITH DEBUG OPERATION>
ERR	C,391,F,<A FIELD WITH A LENGTH GREATER THAN 8 CHARACTERS CANNOT BE USED IN FACTOR 1 WITH DEBUG OPERATION>
ERR	C,516,F,<MORE THAN 7 AN/OR LINES SPECIFIED>
ERR	C,517,F,<AN/OR LINES OUT OF ORDER>
ERR	C,518,W,<NO INDICATORS GIVEN WITH AND/OR LINES>
ERR	C,519,F,<COLUMNS 18-59 ARE INVALID WITH AN/OR LINES OR OP-CODE IS MISSING WITH
INDICATORS PRESENT, ASSUME BLANK>
ERR	C,520,F,<THIS LINE NOT AN AN/OR LINE AND PREVIOUS LINE HAS NO OP-CODE; OR THIS LINE
HAS NO INDICATORS AND NO OP CODE>
ERR	C,521,W,<MINUS INDICATOR IS NOT ALLOWED FOR TEST BIT OPERATION OF ONLY 1 BIT>
ERR	C,522,W,<ALL THREE RESULTING INDICATORS ARE THE SAME>
ERR	C,523,F,<A NEGATIVE FACTOR FOR THE SQUARE ROOT OPERATION IS NOT ALLOWED>
ERR	C,524,F,<WHOLE ARRAYS ARE NOT ALLOWED AS FACTOR 1 WITH DISPLAY OR CHAIN OP CODE>
ERR	C,525,F,<OPERATION CODE IS INVALID FOR DEVICE TYPE OR MODE OF PROCESSING>
ERR	C,552,F,<Factor 1 and Result Field must not both be blank with DSPLY operation>
ERR	C,557,F,<MASK FOR BIT OPERATION IS NOT 0-7>
ERR	C,558,W,<INVALID USE OF (OR MISSING) RESULTING INDICATORS WITH THIS OP CODE.
ASSUME INVALID RESULTING INDICATORS BLANK.>
ERR	C,581,F,<MISSING OR INVALID AN/OR ENTRY IN COL 7-8>
ERR	C,582,W,<THE RELATIVE RECORD NUMBER FOR THE CHAIN OPERATION MUST BE NUMERIC WITH 0 DECIMAL>
ERR	C,585,F,<DISPLAY, CHAIN, OR DEMAND FILE SPECIFIED, BUT APPROPRIATE OPERATION
CODE NOT FOUND IN CALCULATTION SPECIFICATIONS>
ERR	C,587,F,<IF FACTOR 1 OR FACTOR 2 IS A WHOLE ARRAY, RESULT FIELD MUST BE WHOLE ARRAY>
ERR	C,588,F,<TESTB, BITON, AND BITOF MAY NOT REFERENCE ENTIRE ARRAY>
ERR	C,589,F,<RESULT FIELD MUST BE A ONE-POSITION ALPHANUMERIC FIELD. IF FACTOR 2 IS A
FIELD NAME, IT MUST BE A ONE POSITION ALPHAMERIC FIELD>
ERR	C,590,F,<WHENEVER HIGH IS USED IN A MOVE ZONE OPERATION, IT MUST REFERENCE AN ALPHAMERIC FIELD>
ERR	C,591,F,<LENGTH OF FIELD IN FACTOR 1 NOT EQUAL TO KEY LENGTH OF FILE SPECIFIED IN FACTOR 2>
ERR	C,625,F,<FACTOR 1 MUST BE NUMERIC FOR CHAIN OPERATION WHEN FACTOR 2 FILENAME HAS PACKED KEYS>
ERR	C,646,F,<RESULT FIELD FOR XFOOT MAY NOT BE AN ENTIRE ARRAY>
ERR	C,700,F,<FACTOR 1 MUST BE NUMERIC, IF FACTOR 2 IS NUMERIC>
ERR	C,701,F,<FACTOR 2 MUST BE NUMERIC, IF FACTOR 1 IS NUMERIC>
ERR	C,702,F,<FACTOR 1 MUST BE ALPHA, IF FACTOR 2 IS ALPHA>
ERR	C,703,F,<FACTOR 2 MUST BE ALPHA, IF FACTOR 1 IS ALPHA>
ERR	C,704,F,<FACTOR 1 NOT DEFINED>
ERR	C,705,F,<FACTOR 2 NOT DEFINED>
ERR	C,706,F,<OPERATION NOT IMPLEMENTED IN COMPILER>
ERR	C,707,F,<RESULT FIELD IS NOT DEFINED>
ERR	C,708,W,<GARBAGE ON CARD, CARD IS IGNORED, BUT YOU BETTER CLEAN UP YOUR ACT>
ERR	C,709,W,<CARD HAS NO INDICATORS AND NO OPERATION>
ERR	C,710,F,<FACTOR IMPROPERLY DEFINED>
ERR	C,711,F,<RESULT FIELD IN COL 43-48 MUST BE NUMERIC FOR THIS OPERATION>
ERR	C,712,F,<RESULT FIELD CANNOT BE WHOLE ARRAY UNLESS FACTOR 1 OR
FACTOR 2 IS ALSO A WHOLE ARRAY>
ERR	C,713,F,<Result field must be of length 6 or length 12 for the TIME operation>
ERR	C,714,F,<Result field must have 0 decimal positions for the TIME operation>
ERR	C,715,F,<Result field cannot be whole array for the TIME operation>
ERR	C,716,F,<Factor 2 must be whole array for XFOOT operation>

;OUTPUT SPECIFICATION ERRORS

ERR	O,142,F,<FILE AND RECORD IDENTIFICATION ENTRIES IN COL 7-22 AND FIELD
DESCRIPTION ENTRIES IN COL 32-74 ON SAME LINE, 7-22 ASSUMED BLANK.>
ERR	O,143,F,<INVALID LINE TYPE ENTRY IN COL 15>
ERR	O,144,F,<AND OR OR LINE NOT PRECEDED BY RECORD IDENTIFICATION>
ERR	O,145,W,<INVALID ENTRIES IN COL 17-22 FOR AND LINE, ASSUME BLANK>
ERR	O,146,F,<INVALID FILENAME OR ENTRY IN COL 15 MISSING ON FIRST OUTPUR SPECIFICATION>
ERR	O,147,W,<INVALID NOT ENTRY IN COL 23, 26 OR 29; ASSUME BLANK>
ERR	O,148,F,<INVALID FIELD NAME IN COL 32,37>
ERR	O,149,F,<INVALID OR MISSING CONSTANT>
ERR	O,150,F,<INVALID BLANK AFTER ENTRY IN COL 39; ASSUME BLANK>
ERR	O,151,F,<MISSING OR INCORRECTLY SPECIFIED END POSITION IN COL 40-43; ASSUME END POSITION 1>
ERR	O,152,W,<INVALID ENTRY IN COL 44; ASSUME BLANK>
ERR	O,153,W,<END POSITION IN COL 40-43 INVALID FOR *PRINT; ASSUME BLANK>
ERR	O,154,F,<ENTRIES IN COL 7-22 INVALID FOR A FIELD DESCRIPTION SPECIFICATION, ASSUME BLANK>
ERR	O,155,F,<INVALID STERLING SIGN POSITION ENTRY IN COL 71-74; ASSUME BLANK>
ERR	O,256,W,<STACKER SELECT ENTRY IN COL 16 INVALID FOR OUTPUT DEVICE, ASSUME BLANK>
ERR	O,257,W,<INVALID STACKER SELECT ENTRY IN COL 16; ASSUME DEFAULT STACKER>
ERR	O,258,W,<SPACE AND/OR SKIP ENTRIES IN COL 17-22 INVALID FOR DEVICE, ASSUME BLANK>
ERR	O,259,W,<INVALID SKIP ENTRIES IN COL 19-22 OR GREATER THAN THE FORM LENGTH
SPECIFIED, ASSUME BLANK>
ERR	O,260,W,<INVALID SPACE ENTRIES IN COL 17-18; ASSUME SPACE 1 AFTER OR BLANK>
ERR	O,261,W,<FETCH OVERFLOW ENTRY IN COL 16 INVALID FOR DEVICE; ASSUME BLANK>
ERR	O,262,F,<OVERFLOW INDICATOR INVALID FOR AN EXCEPT RECORD>
ERR	O,263,W,<FETCH OVERFLOW INVALID WITH OVERFLOW INDICATOR ENTERED IN COL 23-31;
ASSUME NO FETCH>
ERR	O,264,F,<OVERFLOW INDICATOR USED IS NOT ASSIGNED TO THIS FILE>
ERR	O,265,W,<1P INDICATOR INVALID WITH TOTAL OR EXCPT RECORDS>
ERR	O,266,W,<FETCH OVERFLOW INVALID WITH 1P INDICATOR, ASSUME NO FETCH OVERFLOW>
ERR	O,267,F,<1P INDICATOR INVALID FOR A COMBINED FILE>
ERR	O,268,W,<SPECIFIED OR IMPLIED SPACE BEFORE OF ZERO IS INVALID FOR CONSOLE FILE.
ASSUME SPACE BEFORE OF ONE>
ERR	O,269,F,<INVALID INDICATORS USED IN AN AND RELATIONSHIP WITH 1P>
ERR	O,270,F,<END POSITION ENTRY IN COL 40-43 FOR CONSTANT, EDIT WORD, FIELD,
OR ARRAY EXCEEDS RECORD LENGTH>
ERR	O,271,F,<LENGTH OF ARRAY, ARRAY ELEMENT OR FIELD EXCEEDS RECORD LENGTH>
ERR	O,272,F,<END POSITION IN COL 40-43 FOR CONSTANT, EDIT WORD, FIELD, OR ARRAY
TOO LOW>
ERR	O,273,W,<OUTPUT INDICATORS IN COL 23-31 MISSING OR ALL NEGATIVE>
ERR	O,274,W,<OUTPUT INDICATORS MISSING FOR AN AND OR OR LINE>
ERR	O,276,F,<INVALID EDIT CODE IN COL 38>
ERR	O,277,W,<INVALID EDIT WORD SIZE>
ERR	O,278,F,<EDIT CODES INVALID WITH FIELDS OTHER THAN UNPACKED NUMERIC FIELDS OR CONSTANTS
OTHER THAN * OR $>
ERR	O,279,F,<CONSTANTS IN COL 45-70 INVALID FOR X, Y, AND Z EDIT CODES>
ERR	O,280,W,<FIELD LENGTH FOR Y EDIT CODE LESS THAN 3 OR GREATER THAN 6>
ERR	O,281,F,<DECIMAL POSITIONS INVALID FOR FIELD EDITED BY Y CODE>
ERR	O,282,F,<NAME OF FIELD TO BE EDITIED, BY CODE SPECIFIED IN COL 38, MISSING>
ERR	O,283,F,<INVALID FILE TYPE FOR OUTPUT RECORD>
ERR	O,285,F,<T OR E ENTRY IN COL 15 INVALID FOR COMBINED FILE>
ERR	O,286,F,<*PRINT INVALID FOR DEVICE>
ERR	O,287,F,<OPERATION IN COL 40  INVALID FOR DEVICE>
ERR	O,288,W,<BLANK AFTER ENTRY IN COL 39 INVALID WITH RESERVED WORD OTHER THAN PAGE;
ASSUME BLANK>
ERR	O,289,F,<*PRINT PRECEDES ALL FIELD NAMES AND CONSTANTS>
ERR	O,290,F,<*PLACE PRECEDES ALL FIELD NAMES AND CONSTANTS>
ERR	O,291,F,<INVALID ENTRIES IN COL 38, 39, OR 44-74 FOR OUTPUT OPERATION, ASSUME BLANKS>
ERR	O,293,W,<BLANK AFTER SPECIFIED FOR A CONSTANT>
ERR	O,294,F,<STERLING ENTRY IN COL 71-74 BUT OMITTED FROM HEADER CARD>
ERR	O,295,F,<STERLING USED WITH EDIT CODE OTHER THAN Z>
ERR	O,296,F,<STERLING SPECIFIED FOR ALPHAMERIC FIELD>
ERR	O,297,F,<STERLING SPECIFIED FOR FIELD WITH MORE THAN THREE DECIMAL POSITIONS>
ERR	O,298,F,<STERLING SIGN POSITION IN COL 71-74 EXCEEDS RECORD LENGTH>
ERR	O,300,F,<VALUE OF ARRAY INDEX EXCEEDS NUMBER OF ARRAY ELEMENTS>
ERR	O,302,W,<BLANK AFTER ENTRY IN COL 39 INVALID FOR LOOK AHEAD FIELD; ASSUME BLANK>
ERR	O,304,F,<INVALID INDICATOR OR IMPROPER USE OF A VALID INDICATOR>
ERR	O,313,W,<*PRINT SPECIFIED MORE THAN ONCE FOR A RECORD>
ERR	O,328,W,<STERLING FIELDS SPECIFIED AS PACKED>
ERR	O,329,W,<PACKED OR BINARY DATA NOT VALID FOR DEVICE>
ERR	O,330,F,<ALPHAMERIC FIELD SPECIFIED AS PACKED OR BINARY>
ERR	O,335,F,<EDIT WORD SPECIFIED WITH OTHER THAN UNPACKED NUMERIC FIELDS>
ERR	O,389,W,<L0-L9 INDICATOR SPECIFIED IN AN OR RELATIONSHIP WITH LR>
ERR	O,394,F,<'ADD' IN COL 16-18 NOT ALLOWED ON AND/OR LINES, ASSUME BLANK>
ERR	O,397,W,<FILE DESCRIBED AS 'ADD' TYPE FILE, EACH OUTPUT LINE MUST HAVE 'ADD' IN
COL 16-18. ASSUME 'ADD'>
ERR	O,592,F,<FOR SEQUENTIALLY PROCESSED UPDATE FILE - T ENTRY IN COL 15 IS INVALID
OR L0-L9 INDICATOR USED WITH E IN COL 15>
ERR	O,596,F,<INDICATORS MAY NOT BE USED WITH *PLACE>
ERR	O,597,F,<END POSITION SPECIFIED FOR *PLACE LESS THAN TWICE THAT OF HIGHEST
PREVIOUSLY SPECIFIED FIELD END POSITION OR END POSITION GREATER THAN 256>

;MISC ERROR CODES

ERR	M,022,F,<INVALID ENTRY IN COL 6 OR SPEC TYPE OUT OF SEQUENCE>
ERR	M,320,F,<INVALID ALTERNATE COLLATING SEQUENCE DATA RECORD>
ERR	M,321,F,<INVALID, UNDEFINED, OR TABLE FILENAME ON FILE TRANSLATION DATA RECORD>
ERR	M,322,F,<ALTERANATE COLLATING SEQUENCE OR FILE TRANSLATION DATA INVALID>
ERR	M,333,W,<TABLE/ARRAY FULL OR NO TABLE/ARRAYS FOR FOLLOWING DATA>
ERR	M,334,W,<SHORT TABLE>
ERR	M,554,F,<ADD SPECIFIED ON THE FILE DESCRIPTION SPEC BUT ADD NOT REFERANCED ON OUTPUT>
ERR	M,555,F,<NO ADD SPECIFIED ON FILE DESCRIPTION>
ERR	M,562,F,<FILE TYPE FOR FROM FILENAME AND/OR TO FILENAME INVALID WITH TABLE/ARRAY>
ERR	M,575,F,<NO INPUT SPECIFICATIONS FOUND FOR THIS FILE>
ERR	M,717,F,<Field name specified is undefined>

>