/* FileOp.xdme */

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

Parse Arg HAIL .

tagstr = "rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.xsrc) rtfi_flags=freqf_patgad"
SELECT
    when HAIL = "Saveas" then do
        oktext = "_Save"
        hailstr = "Save File As ..."
        tagstr = tagstr || "|freqf_save"
    end
    when HAIL = "Replace" then do
        oktext = "_Load"
        hailstr = "Replace File With ..."
    end
    otherwise exit
end

options results
address 'XDME.1'
'rxresult $path'
P = result
'rxresult $fname'
N = result

F = '(' || rtfilerequest(P,N,hailstr,oktext,tagstr) || ')'
IF rtresult = 0 THEN EXIT

"chfilename" F
IF HAIL = "Replace" then DO
    rx "REXX:LoadFile"
END
ELSE DO
    rx "REXX:SaveFile"
END