home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
os2clu02.zip
/
BIN
/
Find.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-08-31
|
814b
|
27 lines
/*
* ************************************************************************
* OS/2 Command-Line Utilities
* (c) Copyright 1991-1999 Jonathan de Boyne Pollard. All Rights Reserved.
* ************************************************************************
*/
/* "@(#)FIND.CMD version 1.01" */
'@echo off'
call RxFuncAdd 'SysGetMessage','RexxUtil','SysGetMessage'
usage = "Usage: FIND [/?] [/A[[+|-]drash]] [/SEBICQUV[+|-]] [/O[num[,num]]] Pattern [Filespecs ...]"
copyr = "Copyright (c) 1999 Jonathan de Boyne Pollard. All Rights Reserved."
parse arg line
select
when line == '/?' then
say SysGetMessage(52, "CLUH.MSG", copyr, usage)
when line \== '' then
address 'CMD' 'grep /r '||line
otherwise
say SysGetMessage(4, "CLU.MSG", usage)
end