Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!			      D A B
!
! 		User interface to callable Datatrieve-20
!
!		   COPYRIGHT (c) 1984 BY
!	       DIGITAL EQUIPMENT CORPORATION, MAYNARD
!		MASSACHUSETTS.  ALL RIGHTS RESERVED.
!
!	THIS SOFTWARE  IS FURNISHED UNDER A LICENSE AND MAY
!	BE USED  AND  COPIED  ONLY  IN  ACCORDANCE WITH THE
!	TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE
!	ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER
!	COPIES THEREOF  MAY NOT  BE PROVIDED  OR  OTHERWISE
!	MADE  AVAILABLE TO  ANY OTHER  PERSON.  NO TITLE TO
!	AND   OWNERSHIP   OF   THE   SOFTWARE   IS   HEREBY
!	TRANSFERRED.
!	
!	THE  INFORMATION  IN  THIS  SOFTWARE IS  SUBJECT TO
!	CHANGE  WITHOUT  NOTICE AND SHOULD NOT BE CONSTRUED
!	AS A COMMITMENT  BY  DIGITAL EQUIPMENT CORPORATION.
!
!	DIGITAL ASSUMES  NO  RESPONSIBILITY  FOR THE USE OR
!	RELIABILITY OF  ITS  SOFTWARE ON  EQUIPMENT THAT IS
!	NOT SUPPLIED BY DIGITAL.
!
!-----------------------------------------------------------------------

! The DAB and its buffers

OWN
    MESSAGE_BUFFER : BLOCK [CH$ALLOCATION(DAB$K_BUF_LEN)],
    AUX_BUFFER : BLOCK [CH$ALLOCATION(DAB$K_BUF_LEN)],
    VALUE_BUFFER : BLOCK [CH$ALLOCATION(DAB$K_BUF_LEN)],
    DAB : BLOCK [DAB$K_BLK_LEN] FIELD (DAB_FIELDS)
	PRESET (
		[DAB$A_MSG_BUF] = MESSAGE_BUFFER,
		[DAB$W_MSG_BUF_LEN] = DAB$K_BUF_LEN,
		[DAB$A_AUX_BUF] = AUX_BUFFER,
		[DAB$W_AUX_BUF_LEN] = DAB$K_BUF_LEN,
		[DAB$A_VAL_BUF] = VALUE_BUFFER,
		[DAB$W_VAL_BUF_LEN] = DAB$K_BUF_LEN
	       );