1 
 2 /* BEGIN INCLUDE FILE ...   cobol_mft.incl.pl1 */
 3 /* Last modified Oct 2, 1974 by ORN */
 4 
 5 /*NOTE:  Any changes made to this include file should also be made to mft.incl.hpl  thanks. */
 6 dcl mft_ptr ptr;
 7 dcl 1 mft based(mft_ptr),     /* multics file table ext  */
 8      2 id char(32),
 9      2 temp bit(1) ,
10      2 perm bit(1) ,
11      2 attach bit(1) ,
12      2 detach bit(1) ,
13      2 fsb ,                  /* file state block */
14           3 seg fixed bin(24), /* internal addr */
15           3 off fixed bin(24),
16      2 tape,                  /* not used first release */
17           3 bin_bcd bit(1) ,  /* 0-bin 1-bcd */
18           3 tracks bit(1) ,   /* 0-7 1-9 */
19           3 density bit(1) ,  /* 0-hi 1-lo */
20           3 retain bit(1),
21           3 force bit(1),
22           3 protect bit(1) ,  /* 0-no 1-yes */
23           3 retry fixed bin(24) ,       /* number of times */
24      2 terminal,              /* not used first release */
25           3 eak bit(1) ,                /* 0-yes */
26           3 canon bit(1) ,    /* 0-yes */
27           3 conv bit(1) ,               /* 0-yes */
28           3 tabs bit(1) ,               /* 0-yes */
29           3 edit bit(1) ,               /* 1-yes */
30           3 escape bit(1) ,   /* 0-yes */
31           3 fill bit(30) ,
32      2 cat_nm char(200),
33      2 ao_len fixed bin(24),            /* attach options */
34      2 ao_string char(128);
35 
36 /* END INCLUDE FILE ...   cobol_mft.incl.pl1 */
37