1 /*  START OF:       dm_tm_states.incl.pl1         */
 2 
 3 /* HISTORY:
 4 
 5 Designed by Matthew Pierret, 01/26/82.
 6 Coded by Steve Herbst, 08/05/82.
 7 Modified:
 8 09/20/82 by Steve Herbst: States renames for distinct operations.
 9 10/05/82 by Steve Herbst: Added TM_ABORT_POST_COMMIT_STATE.
10 01/14/83 by Steve Herbst: Added TM_ERROR_INCREMENT.
11 01/18/83 by Steve Herbst: Added HIGHEST_ABORT_STATE, etc.
12 08/23/84 by Steve Herbst: Added OP_NAME... constants.
13 */
14 
15 
16 /* NOTE: Changing this file necessitates changes tm_cleanup */
17 
18 dcl (HIGHEST_STATE init (96),
19      LOWEST_ABORT_STATE init (21),
20      HIGHEST_ABORT_STATE init (30),
21      LOWEST_COMMIT_STATE init (31),
22      HIGHEST_COMMIT_STATE init (40),
23      LOWEST_ROLLBACK_STATE init (41),
24      HIGHEST_ROLLBACK_STATE init (50)) fixed bin int static options (constant);
25 
26 dcl TM_ERROR_INCREMENT fixed bin int static options (constant) init (50);
27                                                             /* error state = corresponding pre-call state + 50 */
28 
29 
30 dcl (     TM_IN_PROGRESS_STATE                    init (1),
31 
32           TM_BEGIN_STARTING_STATE                 init (11),
33 
34           TM_ABORT_FLUSHING_TXN_STATE             init (21),
35           TM_ABORT_FLUSHING_TXN_ERROR             init (71),
36           TM_ABORT_ROLLING_BACK_STATE             init (22),
37           TM_ABORT_ROLLING_BACK_ERROR             init (72),
38           TM_ABORT_FLUSHING_CI_STATE              init (23),
39           TM_ABORT_FLUSHING_CI_ERROR              init (73),
40           TM_ABORT_WRITING_MARK_STATE             init (24),
41           TM_ABORT_WRITING_MARK_ERROR             init (74),
42           TM_ABORT_UNLOCKING_STATE                init (25),
43           TM_ABORT_UNLOCKING_ERROR                init (75),
44           TM_ABORT_METERING_STATE                 init (26),
45           TM_ABORT_METERING_ERROR                 init (76),
46 
47           TM_COMMIT_FLUSHING_TXN_STATE            init (31),
48           TM_COMMIT_FLUSHING_TXN_ERROR            init (81),
49           TM_COMMIT_FLUSHING_CI_STATE             init (32),
50           TM_COMMIT_FLUSHING_CI_ERROR             init (82),
51           TM_COMMIT_WRITING_MARK_STATE            init (33),
52           TM_COMMIT_WRITING_MARK_ERROR            init (83),
53           TM_COMMIT_POST_COMMIT_STATE             init (34),
54           TM_COMMIT_POST_COMMIT_ERROR             init (84),
55           TM_COMMIT_UNLOCKING_STATE               init (35),
56           TM_COMMIT_UNLOCKING_ERROR               init (85),
57           TM_COMMIT_METERING_STATE                init (36),
58           TM_COMMIT_METERING_ERROR                init (86),
59 
60           TM_ROLLBACK_FLUSHING_TXN_STATE          init (41),
61           TM_ROLLBACK_FLUSHING_TXN_ERROR          init (91),
62           TM_ROLLBACK_ROLLING_BACK_STATE          init (42),
63           TM_ROLLBACK_ROLLING_BACK_ERROR          init (92),
64           TM_ROLLBACK_FLUSHING_CI_STATE           init (43),
65           TM_ROLLBACK_FLUSHING_CI_ERROR           init (93),
66           TM_ROLLBACK_WRITING_MARK_STATE          init (44),
67           TM_ROLLBACK_WRITING_MARK_ERROR          init (94),
68           TM_ROLLBACK_UNLOCKING_STATE             init (45),
69           TM_ROLLBACK_UNLOCKING_ERROR             init (95),
70           TM_ROLLBACK_METERING_STATE              init (46),
71           TM_ROLLBACK_METERING_ERROR              init (96))
72 
73                               fixed bin int static options (constant);
74 
75 dcl (OP_NAME_ABORT init ("abort"),
76      OP_NAME_COMMIT init ("commit"),
77      OP_NAME_ROLLBACK init ("rollback")) char (32) int static options (constant);
78 
79 /* END OF:          dm_tm_states.incl.pl1         */