IBM OS/2 LAN Server REXX Utility DLL


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


RxSplSetJob()


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