1 /* BEGIN INCLUDE FILE... cmcs_vfile_rs.incl.pl1 */
 2 
 3 /* This COBOL MCS include file is used to reference records by their
 4    vfile_ descriptors. It is used mainly in the maintenance of
 5    message status lists. */
 6 
 7 /* Bob May, 6/30/77 */
 8 
 9 dcl  vfile_rs_version fixed bin int static options (constant) init (1);
10 
11 dcl  vfile_rs_ptr ptr;
12 
13 dcl 1 vfile_rs aligned based (vfile_rs_ptr),
14     2 version fixed bin,                                    /* currently must be set to 1 */
15     2 flags,
16      (3 lock_sw bit (1),                                    /* "1"b */
17       3 unlock_sw bit (1),                                  /* "1"b */
18       3 create_sw bit (1),                                  /* "0"b */
19                                                             /* switch separator */
20       3 locate_sw bit (1),                                  /* "0"b for current_rec, "1"b to use descriptor */
21       3 filler bit (32)) unaligned,                         /* (32) "0"b */
22     2 rec_len fixed bin (21),
23     2 max_rec_len fixed bin (21),
24     2 rec_ptr ptr,
25     2 descr like vfile_descr,                               /* process INdependent addressing */
26     2 filler fixed bin;                                     /* 0 */
27 
28 dcl 1 vfile_descr,                                          /* process INdependent addressing */
29    (2 comp_no fixed bin (17),                               /* component of MSF */
30     2 comp_offset bit (18)) unaligned;                      /* offset of record in component */
31 
32 /* END INCLUDE FILE... cmcs_vfile_rs.incl.pl1 */