home *** CD-ROM | disk | FTP | other *** search
/ Hobbes OS/2 1994 August / HOBBES_ARCH.ISO / all / program / rexx / defprn.cmd < prev    next >
Encoding:
Text File  |  1992-08-23  |  569 b   |  17 lines
  1. /* Sample code to query the default printer port */
  2. /* Lee S. Fields                                 */
  3. /*                                               */
  4. /* No guarantees, but it works for me.           */
  5.  
  6. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs  
  7. call sysloadfuncs                                    
  8.  
  9. defprn = SysIni('BOTH', 'PM_SPOOLER', 'PRINTER')
  10. defprn = strip(defprn,,'00'x)
  11. defprn = strip(defprn,,';')
  12. defport = SysIni('BOTH', 'PM_SPOOLER_PRINTER', defprn)
  13. defport = word(translate(defport, ' ', ';'), 1)
  14.  
  15. say 'Default printer port is:' defport
  16.  
  17.