0.9b (c) 1995 Peter Childs
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