(ABAP 코드) FILE OPEN

*&---------------------------------------------------------------------*
*& Form FILE_OPEN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FILE_OPEN .

  DATA : LT_FILES TYPE FILETABLE,
         LV_RC    TYPE I VALUE 1,
         LV_TITLE TYPE STRING.
  DATA : LV_FNAME TYPE STRING,
         LV_RCODE TYPE CHAR1.

  CLEAR : LT_FILES, LV_RC, LV_TITLE, LV_FNAME, LV_RCODE.

  LV_TITLE = TEXT-002.    "## ## ##

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE      = LV_TITLE
      DEFAULT_EXTENSION = 'XLS'
      DEFAULT_FILENAME  = 'DATA.XLS'
      MULTISELECTION    = ' '
    CHANGING
      FILE_TABLE        = LT_FILES
      RC                = LV_RC.

  IF LV_RC = 1 AND LINES( LT_FILES ) = 1.

    READ TABLE LT_FILES INDEX 1 INTO LV_FNAME.
    CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
      EXPORTING
        FILE   = LV_FNAME
      RECEIVING
        RESULT = LV_RCODE.

    IF LV_RCODE = 'X'.
      READ TABLE LT_FILES INDEX 1 INTO P_FILENM.
    ELSE.
      MESSAGE I555(BC400) WITH TEXT-003.  "#### ## #####.
    ENDIF.
  ELSE.
    MESSAGE I555(BC400) WITH TEXT-004.    "### #### ####.
  ENDIF.

ENDFORM.