IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETAPPSEL Add

The function adds an application to the specified userid application list. 
  

Syntax 

MyRc = NetAdd(NETAPPSEL, DcName, ApplicationName, UserId, AppType)

Parameters 

The parameters required are: 

DcName           The Domain Controller computer name 

ApplicationName  The name of the application 

UserId           The userid 

AppType          Application type. The following application types are 
                 supported: 

                 Application type             Value
                 ----------------             -----
                 Public DOS application       'Public DOS application'
                                              'DOS_PUBLIC'
                 
                 Public OS/2 application      'Public OS/2 application'
                                              'OS2_PUBLIC'
                 
                 Private OS/2 application     'Private OS/2 application'
                                              'OS2_PRIVATE'
                 

                 The default value is 'Public OS/2 application'. 
  

Note 

The domain controller computer name can be specified as '' for a local 
domain controller. 

If the application already is in the list, the application will not be 
added.   

Example   

/* Add a application to userid application list */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETAPPSEL       = 32
DcName          = '\\ILIDC'
ApplicationName = 'BOOKREAD'
UserId          = 'WS2221'
AppType         = 'Public OS/2 application'

myRc = NetAdd(NETAPPSEL, DcName, ApplicationName, UserId, AppType)

if myRc <> '0' then do
 say 'Got error from NetAdd() ' myRc
 call DropLsRxutFuncs
 exit 9
end
else do
 say
 say "Application added successfully to user application list"
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Application added successfully to user application list

Inf-HTML End Run - Successful