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