1 /* BEGIN INCLUDE FILE msg_facility_mailbox.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(84-05-10,Lippard), approve(), audit(), install(): 6 Created by Jim Lippard. 7 2) change(85-01-12,Lippard), approve(), audit(), install(): 8 Remove last_message_index. 9 3) change(85-02-01,Lippard), approve(), audit(), install(): 10 Add msg_array_compacted. 11 4) change(86-05-07,Lippard), approve(86-05-27,MCR7418), 12 audit(86-06-24,Hartogs), install(86-06-30,MR12.0-1080): 13 Add msg_array_updated. 14 END HISTORY COMMENTS */ 15 16 17 dcl 1 msg_facility_mailbox aligned based (msg_facility_mailbox_ptr), 18 2 version char (8), /* structure version */ 19 2 next_mbx_ptr ptr, /* ptr to next mailbox in chain */ 20 2 dname char (168), /* mailbox directory */ 21 2 ename char (32), /* mailbox entry name */ 22 2 uid bit (36), /* mailbox unique ID */ 23 2 default_mbx bit (1), /* user's default mailbox */ 24 2 event_channel fixed bin (71), /* event channel for wakeups */ 25 2 index fixed bin, /* index to mailbox for mailbox_ */ 26 2 wakeup_flags, 27 3 hold_messages bit (1) unal, /* messages are being held */ 28 3 hold_notifications bit (1) unal, /* notifications are being held */ 29 3 notify_mail bit (1) unal, /* notifications are being printed */ 30 3 wakeup_state bit (2) unal, /* message acceptance state */ 31 3 mbz bit (31) unal, 32 2 short_format bit (1), /* messages printed in short format */ 33 2 prefix char (32) var, /* prefix string */ 34 2 short_prefix bit (1), /* prefix printed for short form messages */ 35 2 mbz2 bit (36) unal, 36 2 alarm_time fixed bin (71), /* alarm wakeup time */ 37 2 alarm_event_channel fixed bin (71), /* event channel for alarm */ 38 2 last, 39 3 last_message_ptr ptr, /* ptr to mail_format structure for last message */ 40 3 last_id bit (72) aligned, /* message ID of last message */ 41 3 last_message_number fixed bin, /* number of last message */ 42 3 mbz3 bit (36) unal, 43 2 messages_ptr ptr, /* ptr to message array */ 44 2 n_elements fixed bin, /* number of elements in message array */ 45 2 n_messages fixed bin, /* number of messages */ 46 2 highest_message fixed bin, /* number of highest message */ 47 2 msg_array_flags unaligned, 48 3 msg_array_compacted bit (1), /* if msg_array has been compacted */ 49 3 msg_array_updated bit (1), /* if msg_array has been updated */ 50 2 mbz4 bit (36) unal, 51 2 wakeup_processor, 52 3 wakeup_handler variable entry (ptr, ptr), /* wakeup handler procedure */ 53 3 wakeup_info_ptr ptr, 54 2 alarm_processor, 55 3 alarm_handler variable entry (ptr, ptr), /* alarm handler procedure */ 56 3 alarm_info_ptr ptr; 57 58 dcl MSG_FACILITY_MAILBOX_VERSION_1 char (8) internal static 59 options (constant) init 60 ("msgfmbx1"); 61 62 dcl msg_facility_mailbox_ptr ptr; 63 64 /* END INCLUDE FILE msg_facility_mailbox.incl.pl1 */