home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / rexx / library2 / defprn / defprn.cmd
OS/2 REXX Batch file  |  1992-08-21  |  569b  |  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.