IBM OS/2 LAN Server REXX Utility DLL


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


NETCHARDEVQ Get Info


The function retrieves information about a particular serial device queue 
on a server.   
Syntax 


MyRc = NetGetInfo(NETCHARDEVQ, 'charQInfo', SrvName, QueueName, UserId)

  
Parameters 
The parameters specified are: 
'charQInfo'   The REXX variable receiving the result. The variable is 
              divided into: 
   o charQInfo.dev 
     The name of the serial device queue for which information is returned 
     
   o charQInfo.priority 
     The queue priority 
   o charQInfo.devs 
     The names of the local devices in the pool 
   o charQInfo.numusers 
     The number of users waiting in the device queue 
   o charQInfo.numahead 
     The number of users ahead of the UserId specified in the call the 
     NetGetInfo(CHARDEVQ) 
SrvName       The server computer name 
QueueName     The name of the queue. This name is identical to the netname 
              
UserId        The name of the userid 
  
Note 
The server computer name can be specified as '' for a local server.   
Example   


/* Get queue information for a serial device */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETCHARDEVQ = 140
SrvName     = '\\ILIDC'
QueueName   = 'SRVCOM'
UserId      = 'LINDBERG'

myRc = NetGetInfo(NETCHARDEVQ, 'charQInfo', SrvName, QueueName, UserId)

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

say
say 'Device name:           ' charQInfo.dev
say 'Queue Priority:        ' charQInfo.priority
say 'Queue server devices:  ' charQInfo.devs
say 'Numbers users waiting: ' charQInfo.numusers
say 'Number users ahead of ' UserId ':' charQInfo.numahead

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

  
Example Output   


Device name:            SRVCOM
Queue Priority:         3
Queue server devices:   COM1
Numbers users waiting:  0
Number users ahead of  LINDBERG : Userid has no requests in the queue



Inf-HTML End Run - Successful