DEF VAR v-filter AS CHAR NO-UNDO.
DEF VAR v-filter1 AS CHAR NO-UNDO.
DEF VAR v-doc-name AS CHAR NO-UNDO.

v-filter  = "Loadable Files".
v-filter1 = "*.pdf;*.p;*.txt".

SYSTEM-DIALOG GET-FILE v-doc-name
  FILTERS v-filter v-filter1.

DISPLAY v-doc-name FORMAT "x(78)" WITH NO-LABELS.