![[About]](r:\html\lsrxabout.gif)
![[Toc]](r:\html\lsrxtoc.gif)
0.9b (c) 1995 Peter Childs
The function returns information about a print queue. A print queue name must be specified.
Syntax
MyRc = RxSplQueryQueue(ComputerName, RxStem, PrQueueName)
Parameters
ComputerName The name of the computer to query. Use '' for a local
computer
PrQueueName The print queue name to do the query against
The returned parameter values are:
MyRc Return code from the function call. It must be 0 otherwise
all other returned values are invalid
'RxStem' A REXX variable which is divided into:
o RxStem.Priority
The printer queue priority
o RxStem.StartTime
The printer queue starttime in minutes after midnight
o RxStem.UntilTime
The printer queue until time in minutes after midnight
o RxStem.Type
The printer queue type value and text. The following values are
returned together with the decimal Type value:
Value returned This is
-------------------- ------------------------------------------
PRQ3_TYPE_RAW Data is always enqueued in the device
specific format.
PRQ3_TYPE_BYPASS Allows the spooler to bypass the queue
processor and send data directly to the
Printer Driver. Setting this bit allows
the spooler to print jobs of type PM_Q_RAW
while they are still being spooled.
PRQ3_TYPE_APPDEFAULT This bit is set for the application
default queue only.
o RxStem.Jobs
The number of jobs in the queue
o RxStem.Status
The printer queue status
Value Meaning
----- -------
0 Ok
1 Print Queue is paused
2 Delete pending
o RxStem.SepFile
The printer queue separator file path and name
o RxStem.PrProc
The printer queue default queue processor
o RxStem.Parms
The printer queue queue-processor parameters
o RxStem.Comment
The printer queue description
o RxStem.Printers
Printer drivers connected to the queue. If more printer drivers are
specified, then they are separated by a comma
o RxStem.DriverName
Default printer driver
Example use
/* Get printer queue information */
if RxFuncQuery('RxSplQueryQueue') <> 0 then do
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs
end
ComputerName = '\\ILIDC'
PrQueueName = 'HPLJ6'
MyRc = RxSplQueryQueue(ComputerName, RxStem, PrQueueName)
if MyRc <> '0' then do
say 'Error from RxSplQueryQueue. RC =' MyRc
exit 9
end
say
say 'Printer Queue name ' PrQueueName
say 'Printer Queue priority ' RxStem.Priority
say 'Printer Queue start time ' RxStem.StartTime
say 'Printer Queue until time ' RxStem.UntilTime
say 'Printer Queue type ' RxStem.Type
say 'Printer Queue separator file' RxStem.SepFile
say 'Default queue Processor ' RxStem.PrProc
say 'Queue processor parameters ' RxStem.Parms
say 'Printer Queue description ' RxStem.Comment
say 'Connected printer drivers ' RxStem.Printers
say 'Default printer driver ' RxStem.DriverName
exit 0
Inf-HTML End Run - Successful