1 /* BEGIN INCLUDE FILE - vfile_attach_block.incl.pl1 */
 2 
 3 /* Written 06/18/81 by Lindsey Spratt.
 4 */
 5 
 6 /* format: style2 */
 7      dcl     1 attach_block         based (attach_block_ptr),
 8                                                             /* the following are set by attach_file */
 9                2 flags              aligned,
10                  3 (extend_attach, appending, no_trunc, old, ssf, header_present, blocked, shared, was_msf, is_msf,
11                       inv_lock_reset, dup_ok_sw, trans_sw, noend_sw, exclu_sw, stat_sw, checkpoint_sw)
12                                     bit (1) unal,
13                  3 pad              bit (19) unal,
14                2 wait_time          fixed (35),
15                2 interp             fixed,
16                2 max_rec_len        fixed (35),
17                2 header_id          fixed (35),
18                2 attach_descrip,
19                  3 attach_descrip_len
20                                     fixed bin (35),         /* < = 256 */
21                  3 attach_descrip_string
22                                     char (256),             /* "vfile_ " (7 chars), the directory
23                                                                pathname (dname_len chars), ">", the entry
24                                                                name (ename_len chars), " -extend" (optional 8 chars),
25                                                                and " -raw" or " -extend"(optional 8 chars) */
26                2 dname_len          fixed bin,              /* < = l68 */
27                2 ename_len          fixed bin,              /* < = 32 */
28                                                             /* The following are set by open_file */
29                2 open_descrip,
30                  3 open_descrip_len fixed bin (35),         /* < = 31 */
31                  3 open_descrip_string
32                                     char (32),              /* The string
33                                                                contains the opening mode, e.g., "stream output",
34                                                                (< = 23 chars) and " -extend" (8chars optional) */
35                2 mode               fixed bin,              /* opening mode 1 <= 13 */
36                2 file_type          fixed bin,              /* 0 = uns, 1 = seq, 2 = indx, 3 = blk */
37                2 fcb_ptr            ptr,                    /* pointer to msf_manager control block */
38                2 first_seg_ptr      ptr,                    /* pointer to first component
39                                                                of the file.  Thie pointer is valid throughout the
40                                                                file opening */
41                2 close_x            entry (ptr),            /* routine to perform operations required
42                                                                for closing specific type of file obtained from open_x see
43                                                                open_file */
44                2 last_comp          fixed,                  /* msf component number at open */
45                2 tcf_iocbp          ptr;                    /* iocb ptr for transaction control switch */
46 
47      dcl     attach_block_ptr       ptr;
48 
49 /* END INCLUDE FILE - vfile_attach_block.incl.pl1 */