home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / rxcDial.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-09  |  979b  |  38 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. ARG dialCmd, dialNum
  13.  
  14. CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
  15. CALL RxCommLoadFuncs
  16.  
  17. /*--------------------------------------------------------*/
  18. /**
  19.  * Dial-up to BBS(Server)
  20.  */
  21. chkDCD = 1
  22. IF POS( 'DCD', RxCommSignal() ) > 0 THEN chkDCD = 0
  23. rc = RxCommWrite( dialCmd || dialNum || '0D'x )
  24. DO FOREVER
  25.     rc = RxCommRead()
  26.     CALL CHAROUT , rc
  27.     IF POS( 'CONNECT'   , rc ) = 1 THEN RETURN 0
  28.     IF POS( 'BUSY'      , rc ) = 1 |,
  29.        POS( 'NO CARRIER', rc ) = 1 |,
  30.        POS( 'NO DIAL'   , rc ) = 1 |,
  31.        POS( 'NO ANSWER' , rc ) = 1 |,
  32.        POS( 'ERROR'     , rc ) = 1 THEN RETURN 1
  33.  
  34.     IF chkDCD & POS( 'DCD', RxCommSignal() ) > 0 THEN RETURN 0
  35. END
  36.  
  37. RETURN -1
  38.