IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETALIAS Get Info

The function retrieves information about the specified alias.   

Syntax 

MyRc = NetGetInfo(NETALIAS, 'AliasInfo', SrvName, Alias)

Parameters 

The parameters specified are: 

'AliasInfo'  The REXX variable receiving the result. The variable is 
             divided into: 

   o AliasInfo.name 

     The alias name 

   o AliasInfo.remark 

     The alias remark 

   o AliasInfo.server 

     The name of the server where the resource described by this alias 
     resides. The name is returned without the leading '\\' characters 

   o AliasInfo.netname 

     The alias name for files aliases, and the queue name for printer and 
     serial device aliases 

   o AliasInfo.location 

     The alias location 

   o AliasInfo.mode 

     When the alias is shared 

   o AliasInfo.maxuses 

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

   o AliasInfo.type 

     The alias type 

   o AliasInfo.queue 

     The queue name for serial or printer alias only 

   o AliasInfo.path 

     The path for files alias only 

   o AliasInfo.priority 

     The serial device priority 

   o AliasInfo.device_pool 

     The serial device pool 

SrvName      The server computer name 

Alias        The alias name 
  

Note 

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

Example   

/* Get alias information */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETALIAS = 20
SrvName  = '\\FSC30DCR'
Alias    = 'FORALL'

MyRc = NetGetInfo(NETALIAS, 'AliasInfo', SrvName, Alias)

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

say
say 'Alias Name:        ' aliasInfo.name
say 'Alias Remark:      ' aliasInfo.remark
say 'Alias Server:      ' aliasInfo.server
say 'Alias NetName:     ' aliasInfo.netname
say 'Alias Location:    ' aliasInfo.location
say 'Alias Mode:        ' aliasInfo.mode
say 'Alias Max uses:    ' aliasInfo.maxuses
say 'Alias Type:        ' aliasInfo.type
say 'Alias Queue:       ' aliasInfo.queue
say 'Alias path:        ' aliasInfo.path
say 'Alias priority:    ' aliasInfo.priority
say 'Alias device pool: ' aliasInfo.device_pool

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Alias Name:         FORALL
Alias Remark:       For all users
Alias Server:       FSC30DCR
Alias NetName:      FORALL
Alias Location:     Within Domain
Alias Mode:         At Requester use
Alias Max uses:     45
Alias Type:         Files
Alias Queue:        Unknown
Alias path:         D:\APPS\BOOKS
Alias priority:     Unknown
Alias device pool:  Unknown

Inf-HTML End Run - Successful