! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! 
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_BEGIN &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_CLOSE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_COMPRESS &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_END &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_INFO_FILE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_MODIFY &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_OPEN &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MAILFILE_PURGE_WASTE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_BEGIN &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_COPY &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_DELETE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_END &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_GET &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_INFO &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_MODIFY &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$MESSAGE_SELECT &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_ABORT &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_ADD_ADDRESS &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_ADD_ATTRIBUTE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_BEGIN &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_ADD_BODYPART &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_END &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$SEND_MESSAGE &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$USER_BEGIN &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$USER_DELETE_INFO &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$USER_END &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$USER_GET_INFO &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )
    ! 
    !  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
    ! 
      EXTERNAL LONG FUNCTION  MAIL$USER_SET_INFO &
               ( &
                   LONG  BY REF, &
                   ANY  BY REF, &
                   ANY  BY REF &
               )