IBM OS/2 LAN Server REXX Utility DLL


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


RxSplEnumDriver()


The function enumerates the printer presentation drivers. 
Syntax 


MyRc = RxSplEnumDriver(ComputerName, RxStem)


Parameters 
ComputerName   The name of the computer to query. Use '' for a local 
               computer 

The returned parameter values are: 
MyRc           Return code from the function call. It must be 0 otherwise 
               all other returned values are invalid 
'RxStem'       A REXX variable which is divided into: 
   o RxStem.count 
     The number of printer presentation drivers available. If 0, the 
     following variables are invalid 
   o RxStem.n.DrivName 
     The printer presentation driver name for entry n. (n = 1 to 
     RxStem.count) 


Example use 

/* Enumerate printer presentation driver names */
if RxFuncQuery('RxSplEnumDriver') <> 0 then do
 call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
 call LoadLsRxutFuncs
end

ComputerName = '\\ILIDC'

MyRc = RxSplEnumDriver(ComputerName, RxStem)

if MyRc <> '0' then do
 say 'Error from RxSplEnumDriver. RC =' MyRc
 exit 9
end

say 'Number of Printer Presentation Drivers =' RxStem.count

do i=1 to RxStem.count
 say
 say 'Printer presentation driver name' RxStem.i.DrivName
end

exit 0


Inf-HTML End Run - Successful