DEF VAR v-docName AS CHAR NO-UNDO.
DEF VAR lv-filter_name AS CHAR EXTENT 5 NO-UNDO.
DEF VAR lv-filter_spec AS CHAR EXTENT 5 NO-UNDO.

ASSIGN lv-filter_name[1] = "PDF Files (*.pdf)"
       lv-filter_name[2] = "Progress Source (*.p;*.w;*.i)"
       lv-filter_spec[1] = "*.pdf"
       lv-filter_spec[2] = "*.p;*.w;*.i".

SYSTEM-DIALOG GET-FILE v-docName
 FILTERS lv-filter_name[1] lv-filter_spec[1],
         lv-filter_name[2] lv-filter_spec[2],
         lv-filter_name[3] lv-filter_spec[3],
         lv-filter_name[4] lv-filter_spec[4],
         lv-filter_name[5] lv-filter_spec[5].

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