IBM OS/2 LAN Server REXX Utility DLL


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


NETPRINTDRIVER Enumerate


The function retrieves a list of printer presentation drivers on a server 
or workstation.   
Syntax 


MyRc = NetEnumerate(NETPRINTDRIVER, 'prtDriverInfo', SrvName)

  
Parameters 
The parameters specified are: 
'prtDriverInfo'   The REXX variable receiving the result. The variable is 
                  divided into: 
   o prtDriverInfo.0 
     The number of printer presentation drivers 
   o prtDriverInfo.i 
     Printer presentation driver name entry i, where the variable i has a 
     value from 1 to prtDriverInfo.0 
SrvName           The server computer name 
  
Note 
The server computer name can be specified as '' for a local computer. 
Example   


/* List printer presentation drivers */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETPRINTDRIVER = 310
SrvName        = ''

myRc = NetEnumerate(NETPRINTDRIVER, 'prtDriverInfo', SrvName)

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

if prtDriverInfo.0 = 0 then do
 say 'No print drivers available'
 call DropLsRxutFuncs
 exit 0
end

say 'Number of printer presentation drivers defined: ' prtDriverInfo.0
say

do i=1 to prtDriverInfo.0
 say prtDriverInfo.i
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

  
Example Output   


Number of printer presentation drivers defined:  2

PSCRIPT.IBM 4019 v52_1 (39 Fonts)
IBMNULL



Inf-HTML End Run - Successful