![[About]](r:\html\lsrxabout.gif)
![[Toc]](r:\html\lsrxtoc.gif)
0.9b (c) 1995 Peter Childs
The function returns information about a print job. This function is identical to NetGetInfo(NETPRINTJOB).
Syntax
MyRc = RxSplQueryJob('prtJobInfo', SrvName, QueueName, PrtJobId)
Parameters
The parameters specified are
'prtJobInfo' The REXX variable receiving the result. The variable is
divided into:
o prtJobInfo.JobId
The print job id
o prtJobInfo.Priority
The print job priority
o prtJobInfo.UserName
The userid of the job submitting the job
o prtJobInfo.Position
The job position in the print queue
o prtJobInfo.Status
The status of the print job
o prtJobInfo.Submitted
The time when the job was submitted
o prtJobInfo.Size
The print job size
o prtJobInfo.Comment
The print job comment
o prtJobInfo.Document
The document name
o prtJobInfo.NotifyName
Messaging alias for print alert
o prtJobInfo.DataType
The data type of the submitted file
o prtJobInfo.Parms
The parameters related to the print job
o prtJobInfo.StatusComment
The status comment
o prtJobInfo.Queue
The queue name
o prtJobInfo.QProcName
The queue processor name
o prtJobInfo.QProcParms
The queue processor parameters
o prtJobInfo.PrinterName
The printer name
o prtJobInfo.Version
The printer driver version
o prtJobInfo.DeviceName
The device name
SrvName The server name
QueueName The Queue name
PrtJobId The Printer Job Id
Note
The server name can be specified as '' for a local server or computer.
Example
/* Get Print job information */
if RxFuncQuery('RxSplQueryJob') <> 0 then do
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs
end
SrvName = '\\ILIDC'
QueueName = 'IBM4019L'
PrtJobId = 5
myRc = RxSplQueryJob('prtJobInfo', SrvName, QueueName, PrtJobId)
if myRc <> '0' then do
say 'Got error from RxSplQueryJob() ' myRc
exit 9
end
if prtJobInfo.1 = '-none-' then do
say prtJobInfo.1
exit 0
end
say
say 'Job id: ' prtJobInfo.JobId
say 'Job priority: ' prtJobInfo.Priority
say 'Userid who submitted job: ' prtJobInfo.UserName
say 'Job position in Queue: ' prtJobInfo.Position
say 'Job status: ' prtJobInfo.Status
say 'Submitted at: ' prtJobInfo.Submitted
say 'Job size: ' prtJobInfo.Size
say 'Job comment: ' prtJobInfo.Comment
say 'Document name: ' prtJobInfo.Document
say 'Notify: ' prtJobInfo.NotifyName
say 'Data type: ' prtJobInfo.DataType
say 'Job parameters: ' prtJobInfo.Parms
say 'Job status comment: ' prtJobInfo.StatusComment
say 'Queue name: ' prtJobInfo.Queue
say 'Queue processor: ' prtJobInfo.QProcName
say 'Queue processor parameters: ' prtJobInfo.QProcParms
say 'The printer name: ' prtJobInfo.PrinterName
say 'Printer Driver version: ' prtJobInfo.Version
say 'Device Name: ' prtJobInfo.DeviceName
exit 0
Inf-HTML End Run - Successful