Whether the file is present or not??

Question

Hi,
I am trying to upload data from a file on application server.
How can i validate if the file is exiting or not.
It would be helpful if I can find whether the file exists or not before the statement "OPEN DATASET".
<b>NOTE: This is a SAP 3.1i version requirement.</b>

Answer 1

Hai vinod,
Just go for F4 help and it displays all the files which you need.I have a code which does this.........
AT SELECTION-SCREEN ON VALUE-REQUEST FOR DATASET.
  CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
EXPORTING
    WINDOW_TITLE            = 'select a file '
    DEFAULT_EXTENSION       = 'TXT'
    DEFAULT_FILENAME        = 'ASSIGN5.TXT'
  FILE_FILTER             =
  INIT_DIRECTORY          =
  MULTISELECTION          =
IMPORTING
  RC                      =
    TABLES
      FILE_TABLE              = ITAB
EXCEPTIONS
   CNTL_ERROR              = 1
   OTHERS                  = 2
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  READ TABLE ITAB INDEX 1.
  DATASET = ITAB-FILENAME.
  WRITE DATASET.
START-OF-SELECTION.
*perform open_dataset using dataset.
*perform open_group.
  DATA T TYPE STRING.
  T = DATASET.
  IF T EQ ' '.
    MESSAGE E110(ZX).
  ENDIF.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                      = T
  FILETYPE                      = 'ASC'
      HAS_FIELD_SEPARATOR           = 'X'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    TABLES
      DATA_TAB                      = RECORD
EXCEPTIONS
  FILE_OPEN_ERROR               = 1
  FILE_READ_ERROR               = 2
  NO_BATCH                      = 3
  GUI_REFUSE_FILETRANSFER       = 4
  INVALID_TYPE                  = 5
  NO_AUTHORITY                  = 6
  UNKNOWN_ERROR                 = 7
  BAD_DATA_FORMAT               = 8
  HEADER_NOT_ALLOWED            = 9
  SEPARATOR_NOT_ALLOWED         = 10
  HEADER_TOO_LONG               = 11
  UNKNOWN_DP_ERROR              = 12
  ACCESS_DENIED                 = 13
  DP_OUT_OF_MEMORY              = 14
  DISK_FULL                     = 15
  DP_TIMEOUT                    = 16
  OTHERS                        = 17
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
When this code is executed it opens a window which allows you to select a file.......Hope this may work for you.
Regards,
Srikanth.
Please reward points if this is useful to you.thanks in advance