1 /* BEGIN INCLUDE FILE gtss_file_attributes.incl.pl1 */
 2 /*
 3   Created: (Kepner Multics)  06/02/78 1522.0 mst Fri
 4 */
 5 
 6 /*        Declaration of File Attributes Segement */
 7 
 8 
 9 dcl  gtss_file_attributes_ptr ptr init(null());
10 
11 dcl 1 gtss_file_attributes based (gtss_file_attributes_ptr) aligned,
12     2 max_size fixed bin (24),                              /* maximum size the file can grow to
13                                                                in 320 word blocks.  if = 0 then the
14                                                                file size is unlimited. */
15     2 current_size fixed bin (24),                          /* current size of the file in 320 word blocks */
16     2 user_attributes aligned,
17       3 non_null bit (1) unal,                              /* 0 = this file has never been written to */
18       3 user_attr bit (35) unal,                            /* User defined attributes */
19     2 descriptor aligned,
20       3 device_type bit (6) unaligned,                      /* currently ignored */
21       3 words_block bit (12) unaligned,                     /* number of words per physical block */
22       3 llink_flag bit (1) unaligned,                       /* if 0= size in links | 1= size in llinks */
23       3 mode bit (1) unaligned,                             /* 0= linked file | 1= random file */
24       3 perm bit (1) unaligned,                             /* 1=permanent file|0=not */
25       3 fill bit (1) unaligned,
26       3 size bit (14) unaligned;
27 
28 
29 /*   END INCLUDE FILE gtss_file_attributes.incl.pl1 */