1 /*  START OF:       rdm_fwd_subsystem_opts.incl.pl1           *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Option structure for the read_mail forwarding subsystem. */
 4 
 5 /* Written: 10/3/83 by B. Margolin */
 6 
 7 dcl 1 rdm_forward_subsystem_options     aligned based (rdm_forward_subsystem_options_ptr),
 8       2 version                         char (8),
 9       2 input_type                      char (4),           /* terminal/file */
10       2 input_file,
11         3 input_file_ptr                ptr,
12         3 input_file_lth                fixed bin (21),
13       2 request_loop_control,
14         3 initial_requests_ptr          ptr,
15         3 initial_requests_lth          fixed bin (21),
16         3 enter_request_loop            bit (2) aligned,    /* default/-rql/-nrql */
17       2 fill_control,
18         3 fill_width                    fixed bin,          /* default 62 (caller should set) */
19         3 enable_filling                bit (2) aligned,    /* default/-fill/-no_fill */
20       2 prompt_control,
21         3 prompt_string                 char (64) var,
22         3 enable_prompt                 bit (2) aligned,    /* default/-prompt prompt_string/-no_prompt */
23       2 abbrev_control,
24         3 default_profile_ptr           ptr,
25         3 profile_ptr                   ptr,
26         3 enable_abbrev                 bit (1) aligned,
27       2 flags,
28         3 auto_write                    bit (1) unaligned,
29         3 pad                           bit (35) unaligned;
30 
31 dcl rdm_forward_subsystem_options_ptr   ptr;
32 dcl RDM_FORWARD_SUBSYSTEM_OPTIONS_VERSION_1
33                                         char (8) int static options (constant) init ("rfso_001");
34 
35 dcl (DEFAULT_PROMPT                     init ("00"b),
36      USE_PROMPT_STRING                  init ("01"b),
37      NO_PROMPT                          init ("10"b),
38 
39      DEFAULT_FILL                       init ("00"b),
40      FILL                               init ("01"b),
41      NO_FILL                            init ("10"b),
42 
43      DEFAULT_REQUEST_LOOP               init ("00"b),
44      REQUEST_LOOP                       init ("01"b),
45      NO_REQUEST_LOOP                    init ("10"b))
46                                         bit (2) aligned int static options (constant);
47 
48 dcl (TERMINAL_INPUT                     init ("term"),
49      FILE_INPUT                         init ("file"))
50                                         char (4) int static options (constant);
51 
52 /*  END OF:         rdm_fwd_subsystem_opts.incl.pl1           *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */