0.9b (c) 1995 Peter Childs
The function modifies a parameter value of a print job.
Syntax
MyRc = RxSplSetJob('PARAMETER', parmValue, SrvName, QueueName, JobId)
Parameters
The parameters required are:
'PARAMETER' The parameter name of the print job value to be modified. Only one parameter value can be changed at a time. If the parameter is invalid or the parameter value is unknown or in error no changes will occur.
o NotifyName
Messaging alias for print alert. This value is either a computer name or a message name
o Comment
A comment string for information about the print job. The maximum length of the string is 48 characters
o Document
The document name of the print job (set by the application that submitted the print job). The maximum length of the string is 260 characters
o Position
Must be given the appropriate value, as follows:
Value Change performed ----- ---------------- 0 No change 1 Move to first place >1 Move to this position, or if the specified value is greater than the number of jobs in the queue, move to the end of the queue.
o Priority
The job-priority range is 1 through 99, with 99 the highest job priority. The job priority determines the order of jobs in the queue. If multiple queues print to the same printer, the job on the front of each queue is examined. The job with the highest priority is printed first. If there is more than one job with the highest priority, the oldest job with this highest priority is printed first.
parmValue The value of the parameter that is being modified
SrvName The server name on which the printer queue and print job resides
QueueName The name of the printer queue
JobId The numeric job identification number
Note
The server name can be specified as '' for a local server.
Example
/* Modify a number of print job values */ if RxFuncQuery('RxSplSetJob') <> 0 then do call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs' call LoadLsRxutFuncs end /* Set notify name */ parmValue = '\\PRTMON' SrvName = '\\ILIDC' QueueName = 'IBM4019L' JobId = 6 myRc = RxSplSetJob('NotifyName', parmValue, SrvName, QueueName, JobId) if myRc <> '0' then do say 'Got error from RxSplSetJob() ' myRc exit 9 end /* Set comment */ parmValue = 'This was a changed by REXX' myRc = RxSplSetJob('Comment', parmValue, SrvName, QueueName, JobId) if myRc <> '0' then do say 'Got error from RxSplSetJob() ' myRc exit 9 end /* Set document name */ parmValue = 'TheDoc' myRc = RxSplSetJob('Document', parmValue, SrvName, QueueName, JobId) if myRc <> '0' then do say 'Got error from RxSplSetJob() ' myRc exit 9 end /* Set position */ parmValue = 1 myRc = RxSplSetJob('Position', parmValue, SrvName, QueueName, JobId) if myRc <> '0' then do say 'Got error from RxSplSetJob() ' myRc exit 9 end /* Set priority */ parmValue = 51 myRc = RxSplSetJob('Priority', parmValue, SrvName, QueueName, JobId) if myRc <> '0' then do say 'Got error from RxSplSetJob() ' myRc exit 9 end else do say say "Modified print job values successfully" end exit 0
Inf-HTML End Run - Successful