10	Function integer TPU$CALLUSER ( some_integer% , &
                                        input_string$ , &
                                        return_string$ )
 !++
 ! FACILITY:	 TPU$calluser routine 
 !
 ! ABSTRACT:	 Use the system system to set and show logical names
 !--

20      external integer function lib$sys_trnlog 
	external long    constant ss$_notran

	declare  integer code
        declare  integer return_code

	Return_code = lib$sys_trnlog ( input_string$ ,, return_string$ ) 

	if Return_code = ss$_notran
	then
	    return_string$ = ""
	end if

9999	all_done: ! return_string$ is defined 
        TPU$CALLUSER = Return_code
                 
	end function