home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlepsom.zip / find_ini.cmd < prev    next >
OS/2 REXX Batch file  |  1995-09-18  |  194b  |  11 lines

  1. /* rexx */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'rexxutil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. rc=SysFileTree('leprxmm.ini', 'fl', 'S','***+*')
  7. say 'fl.0='fl.0
  8. do i= 1 to fl.0
  9.  say fl.i
  10. end
  11.