home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
255.lha
/
RexxArpLib_v2.2
/
rexx
/
dofor.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-06-13
|
352b
|
29 lines
/** dofor.rexx
*
* This function does 'oper' for all 'fn'.
*
**/
parse arg fn oper
oper = strip(oper)
if fn = "" then do
say "Usage: dofor <wildcards> <operation>"
exit
end
call filelist(fn, files, F)
if files.0 = 0 then do
say "No files found"
exit
end
do i = 1 to files.0
if files.i = "" then leave
oper' 'files.i
end
exit