home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / RxSgnl.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-09  |  2KB  |  79 lines
  1. /**
  2.  * REXX Communication Control Function Library  Ver.1.1
  3.  *                  copyright 1998, 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. /**
  19.  * Setup Communication Parameter
  20.  */
  21. comPort = 'COM2'
  22.  
  23. /**
  24.  * COM Port Device Open
  25.  */
  26. rc = RxCommOption( 'SEND_CTLCH', 'ON' )
  27. rc = RxCommOpen( comPort, 115200, '8N1' )
  28. IF rc <> 0 THEN
  29. DO
  30.     SAY 'Can Not Open COM Port!!'
  31.     EXIT
  32. END
  33.  
  34. SAY 'Let''s Start Communication!!'
  35.  
  36. SAY 'Modem Signal(Start) =' RxCommSignal()
  37.  
  38. /*--------------------------------------------------------*/
  39. /**
  40.  * Write COM Device Test.
  41.  */
  42. rc = RxCommWrite( 'ATZ\r' )
  43. DO FOREVER
  44.     rc = RxCommRead()
  45.     IF rc <> '' THEN
  46.     DO
  47.         CALL CHAROUT , rc
  48.  
  49.         IF POS( 'OK', rc ) > 0 THEN LEAVE
  50.     END
  51. END
  52.  
  53. /*--------------------------------------------------------*/
  54. /**
  55.  * Setup Modem Signal Test
  56.  */
  57. lineDTR = ''
  58. lineRTS = 'OFF'
  59.  
  60. SAY 'Modem Signal(Modify) =' RxCommSignal( lineDTR, lineRTS )
  61.  
  62. /**
  63.  * Write COM Device Test.
  64.  */
  65. rc = RxCommWrite( 'ATZ\r' )
  66. DO FOREVER
  67.     rc = RxCommRead( 100 )
  68.     IF rc =  '' THEN LEAVE
  69.     IF rc <> '' THEN
  70.     DO
  71.         CALL CHAROUT , rc
  72.  
  73.         IF POS( 'OK', rc ) > 0 THEN LEAVE
  74.     END
  75. END
  76.  
  77. rc = RxCommClose()
  78.  
  79.