C+ DTR_CALL_DEF
C Module SYS$LIBRARY:LCLFORDEF(DTR_CALL_DEF) and file SYS$LIBRARY:
C DAB.INC define the VAX-11 Datatrieve Call Interface from FORTRAN.
C-
C
C VAX-11 Datatrieve Call Interface Definitions
C

	LOGICAL*1 DAB$B_BID, DAB$B_BLN, DAB(100)
	INTEGER*2 DAB$W_MSG_BUF_LEN, DAB$W_MSG_LEN,
	1	  DAB$W_AUX_BUF_LEN, DAB$W_AUX_LEN,
	2	  DAB$W_IDI, DAB$W_STATE, DAB$W_REC_LENGTH
	LOGICAL*4 DAB$A_MSG_BUF, DAB$A_AUX_BUF,
	1	  DAB$L_CONDITION, DAB$L_FLAGS, DAB$L_OPTIONS

	COMMON /DAB/ DAB$B_BID, DAB$B_BLN, DAB$L_CONDITION,
	1	     DAB$A_MSG_BUF, DAB$W_MSG_BUF_LEN, DAB$W_MSG_LEN,
	2	     DAB$A_AUX_BUF, DAB$W_AUX_BUF_LEN, DAB$W_AUX_LEN,
	3	     DAB$W_IDI, DAB$W_STATE, DAB$L_FLAGS, DAB$L_OPTIONS,
	4	     DAB$W_REC_LENGTH

	EQUIVALENCE (DAB, DAB$B_BID)

	INTEGER    DTR$K_STL_CMD,
	1	   DTR$K_STL_PRMPT,
	2	   DTR$K_STL_LINE,
	3	   DTR$K_STL_MSG,
	4	   DTR$K_STL_PGET,
	5	   DTR$K_STL_PPUT,
	6	   DTR$K_STL_CONT

	PARAMETER (DTR$K_STL_CMD=1,
	1	   DTR$K_STL_PRMPT=2,
	2	   DTR$K_STL_LINE=3,
	3	   DTR$K_STL_MSG=4,
	4	   DTR$K_STL_PGET=5,
	5	   DTR$K_STL_PPUT=6,
	6	   DTR$K_STL_CONT=7)

	INTEGER    DTR$K_SEMI_COLON,
	1	   DTR$K_UNQUOTED_LIT,
	2	   DTR$K_LOOKING_FOR,
	3	   DTR$K_IMMED_RETURN,
	4	   DTR$K_FORMS_ENABLE
	

	PARAMETER (DTR$K_SEMI_COLON = 1,
	1	   DTR$K_UNQUOTED_LIT = 16,
	2	   DTR$K_LOOKING_FOR = 32,
	3	   DTR$K_IMMED_RETURN = 64,
	4	   DTR$K_FORMS_ENABLE = 128)

	EXTERNAL DTR$_SUCCESS