Obsolete Function Module

[Former Member]

Hi,

Can anyone let me know the replacement of WS_QUERY.

Thanks,

Sirisha.

[Former Member]

hi,

Hi,

the FM WS_QUERY is replaced with GUI_GET_DESKTOP_INFO in ECC6.

or

Check the method CL_GUI_FRONTEND_SERVICES=>GET_PLATFORM.

Sample code:

data: platform type i.

platform = CL_GUI_FRONTEND_SERVICES=>GET_PLATFORM( ).

case platform.

when CL_GUI_FRONTEND_SERVICES=>PLATFORM_WINDOWS95.

write: / 'Windows 95'.

write: / 'GET_PLATFORM test OK.'.

when CL_GUI_FRONTEND_SERVICES=>PLATFORM_WINDOWS98.

write: / 'Windows 98'.

write: / 'GET_PLATFORM test OK.'.

when CL_GUI_FRONTEND_SERVICES=>PLATFORM_NT351.

write: / 'Windows NT 3.51'.

write: / 'GET_PLATFORM test OK.'.

when CL_GUI_FRONTEND_SERVICES=>PLATFORM_NT40.

write: / 'Windows NT 4.0'.

write: / 'GET_PLATFORM test OK.'.

when CL_GUI_FRONTEND_SERVICES=>PLATFORM_NT50.

write: / 'Windows 2000'.

write: / 'GET_PLATFORM test OK.'.

WHEN CL_GUI_FRONTEND_SERVICES=>PLATFORM_UNKNOWN.

write: / 'Platform unknown'.

write: / 'GET_PLATFORM test OK.'.

WHEN OTHERS.

write: / 'GET_PLATFORM test failed.'.

endcase.

Following are the attributes returned by the get_platform method.

PLATFORM_UNKNOWN

PLATFORM_WINDOWS95

PLATFORM_WINDOWS98

PLATFORM_NT351

PLATFORM_NT40

PLATFORM_NT50

PLATFORM_MAC

PLATFORM_OS2

PLATFORM_LINUX

PLATFORM_HPUX

PLATFORM_TRU64

PLATFORM_AIX

PLATFORM_SOLARIS

PLATFORM_MACOSX

PLATFORM_WINDOWSXP

For more details check the documentation of the class CL_GUI_FRONTEND_SERVICES.

Also click below to check for other FM updates in ECC6.

http://www.erpgenie.com/abap/functions.htm

<REMOVED BY MODERATOR>

regards,

rekha

Edited by: Alvaro Tejada Galindo on Apr 30, 2008 10:45 AM

[Former Member]

hi there..

for WS_QUERY depending on the type of query use methods in class CL_GUI_FRONTEND_SERVICES

Example

call function 'WS_QUERY'

exporting

environment = 'TEMP'

query = 'EN'

importing

return = g_vbs_filename

exceptions

inv_query = 1

no_batch = 2

frontend_error = 3

others = 4.

if sy-subrc > 0.

raise invalid_pathname.

endif.

replacement

CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_TEMP_DIRECTORY

CHANGING

TEMP_DIR = g_vbs_filename

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

others = 4

.

CALL METHOD CL_GUI_CFW=>FLUSH

EXCEPTIONS

CNTL_SYSTEM_ERROR = 1

CNTL_ERROR = 2

others = 3

.

if SY-SUBRC 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

<REMOVED BY MODERATOR>

Edited by: Alvaro Tejada Galindo on Apr 30, 2008 10:43 AM

[Former Member]

Hi,

use class CL_GUI_FRONTEND_SERVICES and choose the appropriate method

depending on parameters passed to WS_QUERY.

for example :

CALL FUNCTION 'WS_QUERY'

EXPORTING

query = 'XP'

IMPORTING

return = p_patout

EXCEPTIONS

inv_query = 1

no_batch = 2

frontend_error = 3

OTHERS = 4.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Replacement :

Data: p_patout1 type string.

p_patout1 = p_patout.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SAPGUI_DIRECTORY

CHANGING

SAPGUI_DIRECTORY = p_patout1

EXCEPTIONS

CNTL_ERROR = 1

NOT_SUPPORTED_BY_GUI = 2

ERROR_NO_GUI = 3

others = 4

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL METHOD CL_GUI_CFW=>FLUSH

EXCEPTIONS

CNTL_SYSTEM_ERROR = 1

CNTL_ERROR = 2

others = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

p_patout = p_patout1.

<REMOVED BY MODERATOR>

Edited by: Alvaro Tejada Galindo on Apr 30, 2008 10:47 AM