home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / RxVers.cmd < prev   
OS/2 REXX Batch file  |  1999-02-09  |  909b  |  36 lines
  1. /**
  2.  * REXX Communication Control Function Library  Ver.1.1
  3.  *                  copyright 1998-1999, Naga(Kazuo Adachi)
  4.  *                          mailto:nagaw@ibm.net
  5.  *                          mailto:GDB00421@nifty.ne.jp
  6.  *
  7.  * $Id$
  8.  *
  9.  * $Log$
  10.  */
  11.  
  12. CALL RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  13. CALL SysLoadFuncs
  14.  
  15. CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
  16. CALL RxCommLoadFuncs
  17.  
  18. maxPort = RxCommPort()
  19. IF 1 < maxPort
  20.   THEN numPort = maxPort || 'ports'
  21.   ELSE numPort = maxPort || 'port'
  22.  
  23. SAY 'REXX Communication DLL  Version' RxCommGetVersion() '(' numPort ')'
  24.  
  25. DO i = 1 to maxPort
  26.     rc = RxCommPort( 'COM' || i )
  27.     IF 0 = rc THEN SAY 'COM' || i 'é═ RxComm.dll é⌐éτÄgùpé┼é½é▄é╣é±üB'
  28. END
  29.  
  30. IF 4 > maxPort THEN
  31. DO i = maxPort+1 to 4
  32.     rc = RxCommPort( 'COM' || i )
  33.     IF 1 = rc THEN SAY 'COM' || i 'é═ RxComm.dll é⌐éτÄgùpé┼é½é▄é╖üB'
  34. END
  35.  
  36.