home *** CD-ROM | disk | FTP | other *** search
/ Arawak OS/2 Shareware / PAKLED.ISO / program / rexx / defprn.cmd < prev    next >
Encoding:
Text File  |  1993-10-29  |  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.