SUBROUTINE	TINUM(IPAR,IERR)
C
C	MODULE NAME	TINUM
C
C	ENTRY POINTS	TASKNM,USERID
C
C	AUTHOR		T.KEMPSELL
C
C	DATE		7-OCT-76
C
C	MODULE FUNCTION
C
C	TINUM	GET TASK TI (PUD ADDRESS)
C	TASKNM	GET TASK NAME (RAD50 2 WORDS)
C	USERID	GET UIC (1 WORD BYTE 0 GROUP BYTE 1 PROGRAMMER)
C
C	CALLING SEQUENCE
C
C	CALL	TINUM(IPAR,IERR)
C		IPAR=	WILL RECEIVE TI
C		IERR=	ERROR INDICATOR GT 0 OK
C			STANDARD RSX 11D ERROR CODES
C
C	CALL	TASKNM(IPAR,IERR)
C		IPAR=	2 WORDS TO PUT TASK NAME (RAD50)
C		IERR=	ERROR INDICATOR
C
C	CALL	USERID(IPAR,IERR)
C		IPAR=	1 WORD TO PUT USER ID
C		IERR=	ERROR INDICATOR
C
C
	DIMENSION	IDATA(18),IBUFD(18)
	DIMENSION	IPAR(2)
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C	FIRST ENTRY POINT
C
	IFUN=1
	GO TO 5
	ENTRY	USERID(IPAR,IERR)
C
C	SECOND ENTRY POINT
C
	IFUN=2
	GO TO 5
	ENTRY	TASKNM(IPAR,IERR)
C
C	THIRD ENTRY POINT
C
	IFUN=3
C
C	GET TASK PARAMETERS
C
5	CALL	GETTSK(IDATA,IERR)
	IF(IERR.LT.0) GO TO 18
C
C	DISPATCH TO FUNCTION
C
	GO TO (10,20,30)IFUN
C
C	GET TI BY DOING DUMMY SEND
C
10	CALL	VSEND(IDATA(1),IBUFD,,,,,IERR)
	IF(IERR.LT.0) GO TO 18
C
C	RECEIVE TO GET TI
C
	CALL	VRECEV(,IBUFD(1),,ITI,,IERR)
	IF(IERR.LT.0) GO TO 18
C
C	SET UP RETURN PARAMETERS
C
	IPAR(1)=ITI
15	IERR=1
18	RETURN
C
C	GET UIC BYTE 0 GROUP BYTE 1 PROGRAMMER
C
20	IPAR(1)=IDATA(8)
	GO TO 15
C
C	GET TASK NAME
C
30	IPAR(1)=IDATA(1)
	IPAR(2)=IDATA(2)
	GO TO 15
	END