replacement function modules/method for obsolete Funtion Modules in ECC 6.0

[former_member253335]

We are working on Upgrade Project and need your help in finding the replacement Function module/ Methods for following obsolete Function Modules:

1. GET_FIELDTAB

2. WS_EXCEL

3. HR_DISPLAY_BASIC_LIST

4. LOG_SYSTEM_GET_RFC_DESTINATION

5. HELPSCREEN_NA_CREATE

6. TR_RELEASE_COMM

Thank in Advance.

Sarita.

Edited by: Sarita Yalamati on Mar 28, 2008 1:23 PM

[p190355]

Hi,

1) GET_FIELDTAB => DDIF_FIELDINFO_GET

2) WS_EXCEL

GUI_DOWNLOAD

Along with cl_gui_frontend_services=>file_save_dialog

with parameter DEFAULT_EXTENSION = 'XLS'

3) HR_DISPLAY_BASIC_LIST => HR_ALV_LIST_DISPLAY.

4) LOG_SYSTEM_GET_RFC_DESTINATION=>

OBJ_METHOD_GET_RFC_DESTINATION

5) HELPSCREEN_NA_CREATE=>

HELP_OBJECT_SHOW

Cheers,

Remi

[Former Member]

Hi sarita,

for GET_FIELDTAB use 'DDIF_NAMETAB_GET'..here is sample code

CALL FUNCTION 'GET_FIELDTAB'

EXPORTING

LANGU = SY-LANGU

TABNAME = C_STRUCTURE_NAME

WITHTEXT = ' '

TABLES

FIELDTAB = IDFIES

EXCEPTIONS

INTERNAL_ERROR = 01

NO_TEXTS_FOUND = 02

TABLE_HAS_NO_FIELDS = 03

TABLE_NOT_ACTIV = 04.

Replacement :

CALL FUNCTION 'DDIF_NAMETAB_GET'

EXPORTING

TABNAME = C_STRUCTURE_NAME

• ALL_TYPES = ' '

• LFIELDNAME = ' '

• GROUP_NAMES = ' '

• UCLEN =

• IMPORTING

• X030L_WA =

• DTELINFO_WA =

• TTYPINFO_WA =

• DDOBJTYPE =

• DFIES_WA =

• LINES_DESCR =

TABLES

• X031L_TAB =

DFIES_TAB = IDFIES

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2

.

For WS_EXCEL use GUI_DOWNLOAD.. here is sample code

CALL FUNCTION 'WS_EXCEL'

EXPORTING

FILENAME = 'D:\FILE1.xls'

• SYNCHRON = ' '

TABLES

DATA = itab

EXCEPTIONS

UNKNOWN_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.

Repalcement :

data : l_filename type string.

l_filename = 'D:\FILE1.xls'.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

• BIN_FILESIZE =

FILENAME = l_filename

• FILETYPE = 'ASC'

• IMPORTING

• FILELENGTH =

TABLES

DATA_TAB = itab

• 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'

• APPLICATION =

• PARAMETER =

• DEFAULT_DIRECTORY =

• MAXIMIZED =

• MINIMIZED =

• 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.