1
2
3 dcl 1 journal aligned based (journalp),
4 2 version fixed bin,
5 2 next_free_word fixed bin (18) aligned unsigned,
6 2 previous_journal_last_transaction_time fixed bin (71),
7 2 pad1 (2) bit (36) aligned,
8 2 own_last_transaction_time fixed bin (71),
9 2 previous_journal_name char (32),
10 2 own_name char (32),
11 2 subsequent_journal_name char (32),
12 2 pad2 (30) bit (36) aligned,
13 2 pad3 pointer aligned;
14
15 dcl 1 journal_entry aligned based (je_ptr),
16 2 clock_time fixed bin (71),
17 2 n_doublewords fixed bin,
18 2 action fixed bin,
19 2 pad (4) fixed bin,
20 2 j_resource_desc (0 refer (journal_entry.n_doublewords)) fixed bin (71) aligned;
21
22
23
24
25
26 dcl journalp pointer initial (null),
27 je_ptr pointer initial (null);
28
29