!
! TRANSLATE LOGICAL NAME RECURSIVELY
!
!	LOGNAM	- ADDRESS OF LOGICAL NAME STRING DESCRIPTOR
!	RSLLEN	- ADDRESS OF WORD TO RECEIVE LENGTH OF RESULTANT
!		  NAME STRING
!	RSLBUF	- ADDRESS OF RESULT STRING BUFFER DESCRIPTOR
!	TABLE	- ADDRESS OF BYTE TO STORE TRANSLATION TABLE NUMBER
!	ACMODE	- ADDRESS OF BYTE TO STORE ASSIGNMENT ACCESS MODE
!	DSBMSK  - TABLE SEARCH DISABLE MASK
!




KEYWORDMACRO $TRNLOGR(LOGNAM=0,RSLLEN=0,RSLBUF=0,TABLE=0,ACMODE=0,DSBMSK=0)=
    (
    EXTERNAL ROUTINE SYS_TRNLOG;
    SYS_TRNLOG(LOGNAM,RSLLEN,RSLBUF,TABLE,ACMODE,DSBMSK)
    ) %;