Get UniVerse Server Name

snippet-computername

***
*** Get the computer name (Windows) from the data returned by the ENV[IRONMENT] command.
*** Local function technique requires UniVerse version 11.2 or greater 
***

DEFFUN getComputerName

RESULT = getComputerName()
CRT "COMPUTER NAME IS ":RESULT
END

FUNCTION getComputerName
EXECUTE "ENV" CAPTURING ENVIRONMENT.DATA
ENVIRONMENT.DATA.ARRAY = CHANGE(ENVIRONMENT.DATA, "=", @VM)
FINDSTR "COMPUTERNAME" IN ENVIRONMENT.DATA.ARRAY SETTING F, V THEN
  COMPUTERNAME.VALUE = V+1
  RESULT = ENVIRONMENT.DATA.ARRAY<F,COMPUTERNAME.VALUE>
END ELSE
  RESULT = "ERROR"
END
RETURN (RESULT)

END