f4 iInput field help in screens

[Former Member]

Hi All!

Can any body give me logic how to give input field help(f4) to a input field on a screen.The input values being some selected tables in SE11.

regards

pavan

[Former Member · Accepted solution]

What do you mean by 'My input is tables not fields'? Do you have a selection screen field for inputing a table name? In that case simply define your selection screen field of type DD02L-TABNAME.

[Former Member · Accepted solution]

Drop down list in screen And F4 Help

FIRST CREATE A FIELD IN SCREEN

FLOW LOGIC

PROCESS BEFORE OUTPUT.

MODULE STATUS_1000.

*

PROCESS AFTER INPUT.

MODULE USER_COMMAND_1000.

PROCESS ON VALUE-REQUEST.

FIELD t001w-werks MODULE create dropdown box.

REPORT ZDROP_DOWN.

tables : t001w.

data : werks like t001w-werks.

data : begin of itab_t001w occurs 0,

werks like t001w-werks,

end of itab_t001w.

data : p_plan like t001w-werks.

module STATUS_1000 output.

SET PF-STATUS 'MENU'.

SET TITLEBAR 'TIT'.

endmodule. " STATUS_1000 OUTPUT

module create_dropdown_box input.

SELECT werks FROM t001w iNTO CORRESPONDING FIELDS OF TABLE itab_t001w.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'WERKS' " t001w-werks

VALUE_ORG = 'S'

tables

value_tab = itab_t001w.

TRY USING THIS ...

[Former Member · Accepted solution]

Hi madan!

I tried using your sample code but i am getting an empty list.Can u detail me more on this.

regards

pavan

[Former Member]

Hi Kumar,

parameters : p_WERKS type PERSA,

p_BTRTL type BTRTL_001P.

data : t_dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE,

t_return like ddshretval occurs 0 with header line.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_btrtl.

DATA : BEGIN OF lt_psa OCCURS 0,

btrtl LIKE t001p-btrtl,

END OF lt_psa.

data : l_werks type persa.

*-- Get value PA value from screen

t_dynpfields-fieldname = 'P_WERKS'.

APPEND t_dynpfields.

CLEAR t_dynpfields.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-cprog

dynumb = sy-dynnr

TABLES

dynpfields = t_dynpfields

EXCEPTIONS

invalid_abapworkarea = 1

invalid_dynprofield = 2

invalid_dynproname = 3

invalid_dynpronummer = 4

invalid_request = 5

no_fielddescription = 6

invalid_parameter = 7

undefind_error = 8

double_conversion = 9

stepl_not_found = 10

OTHERS = 11.

IF sy-subrc EQ 0.

READ TABLE t_dynpfields WITH KEY fieldname = 'P_WERKS'.

IF sy-subrc EQ 0.

MOVE t_dynpfields-fieldvalue TO l_WERKS.

ENDIF.

ELSE.

EXIT.

ENDIF.

SELECT btrtl

FROM t001p

INTO table lt_psa

WHERE werks = L_werks.

*--- Get F4 help

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'BTRTL'

• PVALKEY = ' '

DYNPPROG = sy-cprog

DYNPNR = SY-DYNNR

DYNPROFIELD = 'ZTESTB-P_BTRTL'

• STEPL = 0

WINDOW_TITLE = 'help'

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

VALUE_TAB = LT_PSA

• FIELD_TAB =

RETURN_TAB = T_RETURN

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

Regards

eswar

[former_member188685]

Hi,

check this example..<b>DEMO_DYNPRO_F4_HELP_MODULE</b>

Regards

vijay

[Former Member]

hi,

You can get all the table names in DD02L.

Field Name : TABNAME

Pass to fm F4IF_FIELD_VALUE_REQUEST to get values.

Regards,

Sailaja.

[Former Member]

Use:

F4IF_FIELD_VALUE_REQUEST

[Former Member]

Hi

My input values are tables and are not fields of any particular table.

regards

Pavan

[laxmanakumar_appana]

Hi,

Use this FM : F4IF_INT_TABLE_VALUE_REQUEST

Code :

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fld-low.

select * from ztest into i_tab

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'TEST'

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = s_fld-low

value_org = 'S'

TABLES

value_tab = i_tab

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.

Laxman

Message was edited by: Laxmana Kumar