1 2 /* BEGIN INCLUDE FILE... cobol_alpha_def.incl.pl1 */ 3 4 declare 5 1 alphabet based(alpha_ptr), 6 2 prev fixed bin, 7 2 info, 8 3 one_one bit(1), 9 3 onto bit(1), 10 2 type fixed bin, 11 2 alf_size fixed bin, 12 2 char_size fixed bin, 13 2 hi_value fixed bin, 14 2 lo_value fixed bin, 15 2 to_table fixed bin, 16 2 from_table fixed bin, 17 2 name_ptr ptr; 18 19 /* 20 FIELD CONTENTS 21 prev key of previous alphabet definition in variable 22 common. 23 The last field in the chain contains 0. 24 one_one set to "1"b if transformation is (1-1) 25 onto set to "1"b if transformation is onto 26 type A numeric value which defines the alphabet type. The 27 following values apply 28 29 0 undefined 30 1 user defined 31 32 2 NATIVE 33 3 STANDARD-1 34 4 STANDARD-2 35 36 10 ANSI 37 11 ASCII 38 12 EBCDIC 39 13 GBCD 40 14 HBCD 41 15 IBCD 42 16 JIS 43 44 alf_size The number of characters in the alphabet. 45 char_size The size of a character in bits. 46 hi_value The native value associated with the character 47 having the highest ordinal position in the alphabet 48 lo_value The native value associated with the character 49 having the lowest ordinal position in the alphabet 50 to_table key in variable common of table for translating 51 from native to user defined alphabet 52 from_table key in variable common of table for translating 53 from user defined alphabet to native 54 name_ptr pointer to name table entry which defines the 55 alphabet name. 56 */ 57 58 /* END INCLUDE FILE... cobol_alpha_def.incl.pl1 */ 59