1 /* BEGIN INCLUDE FILE ... mlsys_field_names.incl.pl1 */
 2 /* Created:  June 1983 by G. Palter */
 3 
 4 /* Standard names for all message envelope, header, and redistributions list fields supported by the mail system */
 5 
 6 dcl  (ACCESS_CLASS_FIELDNAME            initial ("Access-Class"),
 7       ACKNOWLEDGE_TO_FIELDNAME          initial ("Acknowledge-To"),
 8       BCC_FIELDNAME                     initial ("bcc"),
 9       CC_FIELDNAME                      initial ("cc"),
10       DATE_TIME_CREATED_FIELDNAME       initial ("Date"),
11       DATE_TIME_DELIVERED_FIELDNAME     initial ("Delivery-Date"),
12       DATE_TIME_MAILED_FIELDNAME        initial ("Posted-Date"),
13       DELIVERED_BY_FIELDNAME            initial ("Delivery-By"),
14       FROM_FIELDNAME                    initial ("From"),
15       IMPLICIT_ROUTE_FIELDNAME          initial ("Route"),
16       MESSAGE_ID_FIELDNAME              initial ("Message-ID"),
17       RELAY_FIELDNAME                   initial ("Relayed"),
18       REPLY_REFERENCES_FIELDNAME        initial ("In-Reply-To"),
19       REPLY_TO_FIELDNAME                initial ("Reply-To"),
20       SENDER_FIELDNAME                  initial ("Sender"),
21       SUBJECT_FIELDNAME                 initial ("Subject"),
22       TO_FIELDNAME                      initial ("To"),
23 
24 
25 /* Prefix to apply to a field name to produce the field name of the equivalent field in the redistributions list.  Ie:
26 
27         call mlsys_utils_$print_address_field
28                   (REDISTRIBUTED_PREFIX || FROM_FIELDNAME, ...) */
29 
30      REDISTRIBUTED_PREFIX               initial ("Redistributed-"),
31 
32 
33 /* Fields in a redistribution which do not have a corresponding non-redistributed field */
34 
35      REDISTRIBUTED_COMMENT_FIELDNAME    initial ("Redistributed-Comment"))
36 
37           character (32) varying static options (constant);
38 
39 
40 /* END INCLUDE FILE ... mlsys_field_names.incl.pl1 */