IBM OS/2 LAN Server REXX Utility DLL

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

NETSERVERMODALS Set Info



The function sets server related modals information in the user accounts 
subsystem (UAS) database. The NETLOGON service must be stopped to 
successfully set the parameter specified.   



Syntax 



MyRc = NetSetInfo(NETSERVERMODALS, 'PARAMETER', parmValue, SrvName)




  



Parameters 



The parameters required are: 



'PARAMETER'       The parameter name of the server modals parameter value 
                  to be modified. The parameter values that causes a 
                  change of the server modals definitions are specified 
                  below. Only one parameter value can be changed at a 
                  time. If the parameter is invalid or the parameter value 
                  is unknown or in error, no changes will occur. 



   o role 



     The server role. The following values are required to be specified: 


     Value  Meaning
     -----  -------
      0     Standalone server
      1     Member server in the domain
      2     Backup server in the domain
      3     Primary server in the domain
     
     


     



   o primary 



     The computer name of the primary domain controller to which the 
     server belongs 



parmValue         The value of the parameter that is being modified 



SrvName           The server computer name 
  



Note 



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



Example   



/* Set server modals */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETSERVERMODALS = 370
SrvName  = '\\DOMAIN_CONTRLR'

parmValue = 3     /* Primary */

myRc = NetSetInfo(NETSERVERMODALS, 'role', parmValue, SrvName)

if myRc <> '0' then do
 say 'Got error from NetSetInfo() ' myRc
 exitRc = 9
end
else do
 say 'Done'
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit exitRc




  



Example Output   



Done









Inf-HTML End Run - Successful