IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

RxSplQueryJob()

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