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