1 
 2 /* BEGIN INCLUDE FILE ... cobol_repl_diag_values.incl.pl1 */
 3 /* Modified on 11/02/78/ by RAL, [3.0-1], Implement alternate record keys for MR7.0 */
 4 /* Last modified on 11/19/76 by ORN */
 5 
 6 dcl fatal_AMBIGUOUS_UNQUAL_REF          fixed bin static options(constant) init(1);
 7 dcl fatal_DATANAME_NOT_DECLARED         fixed bin static options(constant) init(2);
 8 dcl fatal_AMBIGUOUS_QUAL_REF            fixed bin static options(constant) init(3);
 9 dcl fatal_PROCNAME_NOT_DECLARED         fixed bin static options(constant) init(4);
10 dcl fatal_PROCNAME_MULTIPLY_DECLARED    fixed bin static options(constant) init(5);
11 dcl fatal_DATANAME_MULTIPLY_DECLARED    fixed bin static options(constant) init(6);
12 
13 dcl obs_KEY_IN_RECORD                   fixed bin static options(constant) init(21);
14 dcl obs_KEY_NOT_IN_RECORD               fixed bin static options(constant) init(23);
15 dcl warn_BAD_STATUS_KEY                 fixed bin static options(constant) init(24);
16 dcl warn_DATANAME_NOT_ALPHANUM          fixed bin static options(constant) init(25);
17 
18 dcl fatal_MNEMONIC_NAME_QUALIFIER       fixed bin static options(constant) init(32);
19 dcl fatal_INDEX_NAME_QUALIFIER          fixed bin static options(constant) init(33);
20 dcl fatal_ALPHABET_NAME_QUALIFIER       fixed bin static options(constant) init(34);
21 dcl fatal_INVALID_QUALIFIER             fixed bin static options(constant) init(35);
22 dcl fatal_MNEMONIC_NAME_EXPECTED        fixed bin static options(constant) init(36);
23 dcl warn_OBSOLETE_MNEMONIC_NAME         fixed bin static options(constant) init(37);
24 dcl obs_SPECIAL_NAMES_NOTE              fixed bin static options(constant) init(38);
25 dcl warn_SPECIAL_NAMES_RECOVERY         fixed bin static options(constant) init(39);
26 dcl fatal_FILENAME_MULTIPLY_DECLARED    fixed bin static options(constant) init(40);
27 dcl fatal_NO_LINAGE_FOR_THIS_FILE       fixed bin static options(constant) init(41);
28 dcl fatal_NO_LINAGE_FOR_ANY_FILE        fixed bin static options(constant) init(42);
29 dcl fatal_AMBIGUOUS_LINAGE_REF          fixed bin static options(constant) init(43);
30 dcl fatal_AMBIGUOUS_PROCNAME_REF        fixed bin static options(constant) init(44);
31 dcl fatal_FILE_NAME_EXPECTED            fixed bin static options(constant) init(45);
32 dcl fatal_DATANAME_EXPECTED             fixed bin static options(constant) init(46);
33 dcl fatal_DATANAME_NOT_NUMERIC          fixed bin static options(constant) init(47);
34 dcl warn_DATANAME_NOT_INTEGER           fixed bin static options(constant) init(48);
35 dcl warn_ODO_RANGE                      fixed bin static options(constant) init(49);
36 dcl warn_CONSTANT_ILLOGICAL             fixed bin static options(constant) init(50);
37 dcl fatal_DATANAME_SUBSCRIPTED          fixed bin static options(constant) init(51);
38 dcl warn_DATANAME_VARLEN                fixed bin static options(constant) init(52);
39 dcl warn_ITEM_IN_FILE_SECTION           fixed bin static options(constant) init(53);
40 dcl fatal_ITEM_IN_COM_SECTION           fixed bin static options(constant) init(54);
41 dcl fatal_ITEM_IN_REPORT_SECTION        fixed bin static options(constant) init(55);
42 dcl fatal_ITEM_IN_CONSTANT_SECTION      fixed bin static options(constant) init(56);
43 dcl warn_BAD_CATALOG_NAME               fixed bin static options(constant) init(57);
44 dcl warn_BAD_TAPE_CATALOG_NAME          fixed bin static options(constant) init(58);
45 dcl warn_BAD_ATTACH_OPTIONS             fixed bin static options(constant) init(59);
46 dcl warn_BAD_VALUE_OF_ID                fixed bin static options(constant) init(60);
47 dcl warn_BAD_VALUE_OF_RETENTION         fixed bin static options(constant) init(61);
48 dcl fatal_CDNAME_MULTIPLY_DECLARED      fixed bin static options(constant) init(62);
49 dcl fatal_KEY_NOT_IN_RECORD             fixed bin static options(constant) init(63);      /* [3.0-1] */
50 dcl fatal_SAME_RECORD_OFFSET            fixed bin static options(constant) init(64);      /* [3.0-1] */
51 
52 /* END INCLUDE FILE ... cobol_repl_diag_values.incl.pl1 */
53