1 /*  BEGIN  Mailbox Message Include File  (mail_format.incl.pl1) */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-01-09,Herbst), approve(86-03-25,MCR7367),
 6      audit(86-04-28,Margolin), install(86-05-22,MR12.0-1059):
 7      Added "seen" switch.
 8   2) change(86-06-02,Herbst), approve(86-06-02,MCR7367), audit(86-06-30,Wong),
 9      install(86-06-30,MR12.0-1080):
10      Updated to version 4 for seen switch.
11                                                    END HISTORY COMMENTS */
12 
13 /*  Last modified by K. T. Pogran, 3/6/75  */
14 /*  Modified by D. M. Wells, August 10, 1977 for v4 message segments. */
15 /* Modified: 3 June 1981 by G. Palter for mail system subroutine interface */
16 
17 declare   mail_format_ptr pointer aligned;
18 
19 declare   MAIL_FORMAT_VERSION_4 initial (4)
20                fixed bin internal static options (constant);
21 
22 declare   text_length fixed bin (21);
23 
24 declare   1 mail_format aligned based (mail_format_ptr),
25             2 header,
26               3 version       fixed bin (17),
27               3 sent_from     char (32) aligned,
28               3 lines         fixed bin (17),
29               3 text_len      fixed bin (21),
30               3 switches aligned,
31                 4 wakeup      bit (1) unaligned,
32                 4 urgent      bit (1) unaligned,
33                 4 notify      bit (1) unaligned,
34                 4 acknowledge bit (1) unaligned,
35                 4 obsolete    bit (1) unaligned,
36                 4 canonical   bit (1) unaligned,
37                 4 seen        bit (1) unaligned,
38                 4 others      bit (65) unaligned,
39             2 text char(text_length refer (mail_format.header.text_len)) aligned;
40 
41 /*  END  Mailbox Message Include File  (mail_format.incl.pl1) */