Obsolete FM ws_query

Question

Hi all,
Can you please say me how am i to change this obsolete FM to class CL_GUI_FRONTEND_SERVICES
PARAMETERS: PCPATH LIKE RLGRAP-FILENAME
DEFAULT 'c:\temp\rbe_extract.txt'.
DATA: PATH LIKE PCPATH.
CALL FUNCTION 'WS_QUERY'
EXPORTING
        ENVIRONMENT    = ' '
FILENAME       = PATH
QUERY          = 'DE'
        WINID          = ' '
IMPORTING
RETURN         = ERR_CODE
EXCEPTIONS
INV_QUERY      = 1
NO_BATCH       = 2
FRONTEND_ERROR = 3
OTHERS         = 4.

Answer 1

Hi,
Use this F.M
CL_GUI_FRONTEND_SERVICES=>DIRECTORY_EXIST (if the query is 'DE')
or CL_GUI_FRONTEND_SERVICES=>FILE_EXIST (if the query is 'FE')
IF U_QUERY = 'DE'.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_EXIST
EXPORTING
DIRECTORY = W_FILENAME
RECEIVING
RESULT = W_RETURN
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
WRONG_PARAMETER = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ELSEIF U_QUERY = 'FE'.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
EXPORTING
FILE = W_FILENAME
RECEIVING
RESULT = W_RETURN
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
WRONG_PARAMETER = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
IF W_RETURN = 'X'.
C_RETURN = '1'.
ELSE.
C_RETURN = ' '.
ENDIF.
Cheers,
Simha.
Reward all the helpful answers...