%NOLIST
	!+
	!  INCTDMSUB	Template include file for standard TDMS
	!		initialization/activation in a subprogram.
	!
	!    Note: It is assumed that channels and libraries are opened
	!	   and closed in the primary program.
	!-
  %LIST


	! Declare success status for calls

	EXTERNAL LONG CONSTANT                                                &
	   TSS$_NORMAL				! success return status

	! Set up TDMS calls

	EXTERNAL LONG FUNCTION                                                &
	   TSS$CANCEL				! cancels all operations in   &
						! progress on a channel       &
	   	(LONG BY REF),			! channel number              &
						!                             &
						!                             &
	   TSS$READ_MSG_LINE,			! reads reserve message line  &
						!                             &
	   TSS$REQUEST,				! reads and executes request  &
						! parameters defined at call  &
						!                             &
	   TSS$SIGNAL,				! signals previous return stat&
						!                             &
	   TSS$WRITE_MSG_LINE			! writes reserve message line &
	   	(LONG BY REF,			! channel number              &
		 STRING BY DESC)		! output message



	! Declare TDMS common area

	COMMON (TDMS_COMMONS)                                                 &
	   LONG                                                               &
		Channel_no,			! terminal channel no         &
		Library_ID,			! library id no               &
		Ret_status,			! return status from TDMS call&
	   STRING                                                             &
		Operator_ok	     =  1,	! 1 chr response from operator&
		Operator_response    = 20,	! response from the operator  &
		Request_library_name = 60,	! filespec for request library&
		Reserve_line_message = 60	! message to go out           &