FUNCTION MODULE REPLACEMENT

[Former Member]

Hi All,

WS_EXCEL is obsolete in ECC 6.0, can any tell me what is the alternative FM for that..

Thanks,

Raji

[Former Member]

use GUI_DOWNLOAD.

[former_member203501]

hi try this ...

RH_START_EXCEL_WITH_DATA

[Former Member]

ws_excel internally uses WS_DOWNLOAD and WS_execute.

So you can use GUI_DOWNLAOD and WS_EXECUTE as an alternative to that.

[Former Member]

hi,

see the class documentation for 'CL_GUI_FRONTEND_SERVICES'

you can find many replacements there.

Alternative procedure: GUI_DOWNLOAD and then execute

CL_GUI_FRONTEND_SERVICES=>EXECUTE

[Former Member]

HI,

WS_EXECUTE is also obsolete.

if you want more details about the upgrade,

let me know.

[Former Member]

Hi Try this..

CALL METHOD cl_gui_frontend_services=>gui_download

EXPORTING

filename = l_fullpath

filetype = 'DAT'

CHANGING

data_tab = i_final[]

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6

header_not_allowed = 7

separator_not_allowed = 8

filesize_not_allowed = 9

header_too_long = 10

dp_error_create = 11

dp_error_send = 12

dp_error_write = 13

unknown_dp_error = 14

access_denied = 15

dp_out_of_memory = 16

disk_full = 17

dp_timeout = 18

file_not_found = 19

dataprovider_exception = 20

control_flush_error = 21

not_supported_by_gui = 22

error_no_gui = 23

OTHERS = 24.

IF sy-subrc EQ 0.

WRITE:/ 'Total No. of Records Downloaded to Excel File : '(001),

g_count LEFT-JUSTIFIED.

WRITE:/ 'Please find the File in following path :'(002),

l_fullpath.

ENDIF.

[Former Member]

hi,

use 'GUI_DOWNLOAD' followed by CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE

[Former Member]

Hi,

Use the code below,

Data: l_filename type string.

l_filename = 'D:\FILE1.xls'.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

u2022 BIN_FILESIZE =

FILENAME = l_filename

u2022 FILETYPE = 'ASC'

u2022 IMPORTING

u2022 FILELENGTH =

TABLES

DATA_TAB = itab

u2022 FIELDNAMES =

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22

.

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_FRONTEND_SERVICES=>EXECUTE

EXPORTING

DOCUMENT = 'D:\FILE1.xls'

u2022 APPLICATION =

u2022 PARAMETER =

u2022 DEFAULT_DIRECTORY =

u2022 MAXIMIZED =

u2022 MINIMIZED =

u2022 SYNCHRONOUS =

OPERATION = 'OPEN'

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

BAD_PARAMETER = 3

FILE_NOT_FOUND = 4

PATH_NOT_FOUND = 5

FILE_EXTENSION_UNKNOWN = 6

ERROR_EXECUTE_FAILED = 7

SYNCHRONOUS_FAILED = 8

NOT_SUPPORTED_BY_GUI = 9

others = 10.

IF SY-SUBRC 0.

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

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

ENDIF.