;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