IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETPRINTQUEUE Get Info

The function returns information about a print queue.   

Syntax 

MyRc = NetGetInfo(NETPRINTQUEUE, 'prtQInfo', SrvName, QueueName)

Parameters 

The parameters specified are 

'prtQInfo'    The REXX variable receiving the result. The variable is 
              divided into: 

   o prtQInfo.Priority 

     The queue priority 

   o prtQInfo.StartTime 

     The queue start time 

   o prtQInfo.UntilTime 

     The queue until time 

   o prtQInfo.Type 

     The queue type. A hexadecimal value, which is not interpreted 

   o prtQInfo.SepFile 

     The queue separator file if any 

   o prtQInfo.PrProc 

     The queue default queue processor 

   o prtQInfo.Parms 

     The queue parameters 

   o prtQInfo.Comment 

     The queue comment or description 

   o prtQInfo.Status 

     The queue status. A hexadecimal value, which is not interpreted 

   o prtQInfo.Jobs 

     The number of jobs in the queue 

   o prtQInfo.Printers 

     The print device connected to the queue 

   o prtQInfo.DriverName 

     The default print driver 

   o prtQInfo.RemoteComputerName 

     The remote computer name 

   o prtQInfo.RemoteQueueName 

     The remote queue name 

   o prtQInfo.Version 

     The printer driver version 

   o prtQInfo.DeviceName 

     The device name 

SrvName       The server computer name 

QueueName     The Queue name 
  

Note 

The server computer name can be specified as '' for a local server or 
computer.   

Example   

/* Get Print queue information */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETPRINTQUEUE = 120
SrvName       = '\\FSC30DCR'
QueueName     = 'IBM4019L'

myRc = NetGetInfo(NETPRINTQUEUE, 'prtQInfo', SrvName, QueueName)

if myRc <> '0' then do
 say 'Got error from NetGetInfo() ' myRc
 call DropLsRxutFuncs
 exit 9
end

say
say 'Queue Priority:            ' prtQInfo.Priority
say 'Queue start time:          ' prtQInfo.StartTime
say 'Queue until time:          ' prtQInfo.UntilTime
say 'Queue type:                ' prtQInfo.Type
say 'Separator File:            ' prtQInfo.SepFile
say 'Default Queue processor:   ' prtQInfo.PrProc
say 'Queue parameters:          ' prtQInfo.Parms
say 'Queue description:         ' prtQInfo.Comment
say 'Queue status:              ' prtQInfo.Status
say 'Number of jobs in queue:   ' prtQInfo.Jobs
say 'Printer connected:         ' prtQInfo.Printers
say 'Default printer driver:    ' prtQInfo.DriverName
say 'Computer Name at location: ' prtQInfo.RemoteComputerName
say 'Queue name at location:    ' prtQInfo.RemoteQueueName
say 'Printer Driver version:    ' prtQInfo.Version
say 'Device Name:               ' prtQInfo.DeviceName

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Queue Priority:             5
Queue start time:           No Restriction
Queue until time:           No Restriction
Queue type:                 0002
Separator File:
Default Queue processor:    PMPRINT
Queue parameters:
Queue description:          IBM 4019 LaserPrinter
Queue status:               0001
Number of jobs in queue:    0
Printer connected:          IBM40191
Default printer driver:     IBM4019.IBM 4019 LaserPrinter
Computer Name at location:
Queue name at location:
Printer Driver version:     777
Device Name:                IBM 4019 LaserPrinter

Inf-HTML End Run - Successful