/* FILE REQUESTER */

OPTIONS RESULTS
PARSE ARG modulname funcname

CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
dirname = rtfilerequest(,,"Wähle ein Directory ...", "Ok", "rtfi_flags = freqf_nofiles",)

ADDRESS "REXX_AB1"

Project modulname
IF RESULTS > 1 THEN Function funcname dirname