1 2 /* BEGIN INCLUDE FILE ... cobol_size_values.incl.pl1 */ 3 /* Last modified on 11/18/76 by ORN */ 4 5 /* This include file contains constant values associated with 6 the fixed sizes of Multics COBOL tokens and other data */ 7 8 dcl size_COMHDR fixed bin static options(constant) init(56); 9 dcl size_NAMESIZE fixed bin static options(constant) init(4); 10 11 dcl size_TOKEN (40) fixed bin static options(constant) init( 12 /* TOKEN NUMBER NAME STRUCTURE PTR SIZE (fixed portion in bytes) */ 13 /* 1 reserved word reserved_word rw_ptr */ 28, 14 /* 2 numeric literal numeric_lit nlit_ptr */ 36, 15 /* 3 alphanumeric literal alphanum_lit alit_ptr */ 24, 16 /* 4 */ 0, 17 /* 5 diagnostic message message message_ptr */ 32, 18 /* 6 */ 0, 19 /* 7 procedure definition proc_def proc_def_ptr */ 52, 20 /* 8 user word user_word */ 24, 21 /* 9 data name data_name dn_ptr */ 112, 22 /* 10 index name index_name ind_ptr */ 80, 23 /* 11 */ 52, 24 /* 12 file name fd_token name_ptr */ 48, 25 /* 13 communication name cdtoken cdtoken_ptr */ 64, 26 /* 14 */ 100, 27 /* 15 */ 68, 28 /* 16 sort file name (use type 12 structure) */ 48, 29 /* 17 mnemonic name mnemonic_name name_ptr */ 56, 30 /* 18 procedure reference proc_ref proc_ref_ptr */ 52, 31 /* 19 end statement end_stmt eos_ptr */ 38, 32 /* 20 */ 120, 33 /* 21 */ 84, 34 /* 22 */ 56, 35 /* 23 */ 0, 36 /* 24 */ 0, 37 /* 25 */ 0, 38 /* 26 */ 0, 39 /* 27 */ 0, 40 /* 28 */ 0, 41 /* 29 */ 0, 42 /* 30 internal tag int_tag tag_ptr */ 49, 43 /* 31 equate tag equate_tags equate_ptr */ 37, 44 /* 32 */ 0, 45 /* 33 */ 0, 46 /* 34 */ 0, 47 /* 35 */ 0, 48 /* 36 */ 0, 49 /* 37 */ 0, 50 /* 38 */ 0, 51 /* 39 */ 0, 52 /* 40 alphabet name alphabet_name alpha_name_ptr */ 580); 53 /* 100 internal register cobol_type100 cobol_type100_ptr 17 */ 54 /* 102 immediate constant immed_const immed_const_ptr 20 */ 55 56 /* END INCLUDE FILE ... cobol_size_values.incl.pl1 */ 57