!*** MODULE $DTIDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !   DTI flag definitions
 ! 
 !  Item list definitions
	PARAMETER DTI$_ENDITEM = '00000000'X	 !  End of item list code
	PARAMETER DTI$_TRANSACTION_INFORMATION = '00000001'X  !  Active transaction list
	PARAMETER DTI$_CURRENT_TID = '00000002'X  !  Current transaction identifier
	PARAMETER DTI$_MEMBERSHIP_COUNT = '00000003'X  !  # members still in transaction
	PARAMETER DTI$_BRANCH_COUNT = '00000004'X  !  # branches still in transaction
	PARAMETER DTI$_ROOT_NODE_NAME = '00000005'X  !  Root node
	PARAMETER DTI$_STARTING_TIME = '00000006'X  !  Transaction start time
	PARAMETER dti$K_MAX_ITEM_CODE = '00000006'X
 !  Transaction states
	PARAMETER DTI$K_NULL = '00000000'X
	PARAMETER DTI$K_STARTING = '00000001'X	 !  Starting state
	PARAMETER DTI$K_ACTIVE = '00000002'X	 !  Active state
	PARAMETER DTI$K_ONE_P_COMMITTING = '00000003'X  !  Committing (one-phase)
	PARAMETER DTI$K_PREPARING = '00000004'X	 !  Preparing state
	PARAMETER DTI$K_PREPARED = '00000005'X	 !  Prepared state
	PARAMETER DTI$K_COMMITTING = '00000006'X  !  Committing state
	PARAMETER DTI$K_COMMITTED = '00000007'X	 !  Committed state
	PARAMETER DTI$K_ONE_P_COMMITTED = '00000008'X  !  Committed (one-phase)
	PARAMETER DTI$K_ABORTING = '00000009'X	 !  Aborting state
	PARAMETER DTI$K_ABORTED = '0000000A'X	 !  Aborted or forgotten state
	PARAMETER DTI$K_IN_DOUBT = '0000000B'X	 !  Transaction has prepared and RM is
 !   coordinator; resolution must come
 !   from external entity
 !  SET item codes
	PARAMETER DTI$K_ILLEGAL = '00000000'X	 !  Make code 0 illegal
	PARAMETER DTI$K_DELETE_TRANSACTION = '00000001'X  !  Delete transaction
	PARAMETER DTI$K_DELETE_RM_NAME = '00000002'X  !  Delete resource manager
	PARAMETER DTI$K_MODIFY_STATE = '00000003'X  !  Modify transaction state
	PARAMETER DTI$K_DELETE_BRANCH_NODE = '00000004'X  !  Delete branch node
	PARAMETER DTI$K_SET_CURRENT_TID = '00000005'X  !  Set the current transaction identifier
	PARAMETER DTI$K_MAX_SET_CODE = '00000005'X
	PARAMETER DTI$M_SEARCH_STARTING = '00000001'X
	PARAMETER DTI$M_SEARCH_ACTIVE = '00000002'X
	PARAMETER DTI$M_SEARCH_1P_COMITTING = '00000004'X
	PARAMETER DTI$M_SEARCH_PREPARING = '00000008'X
	PARAMETER DTI$M_SEARCH_PREPARED = '00000010'X
	PARAMETER DTI$M_SEARCH_COMMITTING = '00000020'X
	PARAMETER DTI$M_SEARCH_COMMITTED = '00000040'X
	PARAMETER DTI$M_SEARCH_1P_COMMITTED = '00000080'X
	PARAMETER DTI$M_SEARCH_ABORTING = '00000100'X
	PARAMETER DTI$M_SEARCH_ABORTED = '00000200'X
	PARAMETER DTI$_ENDSEARCH = '00000000'X	 !  End of search list
	PARAMETER DTI$_SEARCH_AS_NODE = '00000001'X  !  Search as node
	PARAMETER DTI$_SEARCH_CURRENT_TID = '00000002'X  !  Search current transaction identifier
	PARAMETER DTI$_SEARCH_TID = '00000003'X	 !  Search transaction identifier
	PARAMETER DTI$_SEARCH_RM_NAME = '00000004'X  !  Search resource manager
	PARAMETER DTI$_SEARCH_BRANCH_NAME = '00000005'X  !  Search branch node names
	PARAMETER DTI$_SEARCH_STATE = '00000006'X  !  Search state
	PARAMETER DTI$_SEARCH_RESOLVED_STATE = '00000007'X  !  Search resolved state
	PARAMETER DTI$K_MAX_SEARCH_CODE = '00000007'X
	STRUCTURE /DTISEARCHDEF/		 !  Search list codes
	    PARAMETER DTI$S_SEARCH_STARTING = 1
	    PARAMETER DTI$V_SEARCH_STARTING = 0	 !  Starting state
	    PARAMETER DTI$S_SEARCH_ACTIVE = 1
	    PARAMETER DTI$V_SEARCH_ACTIVE = 1	 !  Active state
	    PARAMETER DTI$S_SEARCH_1P_COMITTING = 1
	    PARAMETER DTI$V_SEARCH_1P_COMITTING = 2	 !  1P Committing state
	    PARAMETER DTI$S_SEARCH_PREPARING = 1
	    PARAMETER DTI$V_SEARCH_PREPARING = 3	 !  Preparing state
	    PARAMETER DTI$S_SEARCH_PREPARED = 1
	    PARAMETER DTI$V_SEARCH_PREPARED = 4	 !  Prepared state
	    PARAMETER DTI$S_SEARCH_COMMITTING = 1
	    PARAMETER DTI$V_SEARCH_COMMITTING = 5	 !  Committing state
	    PARAMETER DTI$S_SEARCH_COMMITTED = 1
	    PARAMETER DTI$V_SEARCH_COMMITTED = 6	 !  Committed state
	    PARAMETER DTI$S_SEARCH_1P_COMMITTED = 1
	    PARAMETER DTI$V_SEARCH_1P_COMMITTED = 7	 !  1P Committed state
	    PARAMETER DTI$S_SEARCH_ABORTING = 1
	    PARAMETER DTI$V_SEARCH_ABORTING = 8	 !  Aborting state
	    PARAMETER DTI$S_SEARCH_ABORTED = 1
	    PARAMETER DTI$V_SEARCH_ABORTED = 9	 !  Aborted state
 !  Search item list definitions
	BYTE %FILL (2)
	END STRUCTURE	! DTISEARCHDEF
	PARAMETER DTI$M_UPDATE = '00000001'X
	PARAMETER DTI$M_LOCAL_RM = '00000002'X
	PARAMETER DTI$S_TRANSACTION_INFORMATION = '00000054'X  !  length of transaction information record
	STRUCTURE /DTIRECDEF/			 !  Transaction information record definitions
	    UNION
	        MAP
	        INTEGER*2 DTI$W_FLAGS			 !  Modifier flags
	        END MAP
	        MAP
	            PARAMETER DTI$S_UPDATE = 1
	            PARAMETER DTI$V_UPDATE = 0		 !  Delete resource manager from transaction
	            PARAMETER DTI$S_LOCAL_RM = 1
	            PARAMETER DTI$V_LOCAL_RM = 1		 !  Participant type (1 = RM, 0 = node)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    BYTE      DTI$B_STATE			 !  Transaction state
	    BYTE      DTI$B_PART_NAME_LEN		 !  Length of participant name
	    CHARACTER*32 DTI$T_PART_NAME		 !  Participant name
	    CHARACTER*16 DTI$T_PART_LOG_ID		 !  Participant log id
	    CHARACTER*16 DTI$T_TID			 !  Transaction ID
	    INTEGER*4 DTI$O_UTC_COMMIT_TIME(4)	 !  UTC commit time
	END STRUCTURE	! DTIRECDEF
!DEC$ END OPTIONS