;THIS IS A SUBROUTINE FOR THE PROGRAMS XRUN, XRECV AND XTRANS FROM BOB SALITA
;XRUN, XTRANS, AND XRECV





	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM
	OBJNAM	,,[SBR]
	PHDR	-1,,PH$REE!PH$REU
	JOBIDX	A6
	MOV	JOBTRM(A6),A6
	ORW	#T$ECS!T$DAT,@A6
	RTN
	END

.