![[About]](r:\html\lsrxabout.gif)
![[Toc]](r:\html\lsrxtoc.gif)
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