1 /* BEGIN INCLUDE FILE:        dm_bj_ci.incl.pl1   */
 2 /*
 3 Layout of a BJ control interval excluding the actual data records.
 4 
 5 Written  by Andre Bensoussan  07/02/1982
 6 Modified:
 7 08/15/82 by Andre Bensoussan:  For implementing the flush function;
 8             header2.reserved_1 has been renamed first_rec_id.
 9 01nov82  by M. Pandolf to eliminate reserved_2 (after first_rec_id)
10             and to add n_bi, and more reserved space.
11 */
12 
13 /* format: style4,indattr,idind33,^indcomtxt */
14 
15 dcl  bj_ci_ptr                        ptr;
16 
17 dcl  1 bj_ci                          based (bj_ci_ptr) aligned, /* Structure of any CI in BJ except CI zero */
18        2 header1                      like ci_header,       /* Standard PF CI header */
19        2 header2,                                           /* Header specific to BJ CI */
20          3 layout_type                bit (36),
21          3 first_rec_id               bit (36),             /* Relevant only if first_is_contn = 1 */
22 
23          3 n_slots                    fixed bin (17) unal,  /* n_slots, first, last in same word ... */
24          3 first_is_contn             bit (1) unal,         /* ..so that they can be changed all ... */
25          3 last_is_contd              bit (1) unal,         /* ..at the same time in one instruction */
26          3 pad                        bit (16) unal,
27 
28          3 n_bi                       fixed bin (35),       /* number of BI's in buffer*/
29          3 reserved                   bit (36) dim (4),
30 
31        2 slot                         dim (1:1000),
32          3 offset                     fixed bin (18) uns unal,    /* In number of bytes */
33          3 length                     fixed bin (18) uns unal;    /* In number of bytes */
34 
35 dcl  1 header2                        like bj_ci.header2 aligned; /* Used for size calculation */
36 
37 /* END INCLUDE FILE:          dm_bj_ci.incl.pl1   */
38 
39 
40 
41 
42 
43 
44 
45 
46 
47