1 /* BEGIN INCLUDE FILE gtss_filact_options.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  09/08/78 1017.4 mst Fri
 4 */
 5 dcl  now                      fixed bin;
 6 dcl  options_ptr              ptr init(null());
 7 dcl 1 optionsx                aligned based(options_ptr)
 8 ,     3 word1
 9 ,       4 option_bit          unal
10 ,         5 j                 bit(01)unal         /* Space must be contiguous. */
11 ,         5 b                 bit(01)unal         /* Random  (CF only). */
12 ,         5 c                 bit(01)unal         /* File TSS created (CF only) */
13 ,         5 d                 bit(01)unal         /* I-D-S file. */
14 ,         5 k                 bit(01)unal         /* 320-word blocks (CF only). */
15 ,         5 f                 bit(01)unal         /* File already on tape or nonstructured disk pack (non-TSS). */
16 ,         5 bit_06            bit(01)unal         /* (not used). */
17 ,         5 h                 bit(01)unal         /* Attributes present. */
18 ,         5 i                 bit(01)unal         /* User-specified attributes (CF & MF only). */
19 ,         5 bits09_12         bit(04)unal         /* (not used). */
20 ,         5 y                 bit(01)unal         /* FMS protection options specified. */
21 ,         5 bits14_17         bit(04)unal         /* (not used). */
22 ,       4 device_name         bit(12)unal
23 ,       4 device_type         bit(06)unal
24 ,     3 word2
25 ,       4 initial_file_size   bit(18)unal         /* (CF only). */
26 ,       4 max_file_size       bit(18)unal         /* 0 => max size unlimited. */
27 ,     3 words3_now            (now)
28 ,       4 optional_specific_permissions
29 ,         5 USERID            bit(72)unal
30 ,         5 permission_bit    like permissionsx
31 ,     3 word_now_plus_1
32 ,       4 end_of_list         fixed bin(35)
33 ,     3 word_now_plus_2
34 ,       4 fill                bit(01)unal
35 ,       4 user_specified_attributes bit(35)unal   /* (CF & MF only). */
36 ;
37 
38 %include gtss_filact_permissions;
39 
40 /*   END INCLUDE FILE gtss_filact_options.incl.pl1 */