1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 dcl 1 rollback_info_header based (rollback_info_ptr),
22 2 version char (8) unal,
23 2 operation char (8) unal;
24
25 dcl 1 delete_rollback_info based (rollback_info_ptr),
26 2 header like rollback_info_header,
27 2 sys_pn_tbl_index fixed bin unal,
28 2 dir_path char (168) unal,
29 2 predelete_name char (32) unal,
30 2 postdelete_name char (32) unal;
31
32 dcl 1 create_rollback_info based (rollback_info_ptr),
33 2 header like rollback_info_header,
34 2 sys_pn_tbl_index fixed bin unal,
35 2 dir_path char (168) unal,
36 2 file_name char (32) unal;
37
38 dcl rollback_info_ptr ptr init (null ());
39 dcl (
40 ROLLBACK_INFO_VERSION_1
41 init ("RBInfo 1"),
42 DELETE_ROLLBACK_OPERATION
43 init ("deletion"),
44 CREATE_ROLLBACK_OPERATION
45 init ("creation")
46 ) char (8) internal static options (constant);
47
48
49