home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / RxSend.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-09  |  1KB  |  55 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. comPort = 'COM2'
  19.  
  20. rc = RxCommOption( 'SEND_CTLCH', 'ON' )
  21. rc = RxCommOpen( comPort, 115200, '8N1', 'RTS/CTS XON/XOFF' )
  22. IF rc <> 0 THEN
  23. DO
  24.     SAY 'COMâ|ü[âgé╠âIü[âvâôé╔Ä╕ösé╡é▄é╡é╜!!'
  25.     EXIT
  26. END
  27.  
  28. rc = RxCommWrite( 'ATZ\xd' )
  29. DO FOREVER
  30.     rc = RxCommRead()
  31.     CALL CHAROUT , rc
  32.  
  33.     IF POS( 'OK', rc ) > 0 THEN LEAVE
  34. END
  35.  
  36. rc = RxCommWrite( 'ATZ\x0D' )
  37. DO FOREVER
  38.     rc = RxCommRead()
  39.     CALL CHAROUT , rc
  40.  
  41.     IF POS( 'OK', rc ) > 0 THEN LEAVE
  42. END
  43.  
  44. rc = RxCommWrite( 'ATZ\r' )
  45. DO FOREVER
  46.     rc = RxCommRead()
  47.     CALL CHAROUT , rc
  48.  
  49.     IF POS( 'OK', rc ) > 0 THEN LEAVE
  50. END
  51.  
  52. rc = RxCommClose()
  53.  
  54. EXIT
  55.