home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
netdor2.zip
/
DISK_10
/
IMAGE9.ZIP
/
TOOLKIT
/
SAMPLES
/
COUENV
/
REXXTEST.CMD
next >
Wrap
OS/2 REXX Batch file
|
1993-07-01
|
523b
|
29 lines
/**********************************/
/* REXX test program using COUENV */
/**********************************/
call RxFuncAdd 'RxCouInfo', 'COUENV', 'RxCouInfo'
ver = RxCouInfo('ver')
if ver then
say 'Ver=product'
else
say 'Ver=IUO'
stem.0=11
stem.1='INIFILE'
stem.2='REMOTE'
stem.3='LOCAL'
stem.4='DATA'
stem.5='TEMP'
stem.6='DLL'
stem.7='SYSTEM'
stem.8='CONTROL'
stem.9='IMAGE'
stem.10='EXE'
stem.11='OLDCONFIG'
do i=1 to stem.0
say stem.i'='||RxCouInfo('GET', stem.i)
end /* do */