[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$MAIL_ROUTINES;
{   © Copyright 2005 Hewlett-Packard Development Company, L.P.                 }
{                                                                              }
{   Confidential computer software.  Valid license from HP and/or              }
{   its subsidiaries required for possession, use, or copying.                 }
{                                                                              }
{   Consistent with FAR 12.211 and 12.212, Commercial Computer Software,       }
{   Computer Software Documentation, and Technical Data for Commercial         }
{   Items are licensed to the U.S. Government under vendor's standard          }
{   commercial license.                                                        }
{                                                                              }
{   Neither HP nor any of its subsidiaries shall be liable for technical       }
{   or editorial errors or omissions contained herein.  The information        }
{   in this document is provided "as is" without warranty of any kind and      }
{   is subject to change without notice.  The warranties for HP products       }
{   are set forth in the express limited warranty statements accompanying      }
{   such products.  Nothing herein should be construed as constituting an      }
{   additional warranty.                                                       }
{                                                                              }

[HIDDEN] TYPE	(**** Pre-declared data types ****)
	$BYTE = [BYTE] -128..127;
	$WORD = [WORD] -32768..32767;
	$QUAD = [QUAD,UNSAFE] RECORD
		L0:UNSIGNED; L1:INTEGER; END;
	$OCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2:UNSIGNED; L3:INTEGER; END;
	$UBYTE = [BYTE] 0..255;
	$UWORD = [WORD] 0..65535;
	$UQUAD = [QUAD,UNSAFE] RECORD
		L0,L1:UNSIGNED; END;
	$UOCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2,L3:UNSIGNED; END;
	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;
	$DEFTYP = [UNSAFE] INTEGER;
	$DEFPTR = [UNSAFE] ^$DEFTYP;
	$BOOL = [BIT(1),UNSAFE] BOOLEAN;
	$BIT  = [BIT(1),UNSAFE] BOOLEAN;
	$BIT2 = [BIT(2),UNSAFE] 0..3;
	$BIT3 = [BIT(3),UNSAFE] 0..7;
	$BIT4 = [BIT(4),UNSAFE] 0..15;
	$BIT5 = [BIT(5),UNSAFE] 0..31;
	$BIT6 = [BIT(6),UNSAFE] 0..63;
	$BIT7 = [BIT(7),UNSAFE] 0..127;
	$BIT8 = [BIT(8),UNSAFE] 0..255;
	$BIT9 = [BIT(9),UNSAFE] 0..511;
	$BIT10 = [BIT(10),UNSAFE] 0..1023;
	$BIT11 = [BIT(11),UNSAFE] 0..2047;
	$BIT12 = [BIT(12),UNSAFE] 0..4095;
	$BIT13 = [BIT(13),UNSAFE] 0..8191;
	$BIT14 = [BIT(14),UNSAFE] 0..16383;
	$BIT15 = [BIT(15),UNSAFE] 0..32767;
	$BIT16 = [BIT(16),UNSAFE] 0..65535;
	$BIT17 = [BIT(17),UNSAFE] 0..131071;
	$BIT18 = [BIT(18),UNSAFE] 0..262143;
	$BIT19 = [BIT(19),UNSAFE] 0..524287;
	$BIT20 = [BIT(20),UNSAFE] 0..1048575;
	$BIT21 = [BIT(21),UNSAFE] 0..2097151;
	$BIT22 = [BIT(22),UNSAFE] 0..4194303;
	$BIT23 = [BIT(23),UNSAFE] 0..8388607;
	$BIT24 = [BIT(24),UNSAFE] 0..16777215;
	$BIT25 = [BIT(25),UNSAFE] 0..33554431;
	$BIT26 = [BIT(26),UNSAFE] 0..67108863;
	$BIT27 = [BIT(27),UNSAFE] 0..134217727;
	$BIT28 = [BIT(28),UNSAFE] 0..268435455;
	$BIT29 = [BIT(29),UNSAFE] 0..536870911;
	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;
	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;
	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;

 
(* MODULE MAIL$ROUTINES ;                                                   *)
 
(* [HIDDEN] TYPE	(**** Pre-declared data types ***??                 *)
(* 	$BYTE = [BYTE] -128..127;                                           *)
(* 	$WORD = [WORD] -32768..32767;                                       *)
(* 	$QUAD = [QUAD,UNSAFE] RECORD                                        *)
(* 		L0:UNSIGNED; L1:INTEGER; END;                               *)
(* 	$OCTA = [OCTA,UNSAFE] RECORD                                        *)
(* 		L0,L1,L2:UNSIGNED; L3:INTEGER; END;                         *)
(* 	$UBYTE = [BYTE] 0..255;                                             *)
(* 	$UWORD = [WORD] 0..65535;                                           *)
(* 	$UQUAD = [QUAD,UNSAFE] RECORD                                       *)
(* 		L0,L1:UNSIGNED; END;                                        *)
(* 	$UOCTA = [OCTA,UNSAFE] RECORD                                       *)
(* 		L0,L1,L2,L3:UNSIGNED; END;                                  *)
(* 	$UOCTAQUAD = [OCTA(2),UNSAFE] RECORD                                *)
(* 		L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END;                      *)
(* 	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;                                *)
(* 	$DEFTYP = [UNSAFE] INTEGER;                                         *)
(* 	$DEFPTR = [UNSAFE] ^$DEFTYP;                                        *)
(* 	$BOOL = [BIT(1),UNSAFE] BOOLEAN;                                    *)
(* 	$BIT2 = [BIT(2),UNSAFE] 0..3;                                       *)
(* 	$BIT3 = [BIT(3),UNSAFE] 0..7;                                       *)
(* 	$BIT4 = [BIT(4),UNSAFE] 0..15;                                      *)
(* 	$BIT5 = [BIT(5),UNSAFE] 0..31;                                      *)
(* 	$BIT6 = [BIT(6),UNSAFE] 0..63;                                      *)
(* 	$BIT7 = [BIT(7),UNSAFE] 0..127;                                     *)
(* 	$BIT8 = [BIT(8),UNSAFE] 0..255;                                     *)
(* 	$BIT9 = [BIT(9),UNSAFE] 0..511;                                     *)
(* 	$BIT10 = [BIT(10),UNSAFE] 0..1023;                                  *)
(* 	$BIT11 = [BIT(11),UNSAFE] 0..2047;                                  *)
(* 	$BIT12 = [BIT(12),UNSAFE] 0..4095;                                  *)
(* 	$BIT13 = [BIT(13),UNSAFE] 0..8191;                                  *)
(* 	$BIT14 = [BIT(14),UNSAFE] 0..16383;                                 *)
(* 	$BIT15 = [BIT(15),UNSAFE] 0..32767;                                 *)
(* 	$BIT16 = [BIT(16),UNSAFE] 0..65535;                                 *)
(* 	$BIT17 = [BIT(17),UNSAFE] 0..131071;                                *)
(* 	$BIT18 = [BIT(18),UNSAFE] 0..262143;                                *)
(* 	$BIT19 = [BIT(19),UNSAFE] 0..524287;                                *)
(* 	$BIT20 = [BIT(20),UNSAFE] 0..1048575;                               *)
(* 	$BIT21 = [BIT(21),UNSAFE] 0..2097151;                               *)
(* 	$BIT22 = [BIT(22),UNSAFE] 0..4194303;                               *)
(* 	$BIT23 = [BIT(23),UNSAFE] 0..8388607;                               *)
(* 	$BIT24 = [BIT(24),UNSAFE] 0..16777215;                              *)
(* 	$BIT25 = [BIT(25),UNSAFE] 0..33554431;                              *)
(* 	$BIT26 = [BIT(26),UNSAFE] 0..67108863;                              *)
(* 	$BIT27 = [BIT(27),UNSAFE] 0..134217727;                             *)
(* 	$BIT28 = [BIT(28),UNSAFE] 0..268435455;                             *)
(* 	$BIT29 = [BIT(29),UNSAFE] 0..536870911;                             *)
(* 	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;                            *)
(* 	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;                            *)
(* 	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;                                 *)
 
(*** MODULE MAIL$ROUTINES IDENT X-1 ***)
 
(*                                                                          *)
(*                                                                          *)
(* This package defines the interfaces to the callable OpenVMS MAIL         *)
(* routines as documented in the OpenVMS Utility Routines Reference         *)
(* Manual.                                                                  *)
(*                                                                          *)
(*                                                                          *)
(* Mail File routines                                                       *)
(*                                                                          *)
(*                                                                          *)
(* MAILFILE_BEGIN - Initiates mail file processing                          *)
(*                                                                          *)
(* status = MAIL$MAILFILE_BEGIN (context, in_item_list, out_item_list)      *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_BEGIN (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_CLOSE - Closes the currently open mail file                     *)
(*                                                                          *)
(* status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list)      *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_CLOSE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_COMPRESS - Compresses a mail file                               *)
(*                                                                          *)
(* status = MAIL$MAILFILE_COMPRESS (context, in_item_list, out_item_list)   *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_COMPRESS (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_END - Terminates mail file processing                           *)
(*                                                                          *)
(* status = MAIL$MAILFILE_END (context, in_item_list, out_item_list)        *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_END (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_INFO_FILE - Obtains information about a specified mail file     *)
(*                                                                          *)
(* status = MAIL$MAILFILE_INFO_FILE (context, in_item_list, out_item_list)  *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_INFO_FILE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_MODIFY - Modifies the information in an indexed mail file       *)
(*                                                                          *)
(* status = MAIL$MAILFILE_MODIFY (context, in_item_list, out_item_list)     *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_MODIFY (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_OPEN - Opens a specified mail file for processing               *)
(*                                                                          *)
(* status = MAIL$MAILFILE_OPEN (context, in_item_list, out_item_list)       *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_OPEN (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MAILFILE_PURGE_WASTE - Purges the wastebasket of a mail file             *)
(*                                                                          *)
(* status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list) *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MAILFILE_PURGE_WASTE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* Message routines                                                         *)
(*                                                                          *)
(*                                                                          *)
(* MESSAGE_BEGIN - Begin message processing                                 *)
(*                                                                          *)
(* status = MAIL$MESSAGE_BEGIN (context, in_item_list, out_item_list)       *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_BEGIN (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_COPY - Copies messages between files or folders                  *)
(*                                                                          *)
(* status = MAIL$MESSAGE_COPY (context, in_item_list, out_item_list)        *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_COPY (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_DELETE - Deletes a message                                       *)
(*                                                                          *)
(* status = MAIL$MESSAGE_DELETE (context, in_item_list, out_item_list)      *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_DELETE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_END - Ends message processing                                    *)
(*                                                                          *)
(* status = MAIL$MESSAGE_END (context, in_item_list, out_item_list)         *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_END (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_GET - Retrieves a message from the set of selected messages      *)
(*                                                                          *)
(* status = MAIL$MESSAGE_GET (context, in_item_list, out_item_list)         *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_GET (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_INFO - Obtains information about a specified message             *)
(*                                                                          *)
(* status = MAIL$MESSAGE_INFO (context, in_item_list, out_item_list)        *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_INFO (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_MODIFY = Modifies message information                            *)
(*                                                                          *)
(* status = MAIL$MESSAGE_MODIFY (context, in_item_list, out_item_list)      *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_MODIFY (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* MESSAGE_SELECT - Selects messages from the current mail file             *)
(*                                                                          *)
(* status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list)      *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$MESSAGE_SELECT (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* Send routines                                                            *)
(*                                                                          *)
(*                                                                          *)
(* SEND_ABORT - Cancels a current send operation                            *)
(*                                                                          *)
(* status = MAIL$SEND_ABORT (context, in_item_list, out_item_list)          *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_ABORT (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_ADD_ADDRESS - Adds an address to the address list                   *)
(*                                                                          *)
(* status = MAIL$SEND_ADD_ADDRESS (context, in_item_list, out_item_list)    *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_ADDRESS (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_ADD_ATTRIBUTE - Adds an attribute to the current message            *)
(*                                                                          *)
(* status = MAIL$SEND_ADD_ATTRIBUTE (context, in_item_list, out_item_list)  *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_ATTRIBUTE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_BEGIN - Initiates processing to send a message                      *)
(*                                                                          *)
(* status = MAIL$SEND_BEGIN (context, in_item_list, out_item_list)          *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_BEGIN (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_ADD_BODYPART - Builds the body of a message                         *)
(*                                                                          *)
(* status = MAIL$SEND_ADD_BODYPART (context, in_item_list, out_item_list)   *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_ADD_BODYPART (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_END - Terminates send processing                                    *)
(*                                                                          *)
(* status = MAIL$SEND_END (context, in_item_list, out_item_list)            *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_END (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* SEND_MESSAGE - Begins actual sending of a message                        *)
(*                                                                          *)
(* status = MAIL$SEND_MESSAGE (context, in_item_list, out_item_list)        *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$SEND_MESSAGE (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* User data base routines                                                  *)
(*                                                                          *)
(*                                                                          *)
(* USER_BEGIN - Initiates access to the common user data base               *)
(*                                                                          *)
(* status = MAIL$USER_BEGIN (context, in_item_list, out_item_list)          *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$USER_BEGIN (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* USER_DELETE_INFO - Remove a user record from the common data base        *)
(*                                                                          *)
(* status = MAIL$USER_DELETE_INFO (context, in_item_list, out_item_list)    *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$USER_DELETE_INFO (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* USER_END - terminates access to the common user data base                *)
(*                                                                          *)
(* status = MAIL$USER_END (context, in_item_list, out_item_list)            *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$USER_END (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* USER_GET_INFO - Obtains information about a user                         *)
(*                                                                          *)
(* status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list)       *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$USER_GET_INFO (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* USER_SET_INFO - Adds or modifies information about a user                *)
(*                                                                          *)
(* status = MAIL$USER_SET_INFO (context, in_item_list, out_item_list)       *)
(*                                                                          *)
(*  context       - Context value                                           *)
(*  in_item_list  - Input item list                                         *)
(*  out_item_list - Output item list                                        *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION MAIL$USER_SET_INFO (
	VAR CONTEXT : [VOLATILE] UNSIGNED;
	%REF IN_ITEM_LIST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE;
	%REF OUT_ITEM_LIST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL;
 
(* END.                                                                     *)
 
END.