1 /* BEGIN INCLUDE FILE ... mlsys_field_types.incl.pl1 */
 2 /* Created:  July 1983 by G. Palter */
 3 
 4 /* Defined field types */
 5 
 6 dcl (USER_DEFINED_FIELD  initial ( 0),                      /* user-defined field */
 7      ACCESS_CLASS_FIELD  initial (16),            ACKNOWLEDGE_TO_FIELD     initial ( 7),
 8      BCC_FIELD           initial (14),            CC_FIELD                 initial (13),
 9      DATE_FIELD          initial ( 8),            DELIVERY_DATE_FIELD      initial ( 5),
10      POSTED_DATE_FIELD   initial ( 1),            DELIVERY_BY_FIELD        initial ( 6),
11      FROM_FIELD          initial ( 9),            ROUTE_FIELD              initial ( 3),
12      MESSAGE_ID_FIELD    initial (18),            RELAYED_FIELD            initial ( 4),
13      IN_REPLY_TO_FIELD   initial (15),            REPLY_TO_FIELD           initial (11),
14      SENDER_FIELD        initial ( 2),            SUBJECT_FIELD            initial (10),
15      TO_FIELD            initial (12),            COMMENT_FIELD            initial (17),
16 
17      N_ORDINARY_FIELDS   initial (18))                      /* # of defined field types */
18           fixed binary static options (constant);
19 
20 
21 /* Defined classes of header fields */
22 
23 dcl (ORDINARY_FIELDS_BASE               initial (  0),
24      REDISTRIBUTED_FIELDS_BASE          initial (100),      /* fields in a redistribution */
25      COMMENT_FIELDS_BASE                initial (200))      /* fields in a comment */
26           fixed binary static options (constant);
27 
28 /* END INCLUDE FILE ... mlsys_field_types.incl.pl1 */