1 /*  START OF:       mail_table_entry.incl.pl1                 *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Written by B. Margolin - 7/4/83 */
 4 
 5 /* format: style2,ifthendo,ifthen,^indnoniterdo,indcomtxt,^inditerdo,idind22 */
 6      declare 1 mail_table_entry    aligned based (mail_table_entry_ptr),
 7                2 version           char (8),
 8                2 name              char (32) varying,       /* Person_id or entry name */
 9                2 acs_path,
10                  3 dir             char (168),
11                  3 entry           char (32),
12                2 default_project   char (12) varying,
13                2 mailing_address   char (256) varying;
14 
15      declare mail_table_entry_ptr  ptr;
16      declare MAIL_TABLE_ENTRY_VERSION_1
17                                    char (8) int static options (constant) init ("mte_0001");
18 
19      declare 1 mail_table_raw_entry
20                                    aligned based (mail_table_raw_entry_ptr),
21                2 version           char (8),
22                2 name              char (32) varying,
23                2 primary_name      char (32) varying,       /* for alias entries */
24                2 flags,
25                  3 alias_entry     bit (1) unaligned,
26                  3 registered_user bit (1) unaligned,       /* In the PNT */
27                  3 mbz             bit (34) unaligned,
28                2 n_names           fixed bin,               /* # names, including primary */
29                2 next_name         char (32) varying,       /* Make a */
30                2 prev_name         char (32) varying,       /* linked list */
31                2 acs_path,
32                  3 dir             char (168),
33                  3 entry           char (32),
34                2 default_project   char (12) varying,
35                2 mailing_address   char (256) varying;
36 
37      declare mail_table_raw_entry_ptr
38                                    ptr;
39      declare MAIL_TABLE_RAW_ENTRY_VERSION_1
40                                    char (8) int static options (constant) init ("mtre_001");
41 
42      declare 1 mail_table_aliases  aligned based (mail_table_aliases_ptr),
43                2 version           char (8),
44                2 n_names           fixed bin,
45                2 names             (mail_table_aliases_extent refer (mail_table_aliases.n_names)) char (32) varying;
46 
47      declare mail_table_aliases_ptr
48                                    ptr;
49      declare mail_table_aliases_extent
50                                    fixed bin;
51      declare MAIL_TABLE_ALIASES_VERSION_1
52                                    int static options (constant) char (8) init ("mta_0001");
53 
54 /*  END OF:         mail_table_entry.incl.pl1                 *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */