home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxio46.zip / TEST.REX < prev   
OS/2 REXX Batch file  |  1998-11-16  |  244b  |  12 lines
  1. /* Sample rexx script 
  2. To run type
  3. PMREXX TEST.REX */
  4. f=RxFuncAdd('rexxioinit','REXXIO','rexxioinit')
  5.    f=rexxioinit()
  6. say "Press enter to get a directory list"
  7. pull a
  8.    f=dirstem("C:\","LIST")
  9. do i=1 to LIST.0
  10. say LIST.NAME.i
  11. end
  12.