COMPILE subroutine SRP_EDITOR_TEMP_TEST_SYSPROG(Dummy)

DECLARE FUNCTION Msg, GetNetworkUserName, Get_Status, Show_Windows_Processes, SRP_GetUserName, RTI_GetLDAPInfo, GetUserName, Get_App_Info
DECLARE SUBROUTINE Send_Info, Send_Dyn, Msg, RList, Create_Volume, ErrMsg, Copy_Table, aTTACH_TABLE, FSMSG, Add_Repos_App

EQU CRLF TO \0D0A\

$insert LOGICAL
$INSERT MSG_EQUATES
$INSERT ENVIRON_CONSTANTS

Debug

UserName    = Str(\00\, 1024)
rv  = GetUserName(UserName, Len(UserName))
Convert \00\ to '' in UserName

* UserName    = Str(\00\, 1024)
* rv          = SRP_GetUserName(UserName, Len(UserName))


debug

Return