IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETALIAS Set Info

The function modifies a certain alias definition parameter value.   

Syntax 

MyRc = NetSetInfo(NETALIAS, 'PARAMETER', parmValue, SrvName, AliasName)

Parameters 

The parameters required are: 

'PARAMETER'       The parameter name of the alias value to be modified. 
                  The parameter values that causes a change of the alias 
                  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 remark 

     The alias comment or remark 

   o server 

     The location where the resource described by this alias resides. This 
     parameter is only valid from the version 4.0 of the LSRXUT.DLL 

   o mode 

     When the alias is shared. Accepted values are: 

     When shared                   Shared mode name
     -----------                   ----------------
     At server startup             'At server startup'
                                   'STARTUP'
     
     Shared by adminstrator        'By administrator'
                                   'BYADMIN'
     
     Shared by request to use      'At Requester use'
                                   'DYNAMIC'
     
     

   o maxuses 

     The maximum number of users who can have redirection to the resource 
     identified by this alias 

   o path 

     The path for files alias only 

   o priority 

     The serial device priority 

   o device_pool 

     The serial device pool 

parmValue         The value of the parameter that is being modified 

SrvName           The server computer name. In this case the computer name 
                  of the domain controller 

AliasName         The name of the alias 
  

Note 

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

Example   

/* Modify existing Alias remark, maxuses and share mode */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETALIAS  = 20
SrvName   = '\\ILIDC'
AliasName = 'BOOKS'
aliasInfo.remark  = 'Modified Alias for more uses'
aliasInfo.maxuses = 280
aliasInfo.mode    = 'At Requester use'

myRc = NetSetInfo(NETALIAS, 'remark', aliasInfo.remark, SrvName, AliasName)

if myRc <> '0' then do
 say 'Got error from NetSetInfo() ' myRc
 call DropLsRxutFuncs
 exit 9
end

myRc = NetSetInfo(NETALIAS, 'maxuses', aliasInfo.maxuses, SrvName, AliasName)

if myRc <> '0' then do
 say 'Got error from NetSetInfo() ' myRc
 call DropLsRxutFuncs
 exit 9
end

myRc = NetSetInfo(NETALIAS, 'mode', aliasInfo.mode, SrvName, AliasName)

if myRc <> '0' then do
 say 'Got error from NetSetInfo() ' myRc
 call DropLsRxutFuncs
 exit 9
end
else do
 say
 say "Alias definition modified successfully"
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Alias definition modified successfully

Inf-HTML End Run - Successful