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 >
OS/2 REXX Batch file  |  1993-07-01  |  523b  |  29 lines
  1. /**********************************/
  2. /* REXX test program using COUENV */
  3. /**********************************/
  4.  
  5. call RxFuncAdd 'RxCouInfo', 'COUENV', 'RxCouInfo'
  6.  
  7. ver = RxCouInfo('ver')
  8. if ver then
  9.   say 'Ver=product'
  10. else
  11.   say 'Ver=IUO'
  12.  
  13. stem.0=11
  14. stem.1='INIFILE'
  15. stem.2='REMOTE'
  16. stem.3='LOCAL'
  17. stem.4='DATA'
  18. stem.5='TEMP'
  19. stem.6='DLL'
  20. stem.7='SYSTEM'
  21. stem.8='CONTROL'
  22. stem.9='IMAGE'
  23. stem.10='EXE'
  24. stem.11='OLDCONFIG'
  25.  
  26. do i=1 to stem.0
  27.   say stem.i'='||RxCouInfo('GET', stem.i)
  28. end /* do */
  29.