1 /* BEGIN INCLUDE FILE ... mlsys_delete_error_info.incl.pl1 */
 2 /* Created:  June 1983 by G. Palter */
 3 
 4 /* Describes why the mail system could not delete a message which was marked for deletion: passed to the caller of
 5    mail_system_$close_mailbox or mail_system_$expunge_messages via sub_err_ */
 6 
 7 dcl  1 delete_error_info aligned based (delete_error_info_ptr),
 8      2 version character (8) unaligned,
 9      2 message_number fixed binary,                         /* set to index of message which couldn't be deleted */
10      2 code fixed binary (35),                              /* set to indicate why message could not be deleted */
11      2 additional_info character (256) varying;             /* set to additional information to be displayed with the
12                                                                error message for the above status code */
13 
14 dcl  DELETE_ERROR_INFO_VERSION_1 character (8) static options (constant) initial ("mlsdel01");
15 
16 dcl  delete_error_info_ptr pointer;
17 
18 /* END INCLUDE FILE ... mlsys_delete_error_info.incl.pl1 */