home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / pwicq028.zip / versions.cmd < prev   
OS/2 REXX Batch file  |  2000-02-08  |  677b  |  38 lines
  1. /* */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. '@echo off'
  7.  
  8.   rc = SysFileTree('pw*.exe','file.','F')
  9.   if(rc = 0)
  10.      then ok = executa(file)
  11.  
  12.   rc = SysFileTree('*.dll','file.','F')
  13.   if(rc = 0)
  14.      then ok = executa(file)
  15.  
  16. exit
  17.  
  18. executa:
  19.  
  20.    do f = 1 to file.0
  21.       say '----------------------------------------------------------------------'
  22.       file.f = word(file.f,5)
  23.       say file.f
  24.       say 
  25.       'bldlevel 'file.f' | rxqueue'
  26.       pos = 0
  27.       do while queued() > 0
  28.          pos = pos+1
  29.          l = linein('queue:')
  30.      if(pos > 3)
  31.             then say l
  32.  
  33.       end
  34.    end
  35.  
  36. return 0
  37.  
  38.