/* ReqFind.xdme */

if ~show("L","rexxreqtools.library") then
    if ~addlib("rexxreqtools.library", 0, -30) then exit

if ~show("L","rexxarplib.library") then
    if ~addlib("rexxarplib.library",0,-30,0) then exit

F = rtgetstring(GetEnv('F'),"Enter Find String","XDMD Find Requester","_Next|_Prev|_Set|_Cancel")
F = '(' || F || ')'
if rtresult = 0 then exit
xcom = 'setenv F' F 'findstr' F
xcom
if rtresult = 1 then do
    next
end
else if rtresult = 2 then do
    prev
end