1 /* BEGIN INCLUDE FILE ... sdm_subsystem_info.incl.pl1 */
 2 /* Created:  28 December 1978 by G. Palter (version 1) */
 3 /* Modified: 23 January 1979 by G. Palter (version 2) */
 4 /* Modified: 31 May 1980 by G. Palter (version 3) -- support of the "print_original" request */
 5 /* Modified: 16 February 1982 by G. Palter (version 4) */
 6 /* Modified: 17 September 1982 by G. Palter (version 5) */
 7 /* Modified: August 1983 by G. Palter (version 6) -- support for the bcc field and the new definition of the
 8       In-Reply-To field */
 9 
10 
11 /* Arguments to the send_mail subsystem */
12 
13 dcl 1 sdm_subsystem_info aligned based (sdm_subsystem_info_ptr),
14       2 version character (8) unaligned,
15 
16       2 input_type fixed binary,                            /* source of message text (see below) */
17       2 input_file,                                         /* identifies file of input text when needed */
18         3 dname character (168) unaligned,                  /* ... directory and entry name */
19         3 ename character (32) unaligned,
20 
21       2 address_lists,                                      /* gives sources, destinations, etc. */
22         3 from pointer,                                     /* ... -> authors */
23         3 reply_to pointer,                                 /* ... -> destinations for a reply */
24         3 to pointer,                                       /* ... -> primary recipients */
25         3 cc pointer,                                       /* ... -> secondary recipients */
26         3 bcc pointer,                                      /* ... -> "blind" recipients */
27 
28       2 subject aligned,                                    /* subject of message */
29         3 subject_ptr pointer,                              /* ... -> text of subject */
30         3 subject_lth fixed binary (21),                    /* ... its length */
31         3 subject_given bit (1) aligned,                    /* ... ON => subject given even zero length */
32 
33       2 options like send_mail_options aligned,             /* permanent options as modified by ctl args */
34 
35       2 initial_requests aligned,                           /* initial request line to execute */
36         3 initial_requests_ptr pointer,
37         3 initial_requests_lth fixed binary (21),
38 
39       2 rdm_invocation_ptr pointer,                         /* -> description of read_mail invocation which created this
40                                                                send_mail invocation to construct a reply message */
41 
42       2 original_messages_ptr pointer;                      /* -> optional list of original messages from which the
43                                                                In-Reply-To field is generated and the original text(s)
44                                                                extracted (see sdm_original_messages.incl.pl1) */
45 
46 dcl  sdm_subsystem_info_ptr pointer;
47 
48 dcl  SDM_SUBSYSTEM_INFO_VERSION_6 character (8) static options (constant) initial ("sdmssi06");
49 
50 
51 /* Sources of input for message text */
52 
53 dcl (TERMINAL_INPUT           initial (1),
54      FILE_INPUT               initial (2))
55           fixed binary static options (constant);
56 
57 /* END INCLUDE FILE ... sdm_subsystem_info.incl.pl1 */