Hi i want to exit the program if no file found by FM call file_get name

Question

HI
I am calling a function module which is picking up a file from utility server
presently its giving error message that if no file found it propts for error msg no file found or file could not be opened i suppose  its coming by the FM only
now i want to write a code that if there is no file then the program should exit and not execute further but with no error mesage
pls suggest a code for this
regards
Arora

Answer 1

Hi Nishant,
Try to do as indicated in the following code below
FORM validate_app_file USING  fp_file  TYPE FILENAME-FILEINTERN.
  data : l_fname(60).
  CALL FUNCTION 'FILE_GET_NAME'
    EXPORTING
      LOGICAL_FILENAME = P_FILE
      OPERATING_SYSTEM = SY-OPSYS
    IMPORTING
      FILE_NAME        = L_FNAME
    EXCEPTIONS
      FILE_NOT_FOUND   = 1
      OTHERS           = 2.
  IF SY-SUBRC = '0'.
    OPEN DATASET  L_FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc NE 0.
      MESSAGE s007 DISPLAY LIKE c_e.
    ELSE.
      CLOSE DATASET l_fname.
    ENDIF.
  ENDIF.
Also find below the parameters for the function module and thier use
Interface of function module FILE_GET_NAME
IMPORT parameter
Function
CLIENT
Logical file names can be client-specific. Here you can specify the client to be used. The current client as stored in the system field SY-MANDT is used as default.
LOGICAL_FILENAME
Here you specify the logical filename. (Uppercase letters must be used!)
OPERATING_SYSTEM
Here you can specify the operating system for which to generate the appropriate file name. The application server's operating system as stored in the system field SY-OPSYS is used as default.
PARAMETER_1
PARAMETER_2
Here you can specify values that substitute the placeholders <PARAM_1> and <PARAM_2> in physical file names and paths.
USE_PRESENTATION
_SERVER
Specifies that the presentation server's operating system be used as the basis for generating a platform-specific file name.
WITH_FILE_EXTENSION
Specifies that the logical file name's data format be used as filename extension.
USE_BUFFER
Specifies that the customizing tables for converting platform-independent file names be buffered in main memory.
EXPORT parameter
Function
EMERGENCY_FLAG
If the returned value is not SPACE, then no physical path has been found for the logical filename under the current operating system. In this case the path specified in the profile parameter DIR_GLOBAL will be used as physical path.
FILE_FORMAT
Returns the data format defined for the logical file name. You can use this parameter to decide in which mode to open the file. It is also required as a parameter for DOWNLOAD of files to the presentation server.
FILE_NAME
Returns the fully instantiated platform-specific file name and path.
Exceptions
Function
FILE_NOT_FOUND
Raised if logical file name is not defined.
OTHERS
Raised if other errors occur.
Analyse your problem
If the function module cannot find a physical path for the current operating system (see parameter EMERGENCY_FLAG), this may have various causes:
the operating system is not defined in the customizing tables
the operating system is not assigned to a syntax group
no physical path is assigned to the logical path for the relevant syntax group
no logical path is assigned to the logical file name.
Please check and revert
Also Reward points for all helps.it encorages others to help u more
Regards
Byju
Edited by: Byju Edamana on Mar 20, 2008 11:06 AM