1 /* BEGIN INCLUDE FILE ... transaction_call.incl.pl1 */
 2 
 3 /* Written 6-Mar-79 by M. N. Davidoff. */
 4 
 5 /* automatic */
 6 
 7      declare trc_flags              bit (36) aligned;
 8      declare trc_status_ptr         pointer;
 9 
10 /* based */
11 
12      declare 1 trc_flag_s           aligned based (addr (trc_flags)),
13                2 verify_refs        bit (1) unaligned,      /* on to check for asychronous changes */
14                2 list               bit (1) unaligned,      /* on to print ref list on user_output until asynch change */
15                2 pad                bit (34) unaligned;     /* Must be zero */
16 
17      declare 1 trc_status           aligned based (trc_status_ptr),
18                2 version            fixed binary (17),      /* Must be 1 */
19                2 transaction_no     fixed binary (35),      /* transaction information applies to */
20                2 transaction_status fixed binary (17),      /* transaction's status */
21                2 passive_refs       fixed binary (34),      /* number of items referenced but not modified */
22                2 non_passive_refs   fixed binary (34);      /* number of items modified */
23 
24 /* internal static */
25 
26      declare trc_VERIFY_REFS        bit (36) aligned internal static options (constant) initial ("1"b);
27      declare trc_status_version_1   fixed binary internal static options (constant) initial (1);
28 
29 /* transaction status codes */
30 
31      declare trc_INCOMPLETE         fixed binary internal static options (constant) initial (0);
32      declare trc_COMMITTED          fixed binary internal static options (constant) initial (1);
33      declare trc_ROLLED_BACK        fixed binary internal static options (constant) initial (2);
34      declare trc_UNDEFINED          fixed binary internal static options (constant) initial (3);
35 
36 /* END INCLUDE FILE ... transaction_call.incl.pl1 */