obsolete function modules

[Former Member]

Hi experts,

Below maintioned function modules are obsolete functions.

What is the alternate for these function modules in 6.0ecc.

CONVERT_DATE_INPUT

G_OBJECT_SELECT

G_SET_AVAILABLE

HELPSCREEN_NA_CREATE

HELP_VALUES_GET_NO_DD_NAME

HELP_VALUES_GET_WITH_TABLE_EXT

LOG_SYSTEM_GET_RFC_DESTINATION

POPUP_TO_DECIDE

REGISTRY_GET

RK_PROFITCENTER_UPDATE

TRANSFER_NAMES_TO_FIELDS

WS_EXECUTE

Please help me out.

[Former Member]

Hi,

How do u know these are obsolete functions???

If you check with function module documentation, you will find

FU WS_UPLOAD

____________________________________________________

Short Text

OBSOLETE: Transfer Presentation Server File to Internal Table

Uploads a file from the presentation server into an internal table.

*Obsolete. Use class CL_GUI_FRONTEND_SERVICES.*

Regards,

Shardul Shah

[bindu_ramachandran]

Hi Mahendar

Replacements are

1. CALL FUNCTION 'CONVERT_DATE_INPUT'

• EXPORTING

• input = dtnasc_200

• PLAUSIBILITY_CHECK = 'X'

• IMPORTING

• OUTPUT = WK_DATA.

CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

EXPORTING

DATE_EXTERNAL = dtnasc_200

ACCEPT_INITIAL_DATE = 'X'

IMPORTING

DATE_INTERNAL = WK_DATA

EXCEPTIONS

DATE_EXTERNAL_IS_INVALID = 1

OTHERS = 2

2. HELPSCREEN_NA_CREATE----

---

HELP_OBJECT_SHOW

3. HELP_VALUES_GET_NO_DD_NAME----

---

• call function 'HELP_VALUES_GET_NO_DD_NAME'

• exporting

• selectfield = 'KUNNR'

• titel = text-999

• no_display_of_pers_values = 'X'

• importing

• ind = sy-tabix

• tables

• fields = tab_fields

• full_table = tab_kunnr

• FULL_TABLE = TAB_LAUF1

• exceptions

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

*

data: it_fields type table of DFIES.

data: wa_fields_tab type dfies.

data: wa_fields type help_value.

loop at tab_fields into wa_fields.

wa_fields_tab-tabname = wa_fields-tabname.

wa_fields_tab-fieldname = wa_fields-fieldname.

wa_fields_tab-KEYFLAG = wa_fields-SELECTFLAG.

append wa_fields_tab to it_fields.

endloop.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'KUNNR'

• PVALKEY = ' '

• DYNPPROG = ' '

• DYNPNR = ' '

• DYNPROFIELD = ' '

• STEPL = 0

WINDOW_TITLE = text-999

• VALUE = ' '

• VALUE_ORG = 'C'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

VALUE_TAB = tab_kunnr

FIELD_TAB = it_fields

• RETURN_TAB =

• DYNPFLD_MAPPING =

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 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 .

4. HELP_VALUES_GET_WITH_TABLE_EXT

• calling popup for F4-Help

• CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'

• EXPORTING

• DISPLAY = I_DISPLAY

• FIELDNAME = 'VKONT'

• TABNAME = 'FKKVKP'

• TITLE_IN_VALUES_LIST = LOC_TITLE

• TABLES

• FIELDS = LOC_HELP_FIELDS

• SELECT_VALUES = LOC_SELECT_VALUES

• VALUETAB = LOC_VALUETAB

• EXCEPTIONS

• FIELD_NOT_IN_DDIC = 1

• MORE_THEN_ONE_SELECTFIELD = 2

• NO_SELECTFIELD = 3

• OTHERS = 4.

CALL FUNCTION 'F4TOOL_F4FUNCTION_BRIDGE'

EXPORTING

FIELDNAME = 'VKONT'

TABNAME = 'FKKVKP'

DISPLAY_ONLY = I_DISPLAY

WINDOW_TITLE = LOC_TITLE

• IMPORTING

• SELECTED_VALUE = SELECT_VALUE

• SELECTED_INDEX = INDEX

TABLES

• SHVALUE_TAB =

• SHSTRUC_TAB =

VALUE_TAB = LOC_VALUETAB

FIELDS_TAB = LOC_HELP_FIELDS

VALUES_OUT = LOC_SELECT_VALUES

• COLTITLE_TAB = HEADING_TABLE

• SEL_OPT = SEL_OPT.

EXCEPTIONS

OTHERS = 1.

5. POPUP_TO_DECIDE----

---

POPUP_TO_CONFIRM

6. 'WS_EXECUTE'

CALL FUNCTION 'WS_EXECUTE'

EXPORTING

commandline = p_file

program = 'Excel'

EXCEPTIONS

frontend_error = 1

no_batch = 2

prog_not_found = 3

illegal_option = 4

gui_refuse_execute = 5

OTHERS = 6.

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

CALL FUNCTION 'DSVAS_DOC_WS_EXECUTE_50'

EXPORTING

• DOCUMENT = ' '

• CD = ' '

COMMANDLINE = p_file

PROGRAM = 'Excel'

• EXEC_RC = ' '

EXCEPTIONS

FRONTEND_ERROR = 1

NO_BATCH = 2

PROG_NOT_FOUND = 3

ILLEGAL_OPTION = 4

GUI_REFUSE_EXECUTE = 5

OTHERS = 6

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

Regards

Bindu Ramachandran

[Former Member]

Thanks Bindu.