1 /* BEGIN INCLUDE FILE journal_entry.incl.pl1 */
 2 
 3      dcl     journal_entry_ptr      ptr;
 4      dcl     a_rec_len              fixed bin (21);
 5      dcl     a_key_len              fixed bin;
 6      dcl     1 journal_entry        based (journal_entry_ptr) aligned,
 7                2 head,
 8                  3 prev_ptr         ptr,
 9                  3 next_ptr         ptr,
10                  3 type             fixed bin,
11                2 descriptor         fixed bin (35),
12                2 inc_ref_count      bit (1) init ("0"b),
13                2 dec_ref_count      bit (1) init ("0"b),
14                2 key_len            fixed bin ,
15                2 rec_len            fixed bin (21) ,
16                2 key_str            char (a_key_len refer (journal_entry.key_len)),
17                2 rec_str            char (a_rec_len refer (journal_entry.rec_len));
18 
19 dcl RS_LOCK fixed bin init(1) options(constant) internal static;
20 dcl WRITE_RECORD fixed bin init(2) options(constant) internal static;
21 dcl DELETE_RECORD fixed bin init(3) options(constant) internal static;
22 dcl ADD_KEY fixed bin init(4) options(constant) internal static;
23 dcl DELETE_KEY fixed bin init(5) options(constant) internal static;
24 dcl RS_COUNT fixed bin init(6) options(constant) internal static;
25 dcl RS_LOCK_COUNT fixed bin init(7) options(constant) internal static;
26 dcl RS_LOCK_CREATE fixed bin init(8) options(constant) internal static;
27 
28 /*  END INCLUDE FILE journal_entry.incl.pl1 */