1 
 2 /*  BEGIN INCLUDE FILE ...   cobol_alphabet_offset.incl.pl1   */
 3 /*  Created on 6/26/76 by bc  */
 4 
 5 /*  Offset of the translation table of alphabet_name. */
 6 
 7 dcl       alphabet_to_offset (12:16) static options (constant)
 8           init(2304,2560,2560,2560,2560);
 9 
10 dcl       alphabet_from_offset (12:16) static options (constant)
11           init(2432,2688,2688,2688,2688);
12 
13 
14 /*        This include file is used for those alphabet_name which are not
15           of the type defined by the users. The alphabet_to_offset is the word
16           offset of cobol_operators_ for the translation table from ascii to type
17           "i" alphabet. Similarly, the alphabet_from_offset(i) is the word offset of
18           cobol_operators_ for the table from type "i" alphabet to ascii.
19           i = 12    ascii
20               13    gbcd
21               14    hbcd
22               15    ibcd
23               16    jis
24 
25 */
26 
27 /*     <<<   END OF ALPHABET_NAME OFFSET     >>>     */
28 /* END INCLUDE FILE ...   cobol_alphabet_offset.incl.pl1    */
29