home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / DEFPRN.ZIP / DEFPRN.CMD
OS/2 REXX Batch file  |  1992-08-10  |  640b  |  16 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.