dialogo para salvar archivo

file:save_dialog

* Llama al diálogo para salvar el archivo
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
      EXPORTING
*      window_title      = ' '
        default_extension = 'TXT'
        default_file_name = lv_fnam "'demofile'
        initial_directory = str "'c:\'
      CHANGING
        filename          = ld_filename
        path              = ld_path
        fullpath          = ld_fullpath
        user_action       = ld_result
      EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4
          .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  IF ld_result EQ 0. " 9 es cancelado
    p_filed = ld_fullpath.
    PERFORM read_data_from_appserver.
  ENDIF.