1 /* BEGIN INCLUDE FILE ... mlsys_close_options.incl.pl1 */
 2 /* Created:  June 1983 by G. Palter */
 3 
 4 /* Options for the mail_system_$close_mailbox entrypoint */
 5 
 6 dcl  1 close_options aligned based (close_options_ptr),
 7        2 version character (8) unaligned,
 8        2 flags,
 9          3 perform_deletions bit (1) unaligned,             /* ON => perform deletions requested earlier */
10          3 report_deletion_errors bit (1) unaligned,        /* ON => report problems deleting via sub_err_ */
11          3 mbz bit (34) unaligned;                          /* must be set to ""b by the caller */
12 
13 dcl  CLOSE_OPTIONS_VERSION_2 character (8) static options (constant) initial ("mlsclo02");
14 
15 dcl  close_options_ptr pointer;
16 
17 /* END INCLUDE FILE ... mlsys_close_options.incl.pl1 */