26 lines
643 B
Plaintext
26 lines
643 B
Plaintext
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
|
|
|