home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rxcomm16.zip
/
samples
/
RxVers.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1999-02-09
|
909b
|
36 lines
/**
* REXX Communication Control Function Library Ver.1.1
* copyright 1998-1999, Naga(Kazuo Adachi)
* mailto:nagaw@ibm.net
* mailto:GDB00421@nifty.ne.jp
*
* $Id$
*
* $Log$
*/
CALL RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
CALL SysLoadFuncs
CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
CALL RxCommLoadFuncs
maxPort = RxCommPort()
IF 1 < maxPort
THEN numPort = maxPort || 'ports'
ELSE numPort = maxPort || 'port'
SAY 'REXX Communication DLL Version' RxCommGetVersion() '(' numPort ')'
DO i = 1 to maxPort
rc = RxCommPort( 'COM' || i )
IF 0 = rc THEN SAY 'COM' || i 'é═ RxComm.dll é⌐éτÄgùpé┼é½é▄é╣é±üB'
END
IF 4 > maxPort THEN
DO i = maxPort+1 to 4
rc = RxCommPort( 'COM' || i )
IF 1 = rc THEN SAY 'COM' || i 'é═ RxComm.dll é⌐éτÄgùpé┼é½é▄é╖üB'
END