! ******************************************************************************************************************************** ! Created: 7-MAR-2012 18:15:08 by OpenVMS SDL IA64-2 ! Source: 07-MAR-2012 18:15:08 DUMPD5$:[RAMYA.FOR_ECO]MAIL$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE MAIL$ROUTINES IDENT X-1 *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! ! 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 ! INTEGER*4 MAIL$MAILFILE_BEGIN EXTERNAL MAIL$MAILFILE_BEGIN ! ! 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 ! INTEGER*4 MAIL$MAILFILE_CLOSE EXTERNAL MAIL$MAILFILE_CLOSE ! ! 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 ! INTEGER*4 MAIL$MAILFILE_COMPRESS EXTERNAL MAIL$MAILFILE_COMPRESS ! ! 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 ! INTEGER*4 MAIL$MAILFILE_END EXTERNAL MAIL$MAILFILE_END ! ! 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 ! INTEGER*4 MAIL$MAILFILE_INFO_FILE EXTERNAL MAIL$MAILFILE_INFO_FILE ! ! 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 ! INTEGER*4 MAIL$MAILFILE_MODIFY EXTERNAL MAIL$MAILFILE_MODIFY ! ! 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 ! INTEGER*4 MAIL$MAILFILE_OPEN EXTERNAL MAIL$MAILFILE_OPEN ! ! 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 ! INTEGER*4 MAIL$MAILFILE_PURGE_WASTE EXTERNAL MAIL$MAILFILE_PURGE_WASTE ! ! 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 ! INTEGER*4 MAIL$MESSAGE_BEGIN EXTERNAL MAIL$MESSAGE_BEGIN ! ! 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 ! INTEGER*4 MAIL$MESSAGE_COPY EXTERNAL MAIL$MESSAGE_COPY ! ! 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 ! INTEGER*4 MAIL$MESSAGE_DELETE EXTERNAL MAIL$MESSAGE_DELETE ! ! 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 ! INTEGER*4 MAIL$MESSAGE_END EXTERNAL MAIL$MESSAGE_END ! ! 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 ! INTEGER*4 MAIL$MESSAGE_GET EXTERNAL MAIL$MESSAGE_GET ! ! 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 ! INTEGER*4 MAIL$MESSAGE_INFO EXTERNAL MAIL$MESSAGE_INFO ! ! 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 ! INTEGER*4 MAIL$MESSAGE_MODIFY EXTERNAL MAIL$MESSAGE_MODIFY ! ! 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 ! INTEGER*4 MAIL$MESSAGE_SELECT EXTERNAL MAIL$MESSAGE_SELECT ! ! 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 ! INTEGER*4 MAIL$SEND_ABORT EXTERNAL MAIL$SEND_ABORT ! ! 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 ! INTEGER*4 MAIL$SEND_ADD_ADDRESS EXTERNAL MAIL$SEND_ADD_ADDRESS ! ! 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 ! INTEGER*4 MAIL$SEND_ADD_ATTRIBUTE EXTERNAL MAIL$SEND_ADD_ATTRIBUTE ! ! 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 ! INTEGER*4 MAIL$SEND_BEGIN EXTERNAL MAIL$SEND_BEGIN ! ! 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 ! INTEGER*4 MAIL$SEND_ADD_BODYPART EXTERNAL MAIL$SEND_ADD_BODYPART ! ! 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 ! INTEGER*4 MAIL$SEND_END EXTERNAL MAIL$SEND_END ! ! 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 ! INTEGER*4 MAIL$SEND_MESSAGE EXTERNAL MAIL$SEND_MESSAGE ! ! 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 ! INTEGER*4 MAIL$USER_BEGIN EXTERNAL MAIL$USER_BEGIN ! ! 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 ! INTEGER*4 MAIL$USER_DELETE_INFO EXTERNAL MAIL$USER_DELETE_INFO ! ! 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 ! INTEGER*4 MAIL$USER_END EXTERNAL MAIL$USER_END ! ! 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 ! INTEGER*4 MAIL$USER_GET_INFO EXTERNAL MAIL$USER_GET_INFO ! ! 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 ! INTEGER*4 MAIL$USER_SET_INFO EXTERNAL MAIL$USER_SET_INFO !DEC$ END OPTIONS