parameters:
pfile like rlgrap-filename lower case default 'C:\imp_mat.txt'  obligatory.

initialization.
at selection-screen on value-request for  pfile.
call function 'WS_FILENAME_GET'
exporting
   def_filename           =  pfile
   def_path               = ' C:\'
   mask                   = ',*.txt,*.txt. '
   mode                   = 'O '
importing
   filename               = pfile
exceptions
   inv_winsys             = 1
   no_batch               = 2
   selection_cancel       = 3
   selection_error        = 4
   others                 = 5
          .