1
2
3
4
5
6
7
8
9 dcl PARSE_ERROR_RECOVERY fixed bin (35) internal static options (constant) init (1);
10 dcl PARSE_NO_RECOVERY fixed bin (35) internal static options (constant) init (2);
11 dcl LEX_TOO_MANY fixed bin (35) internal static options (constant) init (3);
12 dcl INTERNAL_STACK_OVERFLOW
13 fixed bin (35) internal static options (constant) init (4);
14 dcl PARSE_TOO_MANY fixed bin (35) internal static options (constant) init (5);
15 dcl PARSE_FAILURE fixed bin (35) internal static options (constant) init (6);
16 dcl LISTING_IO_ERROR fixed bin (35) internal static options (constant) init (7);
17 dcl ILLEGAL_CHAR_ERROR fixed bin (35) internal static options (constant) init (8);
18 dcl OVERLENGTH_TOKEN_ERROR fixed bin (35) internal static options (constant) init (9);
19 dcl NO_COMMENT_END_DELIMITER_ERROR
20 fixed bin (35) internal static options (constant) init (10);
21 dcl UNRECOGNIZED_CHARACTER_ERROR
22 fixed bin (35) internal static options (constant) init (11);
23 dcl UNRECOGNIZED_TOKEN_ERROR
24 fixed bin (35) internal static options (constant) init (12);
25 dcl DUPLICATE_RELATION_DEF_ERROR
26 fixed bin (35) internal static options (constant) init (13);
27
28 dcl DUPLICATE_ENTRY_ERROR fixed bin (35) internal static options (constant) init (14);
29
30
31 dcl MRDS_DSM_ERROR_MESSAGE (14) char (256) varying internal static options (constant)
32 init ("Bad syntax, a correction has been made.",
33 "Bad syntax, unable to make a correction.",
34 "Translator error, the lexical stack overflowed. Contact system personnel if problem persists."
35 ,
36 "Translator error, an internal stack overflowed. Contact system personnel if problem persists."
37 ,
38 "Translator error, the parse stack overflowed. Contact system personnel if problem persists."
39 , "Unable to complete parsing.", "Unable to do I/O on the listing segment switch.",
40 "An illegal character has been found in the source.",
41 "A token has been found which is too long.",
42 "A comment does not have a terminating delimiter.",
43 "An unrecognized character has been found.", "An unrecognized token has been found.",
44 "Multiple definitions of the same relation have been found, only the first one will be used."
45 , "Attempt to multiply specify the same entry, only the first one will be used.");
46
47