1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 dcl 1 postcommit_info_header
31 based (postcommit_info_ptr),
32 2 version char (8) unal,
33 2 operation char (8) unal;
34
35 dcl 1 delete_postcommit_info
36 based (postcommit_info_ptr),
37 2 header like postcommit_info_header,
38 2 sys_pn_tbl_index fixed bin unal,
39 2 dir_path char (168) unal,
40 2 file_name char (32) unal;
41
42 dcl 1 increment_postcommit_info
43 based (postcommit_info_ptr),
44 2 header like postcommit_info_header,
45 2 increments_ptr ptr,
46 2 element_id bit (36),
47 2 number_of_words fixed bin (35),
48 2 ci_number fixed bin (27),
49 2 offset_in_bytes fixed bin (35);
50
51 dcl postcommit_info_ptr ptr init (null ());
52 dcl (
53 POSTCOMMIT_INFO_VERSION_1
54 init ("PCInfo 1"),
55 DELETE_POSTCOMMIT_OPERATION
56 init ("deletion"),
57 CREATE_POSTCOMMIT_OPERATION
58 init ("creation"),
59 INCREMENT_POSTCOMMIT_OPERATION
60 init ("incremen")
61 ) char (8) internal static options (constant);
62
63
64