1 
 2 /* BEGIN INCLUDE FILE ...   cobol_SORTM_EC.incl.pl1 */
 3           /* Structure indexed by SM_$ec to produce error code (Dave Ward 04/13/74). */
 4 dcl         cobol_sort_$ec              fixed bin(35) ext;
 5 dcl       SORTM_EC            (11) char(52) var static internal init(
 6                               "RELEASE terminated more than once",
 7                               "Record bit length > max1",
 8                               "RELEASE can't open SI SR SS MI",
 9                               "Number of merge strings > max4",
10                               "MSORT can't open MR.n MS.n",
11                               "RETURN terminated more than once",
12                               "RETURN can't set lengths",
13                               "User requesting more records than input (single)",
14                               "No records input",
15                               "RETURN can't truncate SI SR",
16                               "User requesting more records than input (multiple)"
17                                                             );
18 /* END INCLUDE FILE ...   cobol_SORTM_EC.incl.pl1 */
19