IBM OS/2 LAN Server REXX Utility DLL


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


NETAPP Delete


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