0.9b (c) 1995 Peter Childs
The function deletes a public or private application definition.
Syntax
MyRc = NetDelete(NETAPP, SrvName, PublicApp) MyRc = NetDelete(NETAPP, SrvName, PrivateApp, UserId)
Parameters
The parameters specified are:
SrvName The server computer name
PublicApp Use the NetDelete() function with 3 arguments to delete a public application
PrivateApp This is the name of a private application. It must be used together with a userid
UserId The userid
Note
The server computer name can be specified as '' for a local server.
Example
/* Delete a public application definition */ call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs' call LoadLsRxutFuncs NETAPP = 30 SrvName = '\\ILIDC' PublicApp = 'MSAPP' myRc = NetDelete(NETAPP, SrvName, PublicApp) if myRc <> '0' then do say 'Got error from NetDelete() ' myRc call DropLsRxutFuncs exit 9 end else do say 'Public application deleted successfully' say end call DropLsRxutFuncs call RxFuncDrop 'LoadLsRxutFuncs' exit 0
Example Output
Public application deleted successfully
Inf-HTML End Run - Successful