! *** 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 ! ! Definitions needed for callable mail. ! ! ! NOTE: New item codes must be appended to the end of ! each category so users will not have to relink. ! We allow 1024 entries in eatch category. ! ! ! Send input codes ! DECLARE LONG CONSTANT mail$_send_spare_0 = 1 DECLARE LONG CONSTANT mail$_send_foreign = 2 ! Send foreign format message DECLARE LONG CONSTANT mail$_send_cc_line = 3 ! CC text specification DECLARE LONG CONSTANT mail$_send_default_name = 4 ! Default file name for send DECLARE LONG CONSTANT mail$_send_default_transport = 5 ! Default transport used for addressees DECLARE LONG CONSTANT mail$_send_error_entry = 6 ! Entry point for send error routine DECLARE LONG CONSTANT mail$_send_filename = 7 ! Specification of file name to send DECLARE LONG CONSTANT mail$_send_from_line = 8 ! From text specification DECLARE LONG CONSTANT mail$_send_no_default_transport = 9 ! Don't use any default transport on send DECLARE LONG CONSTANT mail$_send_pers_name = 10 ! Personal name text for message DECLARE LONG CONSTANT mail$_send_record = 11 ! Record to be sent DECLARE LONG CONSTANT mail$_send_resultspec = 12 ! Resultant filespec bodypart DECLARE LONG CONSTANT mail$_send_server = 13 ! Operate in server mode (signal success) DECLARE LONG CONSTANT mail$_send_subject = 14 ! Subject text specification DECLARE LONG CONSTANT mail$_send_success_entry = 15 ! Entry point for send success routine DECLARE LONG CONSTANT mail$_send_to_line = 16 ! To line text specification DECLARE LONG CONSTANT mail$_send_uflags = 17 ! User flags (for header) to send DECLARE LONG CONSTANT mail$_send_user_data = 18 ! User specified context for action routines DECLARE LONG CONSTANT mail$_send_username = 19 ! Username to add to the "To" list DECLARE LONG CONSTANT mail$_send_username_type = 20 ! Username type - TO or CC DECLARE LONG CONSTANT mail$_send_fid = 21 ! FID of file to send DECLARE LONG CONSTANT mail$_send_no_pers_name = 22 ! Send message without personal name DECLARE LONG CONSTANT mail$_send_sigfile = 23 ! Signature file DECLARE LONG CONSTANT mail$_send_no_sigfile = 24 ! Signature file DECLARE LONG CONSTANT mail$_send_parse_quotes = 25 ! Reply String Parsing Quotes ! ! Send output codes ! DECLARE LONG CONSTANT mail$_send_copy_reply = 26 ! Copy self reply set in profile DECLARE LONG CONSTANT mail$_send_copy_send = 27 ! Copy self send set in profile DECLARE LONG CONSTANT mail$_send_user = 28 ! Username of caller DECLARE LONG CONSTANT mail$_send_copy_forward = 29 ! Copy self forward set in profile DECLARE LONG CONSTANT mail$_send_recip_folder = 30 ! Recipient folder name to send the mail to DECLARE LONG CONSTANT mail$_send_out_spare3 = 31 DECLARE LONG CONSTANT mail$_send_out_spare4 = 32 DECLARE LONG CONSTANT mail$_send_out_spare5 = 33 DECLARE LONG CONSTANT mail$k_send_min_item = 1 DECLARE LONG CONSTANT mail$k_send_max_item = 33 DECLARE LONG CONSTANT mail$k_send_items = 33 ! ! file input codes ! DECLARE LONG CONSTANT mail$_mailfile_spare_0 = 1025 DECLARE LONG CONSTANT mail$_mailfile_default_name = 1026 ! Default filespec to open DECLARE LONG CONSTANT mail$_mailfile_folder_routine = 1027 ! Entry point of routine to process foldernames DECLARE LONG CONSTANT mail$_mailfile_full_close = 1028 ! Do a PURGE, CONVERT/RECLAIM if necessary on close DECLARE LONG CONSTANT mail$_mailfile_name = 1029 ! File spec to open DECLARE LONG CONSTANT mail$_mailfile_reclaim = 1030 ! Do RECLAIM on PURGE command DECLARE LONG CONSTANT mail$_mailfile_user_data = 1031 ! User specified context for action routines DECLARE LONG CONSTANT mail$_mailfile_wastebasket_name = 1032 ! New wastebasket name for file DECLARE LONG CONSTANT mail$_mailfile_collate_seq = 1033 ! I18N collating sequence DECLARE LONG CONSTANT mail$_mailfile_in_spare2 = 1034 DECLARE LONG CONSTANT mail$_mailfile_in_spare3 = 1035 DECLARE LONG CONSTANT mail$_mailfile_in_spare4 = 1036 DECLARE LONG CONSTANT mail$_mailfile_in_spare5 = 1037 DECLARE LONG CONSTANT mail$_mailfile_in_spare6 = 1038 DECLARE LONG CONSTANT mail$_mailfile_in_spare7 = 1039 DECLARE LONG CONSTANT mail$_mailfile_in_spare8 = 1040 DECLARE LONG CONSTANT mail$_mailfile_in_spare9 = 1041 DECLARE LONG CONSTANT mail$_mailfile_in_spare10 = 1042 DECLARE LONG CONSTANT mail$_mailfile_in_spare11 = 1043 DECLARE LONG CONSTANT mail$_mailfile_in_spare12 = 1044 DECLARE LONG CONSTANT mail$_mailfile_in_spare13 = 1045 DECLARE LONG CONSTANT mail$_mailfile_in_spare14 = 1046 DECLARE LONG CONSTANT mail$_mailfile_in_spare15 = 1047 DECLARE LONG CONSTANT mail$_mailfile_in_spare16 = 1048 DECLARE LONG CONSTANT mail$_mailfile_in_spare17 = 1049 DECLARE LONG CONSTANT mail$_mailfile_in_spare18 = 1050 DECLARE LONG CONSTANT mail$_mailfile_in_spare19 = 1051 DECLARE LONG CONSTANT mail$_mailfile_in_spare20 = 1052 ! ! file output codes ! DECLARE LONG CONSTANT mail$_mailfile_data_reclaim = 1053 ! Number of data buckets reclaimed DECLARE LONG CONSTANT mail$_mailfile_data_scan = 1054 ! Number of data buckets scanned DECLARE LONG CONSTANT mail$_mailfile_deleted_bytes = 1055 ! Number of free bytes in mail file DECLARE LONG CONSTANT mail$_mailfile_index_reclaim = 1056 ! Number of index buckets reclaimed DECLARE LONG CONSTANT mail$_mailfile_mail_directory = 1057 ! Mail sub-directory specification DECLARE LONG CONSTANT mail$_mailfile_messages_deleted = 1058 ! Number of messages deleted DECLARE LONG CONSTANT mail$_mailfile_resultspec = 1059 ! Resultant file spec DECLARE LONG CONSTANT mail$_mailfile_total_reclaim = 1060 ! Total buckets reclaimed DECLARE LONG CONSTANT mail$_mailfile_wastebasket = 1061 ! Wastebasket name DECLARE LONG CONSTANT mail$_mailfile_indexed = 1062 ! ISAM file DECLARE LONG CONSTANT mail$_mailfile_out_spare2 = 1063 DECLARE LONG CONSTANT mail$_mailfile_out_spare3 = 1064 DECLARE LONG CONSTANT mail$_mailfile_out_spare4 = 1065 DECLARE LONG CONSTANT mail$_mailfile_out_spare5 = 1066 DECLARE LONG CONSTANT mail$_mailfile_out_spare6 = 1067 DECLARE LONG CONSTANT mail$_mailfile_out_spare7 = 1068 DECLARE LONG CONSTANT mail$_mailfile_out_spare8 = 1069 DECLARE LONG CONSTANT mail$_mailfile_out_spare9 = 1070 DECLARE LONG CONSTANT mail$_mailfile_out_spare10 = 1071 DECLARE LONG CONSTANT mail$_mailfile_out_spare11 = 1072 DECLARE LONG CONSTANT mail$_mailfile_out_spare12 = 1073 DECLARE LONG CONSTANT mail$_mailfile_out_spare13 = 1074 DECLARE LONG CONSTANT mail$_mailfile_out_spare14 = 1075 DECLARE LONG CONSTANT mail$_mailfile_out_spare15 = 1076 DECLARE LONG CONSTANT mail$_mailfile_out_spare16 = 1077 DECLARE LONG CONSTANT mail$_mailfile_out_spare17 = 1078 DECLARE LONG CONSTANT mail$_mailfile_out_spare18 = 1079 DECLARE LONG CONSTANT mail$_mailfile_out_spare19 = 1080 DECLARE LONG CONSTANT mail$_mailfile_out_spare20 = 1081 DECLARE LONG CONSTANT mail$k_mailfile_min_item = 1025 DECLARE LONG CONSTANT mail$k_mailfile_max_item = 1081 DECLARE LONG CONSTANT mail$k_mailfile_items = 57 ! ! message input codes ! DECLARE LONG CONSTANT mail$_message_spare_0 = 2048 DECLARE LONG CONSTANT mail$_message_back = 2049 ! Get previous message DECLARE LONG CONSTANT mail$_message_before = 2050 ! Select messages BEFORE date DECLARE LONG CONSTANT mail$_message_cc_substring = 2051 ! Select messages containing CC substring DECLARE LONG CONSTANT mail$_message_continue = 2052 ! Read next record DECLARE LONG CONSTANT mail$_message_file_action = 2053 ! File create action routine DECLARE LONG CONSTANT mail$_message_folder_action = 2054 ! Folder create action routine DECLARE LONG CONSTANT mail$_message_default_name = 2055 ! Default file name DECLARE LONG CONSTANT mail$_message_delete = 2056 ! Delete message DECLARE LONG CONSTANT mail$_message_erase = 2057 ! Erase message DECLARE LONG CONSTANT mail$_message_file_ctx = 2058 ! File level context DECLARE LONG CONSTANT mail$_message_filename = 2059 ! File name specification DECLARE LONG CONSTANT mail$_message_flags = 2060 ! Header flags specification DECLARE LONG CONSTANT mail$_message_folder = 2061 ! Folder name specification DECLARE LONG CONSTANT mail$_message_from_substring = 2062 ! Select messages containing FROM substring DECLARE LONG CONSTANT mail$_message_id = 2063 ! ID of message DECLARE LONG CONSTANT mail$_message_next = 2064 ! Retrive NEXT message DECLARE LONG CONSTANT mail$_message_since = 2065 ! Select messages SINCE date DECLARE LONG CONSTANT mail$_message_subj_substring = 2066 ! Select messages containing SUBJ substring DECLARE LONG CONSTANT mail$_message_to_substring = 2067 ! Select messages containing TO substring DECLARE LONG CONSTANT mail$_message_uflags = 2068 ! User flags specification DECLARE LONG CONSTANT mail$_message_auto_newmail = 2069 ! Move newmail to MAIL auto DECLARE LONG CONSTANT mail$_message_user_data = 2070 ! User context for action routines DECLARE LONG CONSTANT mail$_message_flags_mbz = 2071 ! Select messages with these flags set at zero DECLARE LONG CONSTANT mail$_message_min_class = 2072 ! Min access class for message DECLARE LONG CONSTANT mail$_message_max_class = 2073 ! Max access class for message DECLARE LONG CONSTANT mail$_message_in_spare1 = 2074 DECLARE LONG CONSTANT mail$_message_in_spare2 = 2075 DECLARE LONG CONSTANT mail$_message_in_spare3 = 2076 DECLARE LONG CONSTANT mail$_message_in_spare4 = 2077 DECLARE LONG CONSTANT mail$_message_in_spare5 = 2078 DECLARE LONG CONSTANT mail$_message_in_spare6 = 2079 DECLARE LONG CONSTANT mail$_message_in_spare7 = 2080 DECLARE LONG CONSTANT mail$_message_in_spare8 = 2081 DECLARE LONG CONSTANT mail$_message_in_spare9 = 2082 DECLARE LONG CONSTANT mail$_message_in_spare10 = 2083 DECLARE LONG CONSTANT mail$_message_in_spare11 = 2084 DECLARE LONG CONSTANT mail$_message_in_spare12 = 2085 DECLARE LONG CONSTANT mail$_message_in_spare13 = 2086 DECLARE LONG CONSTANT mail$_message_in_spare14 = 2087 DECLARE LONG CONSTANT mail$_message_in_spare15 = 2088 DECLARE LONG CONSTANT mail$_message_in_spare16 = 2089 DECLARE LONG CONSTANT mail$_message_in_spare17 = 2090 DECLARE LONG CONSTANT mail$_message_in_spare18 = 2091 DECLARE LONG CONSTANT mail$_message_in_spare19 = 2092 DECLARE LONG CONSTANT mail$_message_in_spare20 = 2093 ! ! message output codes ! DECLARE LONG CONSTANT mail$_message_cc = 2094 ! CC text of message DECLARE LONG CONSTANT mail$_message_current_id = 2095 ! ID of current message DECLARE LONG CONSTANT mail$_message_date = 2096 ! Date of current message DECLARE LONG CONSTANT mail$_message_extid = 2097 ! Filespec of external message DECLARE LONG CONSTANT mail$_message_file_created = 2098 ! Mailfile created... DECLARE LONG CONSTANT mail$_message_folder_created = 2099 ! Folder created... DECLARE LONG CONSTANT mail$_message_from = 2100 ! From text of message DECLARE LONG CONSTANT mail$_message_record = 2101 ! Record from message DECLARE LONG CONSTANT mail$_message_record_type = 2102 ! Type of record, header or text DECLARE LONG CONSTANT mail$_message_reply_path = 2103 ! Reply path of sender DECLARE LONG CONSTANT mail$_message_resultspec = 2104 ! Resultant file spec DECLARE LONG CONSTANT mail$_message_return_flags = 2105 ! Message header system flags DECLARE LONG CONSTANT mail$_message_return_uflags = 2106 ! Message header user flags DECLARE LONG CONSTANT mail$_message_selected = 2107 ! Number of messages selected DECLARE LONG CONSTANT mail$_message_sender = 2108 ! Sender name DECLARE LONG CONSTANT mail$_message_size = 2109 ! Size of the current message DECLARE LONG CONSTANT mail$_message_subject = 2110 ! Subject text of the message DECLARE LONG CONSTANT mail$_message_to = 2111 ! To text of the message DECLARE LONG CONSTANT mail$_message_buffer = 2112 ! Buffer address DECLARE LONG CONSTANT mail$_message_return_class = 2113 ! Class of current message DECLARE LONG CONSTANT mail$_message_binary_date = 2114 ! Binary date/time quadword DECLARE LONG CONSTANT mail$_message_spare4 = 2115 DECLARE LONG CONSTANT mail$_message_parse_quotes = 2116 ! Reply String Parsing Quotes DECLARE LONG CONSTANT mail$_message_spare6 = 2117 DECLARE LONG CONSTANT mail$_message_spare7 = 2118 DECLARE LONG CONSTANT mail$_message_spare8 = 2119 DECLARE LONG CONSTANT mail$_message_spare9 = 2120 DECLARE LONG CONSTANT mail$_message_spare10 = 2121 DECLARE LONG CONSTANT mail$_message_spare11 = 2122 DECLARE LONG CONSTANT mail$_message_spare12 = 2123 DECLARE LONG CONSTANT mail$_message_spare13 = 2124 DECLARE LONG CONSTANT mail$_message_spare14 = 2125 DECLARE LONG CONSTANT mail$_message_spare15 = 2126 DECLARE LONG CONSTANT mail$_message_spare16 = 2127 DECLARE LONG CONSTANT mail$_message_spare17 = 2128 DECLARE LONG CONSTANT mail$_message_spare18 = 2129 DECLARE LONG CONSTANT mail$_message_spare19 = 2130 ! ! Constants returned ! DECLARE LONG CONSTANT mail$_message_null = 2131 ! Null bodypart DECLARE LONG CONSTANT mail$_message_header = 2132 ! Header record returned DECLARE LONG CONSTANT mail$_message_text = 2133 ! Text record returned DECLARE LONG CONSTANT mail$_message_spare20 = 2134 DECLARE LONG CONSTANT mail$k_message_min_item = 2048 DECLARE LONG CONSTANT mail$k_message_max_item = 2134 DECLARE LONG CONSTANT mail$k_message_items = 87 ! ! user input codes ! DECLARE LONG CONSTANT mail$_user_spare_0 = 3072 DECLARE LONG CONSTANT mail$_user_first = 3073 ! Retrive first user record DECLARE LONG CONSTANT mail$_user_next = 3074 ! Retrive next user record DECLARE LONG CONSTANT mail$_user_username = 3075 ! Retrive record for username DECLARE LONG CONSTANT mail$_user_set_auto_purge = 3076 ! Set auto-purge DECLARE LONG CONSTANT mail$_user_set_no_auto_purge = 3077 ! Clear auto-purge DECLARE LONG CONSTANT mail$_user_set_sub_directory = 3078 ! Set sub-dir field DECLARE LONG CONSTANT mail$_user_set_no_sub_directory = 3079 ! Clear sub-dir field DECLARE LONG CONSTANT mail$_user_set_forwarding = 3080 ! Set forwarding address DECLARE LONG CONSTANT mail$_user_set_no_forwarding = 3081 ! Clear forwarding address DECLARE LONG CONSTANT mail$_user_set_personal_name = 3082 ! Set personal name DECLARE LONG CONSTANT mail$_user_set_no_personal_name = 3083 ! Clear personal name DECLARE LONG CONSTANT mail$_user_set_copy_send = 3084 ! Set copy-send DECLARE LONG CONSTANT mail$_user_set_no_copy_send = 3085 ! Clear copy send DECLARE LONG CONSTANT mail$_user_set_copy_reply = 3086 ! Set copy reply DECLARE LONG CONSTANT mail$_user_set_no_copy_reply = 3087 ! Clear copy reply DECLARE LONG CONSTANT mail$_user_set_new_messages = 3088 ! Set new message count DECLARE LONG CONSTANT mail$_user_create_if = 3089 ! Create record if does not exist DECLARE LONG CONSTANT mail$_user_set_mailplus = 3090 ! Set M+ DECLARE LONG CONSTANT mail$_user_set_no_mailplus = 3091 ! Clear M+ DECLARE LONG CONSTANT mail$_user_set_transport = 3092 ! Set transport field DECLARE LONG CONSTANT mail$_user_set_no_transport = 3093 ! Clear transport field DECLARE LONG CONSTANT mail$_user_set_editor = 3094 ! Set editor field DECLARE LONG CONSTANT mail$_user_set_no_editor = 3095 ! Clear editor field DECLARE LONG CONSTANT mail$_user_set_queue = 3096 ! Set queue field DECLARE LONG CONSTANT mail$_user_set_no_queue = 3097 ! Clear queue field DECLARE LONG CONSTANT mail$_user_set_user1 = 3098 ! Set user1 field DECLARE LONG CONSTANT mail$_user_set_no_user1 = 3099 ! Clear user1 field DECLARE LONG CONSTANT mail$_user_set_user2 = 3100 ! Set user2 field DECLARE LONG CONSTANT mail$_user_set_no_user2 = 3101 ! Clear user2 field DECLARE LONG CONSTANT mail$_user_set_user3 = 3102 ! Set user3 field DECLARE LONG CONSTANT mail$_user_set_no_user3 = 3103 ! Clear user3 field DECLARE LONG CONSTANT mail$_user_set_form = 3104 ! Set form field DECLARE LONG CONSTANT mail$_user_set_no_form = 3105 ! Clear form field DECLARE LONG CONSTANT mail$_user_set_copy_forward = 3106 ! Set copy self forward DECLARE LONG CONSTANT mail$_user_set_no_copy_forward = 3107 ! Clear copy self forward DECLARE LONG CONSTANT mail$_user_set_cc_prompt = 3108 ! Set CC prompting DECLARE LONG CONSTANT mail$_user_set_no_cc_prompt = 3109 ! Clear CC prompting DECLARE LONG CONSTANT mail$_user_set_sigfile = 3110 ! Set signature file DECLARE LONG CONSTANT mail$_user_set_no_sigfile = 3111 ! Clear signature file DECLARE LONG CONSTANT mail$_user_in_spare1 = 3112 DECLARE LONG CONSTANT mail$_user_in_spare2 = 3113 DECLARE LONG CONSTANT mail$_user_in_spare3 = 3114 DECLARE LONG CONSTANT mail$_user_in_spare4 = 3115 DECLARE LONG CONSTANT mail$_user_in_spare5 = 3116 DECLARE LONG CONSTANT mail$_user_in_spare6 = 3117 DECLARE LONG CONSTANT mail$_user_in_spare7 = 3118 DECLARE LONG CONSTANT mail$_user_in_spare8 = 3119 DECLARE LONG CONSTANT mail$_user_in_spare9 = 3120 DECLARE LONG CONSTANT mail$_user_in_spare10 = 3121 DECLARE LONG CONSTANT mail$_user_in_spare11 = 3122 DECLARE LONG CONSTANT mail$_user_in_spare12 = 3123 DECLARE LONG CONSTANT mail$_user_in_spare13 = 3124 DECLARE LONG CONSTANT mail$_user_in_spare14 = 3125 DECLARE LONG CONSTANT mail$_user_in_spare15 = 3126 DECLARE LONG CONSTANT mail$_user_in_spare16 = 3127 DECLARE LONG CONSTANT mail$_user_in_spare17 = 3128 DECLARE LONG CONSTANT mail$_user_in_spare18 = 3129 DECLARE LONG CONSTANT mail$_user_in_spare19 = 3130 DECLARE LONG CONSTANT mail$_user_in_spare20 = 3131 ! ! Output item parameters ! DECLARE LONG CONSTANT mail$_user_mailplus = 3132 ! M+ field DECLARE LONG CONSTANT mail$_user_transport = 3133 ! Transport field DECLARE LONG CONSTANT mail$_user_editor = 3134 ! Editor field DECLARE LONG CONSTANT mail$_user_queue = 3135 ! Queue field DECLARE LONG CONSTANT mail$_user_user1 = 3136 ! User1 field DECLARE LONG CONSTANT mail$_user_user2 = 3137 ! User2 field DECLARE LONG CONSTANT mail$_user_user3 = 3138 ! User3 field DECLARE LONG CONSTANT mail$_user_form = 3139 ! Form field DECLARE LONG CONSTANT mail$_user_copy_forward = 3140 ! Copy forward flag DECLARE LONG CONSTANT mail$_user_sigfile = 3141 ! Signature file DECLARE LONG CONSTANT mail$_user_return_username = 3142 ! Username of current record DECLARE LONG CONSTANT mail$_user_auto_purge = 3143 ! Auto purge flag DECLARE LONG CONSTANT mail$_user_sub_directory = 3144 ! Sub-dir spec DECLARE LONG CONSTANT mail$_user_full_directory = 3145 ! Full directory spec DECLARE LONG CONSTANT mail$_user_new_messages = 3146 ! New message count DECLARE LONG CONSTANT mail$_user_forwarding = 3147 ! Forwarding field DECLARE LONG CONSTANT mail$_user_personal_name = 3148 ! Personal name field DECLARE LONG CONSTANT mail$_user_copy_send = 3149 ! Copy send flag DECLARE LONG CONSTANT mail$_user_copy_reply = 3150 ! Copy reply flag DECLARE LONG CONSTANT mail$_user_captive = 3151 ! User is captive DECLARE LONG CONSTANT mail$_user_cc_prompt = 3152 ! CC prompting flag DECLARE LONG CONSTANT mail$_user_out_spare2 = 3153 DECLARE LONG CONSTANT mail$_user_out_spare3 = 3154 DECLARE LONG CONSTANT mail$_user_out_spare4 = 3155 DECLARE LONG CONSTANT mail$_user_out_spare5 = 3156 DECLARE LONG CONSTANT mail$_user_out_spare6 = 3157 DECLARE LONG CONSTANT mail$_user_out_spare7 = 3158 DECLARE LONG CONSTANT mail$_user_out_spare8 = 3159 DECLARE LONG CONSTANT mail$_user_out_spare9 = 3160 DECLARE LONG CONSTANT mail$_user_out_spare10 = 3161 DECLARE LONG CONSTANT mail$_user_out_spare11 = 3162 DECLARE LONG CONSTANT mail$_user_out_spare12 = 3163 DECLARE LONG CONSTANT mail$_user_out_spare13 = 3164 DECLARE LONG CONSTANT mail$_user_out_spare14 = 3165 DECLARE LONG CONSTANT mail$_user_out_spare15 = 3166 DECLARE LONG CONSTANT mail$_user_out_spare16 = 3167 DECLARE LONG CONSTANT mail$_user_out_spare17 = 3168 DECLARE LONG CONSTANT mail$_user_out_spare18 = 3169 DECLARE LONG CONSTANT mail$_user_out_spare19 = 3170 DECLARE LONG CONSTANT mail$_user_out_spare20 = 3171 DECLARE LONG CONSTANT mail$k_user_min_item = 3072 DECLARE LONG CONSTANT mail$k_user_max_item = 3171 DECLARE LONG CONSTANT mail$k_user_items = 100 ! ! Special items ! DECLARE LONG CONSTANT mail$_noop = 4097 ! Do nothing - used for testing DECLARE LONG CONSTANT mail$_nosignal = 4098 ! Don't signal errors DECLARE LONG CONSTANT mail$_noprobe = 4099 ! Don't probe the item list buffers DECLARE LONG CONSTANT mail$_tld_input = 4100 ! This item is a tld to be used as input DECLARE LONG CONSTANT mail$_tld_output = 4101 ! This item describes a buffer to fill ! ! Username types for mail$send_add_address ! DECLARE LONG CONSTANT mail$_to = 1 ! Address part of the TO line DECLARE LONG CONSTANT mail$_cc = 2 ! Address part of the CC line DECLARE LONG CONSTANT mail$_spare1 = 3 DECLARE LONG CONSTANT mail$_spare2 = 4 ! ! Define the flag values for mail system flags ! DECLARE LONG CONSTANT MAIL$m_newmsg = x'00000001' DECLARE LONG CONSTANT MAIL$m_replied = x'00000002' DECLARE LONG CONSTANT MAIL$m_dwmail = x'00000004' DECLARE LONG CONSTANT MAIL$m_extmsg = x'00000008' DECLARE LONG CONSTANT MAIL$m_extfnf = x'00000010' DECLARE LONG CONSTANT MAIL$m_notrans = x'00000020' DECLARE LONG CONSTANT MAIL$m_extnstd = x'00000040' DECLARE LONG CONSTANT MAIL$m_marked = x'00000080' DECLARE LONG CONSTANT MAIL$m_recmode = x'00000100' DECLARE LONG CONSTANT MAIL$s_flagsdef = 2 record flagsdef group MAIL$r_fill_2_ variant case WORD MAIL$w_flags ! Flags word case group MAIL$r_fill_3_ ! This is a new message ! This message has been replied to ! DW mail flag ! Message text in external file ! External message file not found ! No translator for this message ! External file is not var-seq file ! This message has been marked ! This message should be read in record mode WORD newmsg_bits ! COMMENT ADDED BY SDL - newmsg_bits contains bits newmsg through FILL_4_ end group MAIL$r_fill_3_ end variant end group MAIL$r_fill_2_ end record flagsdef