topic Re: F4 Help in Application Development and Automation Discussions

F4 Help

Former Member — Sun, 30 Dec 2007 14:47:57 GMT

Hi All,

i want to display F4 help and i already wrote my code on value request but it is not displayed when i press enter it will display how it display

Plzz help me

thanks

swapna

Re: F4 Help

Former Member — Sun, 30 Dec 2007 14:49:57 GMT

Hi Swapna,

Parameters: carrid type spfli-carrid,

P_connid(3).

DATA: BEGIN OF values,

carrid type spfli-carrid,

connid type spfli-connid,

END OF values.

data: dinpro_values type table of dynpread,

value_tab like table of values,

field_value like line of dinpro_values.

at selection-screen on value-request for P_connid.

field_value-fieldname = 'CARRID'.

APPEND field_value TO dinpro_values.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-repid

dynumb = sy-dynnr

translate_to_upper = 'X'

TABLES

dynpfields = dinpro_values.

READ TABLE dinpro_values INDEX 1 INTO field_value.

values-carrid = FIELD_VALUE-FIELDVALUE.

SELECT CARRID

connid

FROM sflight

INTO TABLE VALUE_TAB

where carrid eq FIELD_VALUE-FIELDVALUE.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'CONNID'

dynpprog = SY-REPID

dynpnr = SY-DYNNR

dynprofield = 'P_CONNID'

value_org = 'S'

TABLES

value_tab = value_tab.

Re: F4 Help

Former Member — Sun, 30 Dec 2007 15:54:08 GMT

you dont press enter..

press f4, or click on the half ball at end of the field on screen.

i hope you used at selection-screen on <field> for value-request.

call function (f4if init table value request ).

Regards

Re: F4 Help

Former Member — Mon, 31 Dec 2007 03:58:04 GMT

Hi Swapna

please see this code.

Please reward pts also.

Regards

Deepanker.

See the following ex:

TYPES: BEGIN OF TY_MBLNR,

MBLNR LIKE MKPF-MBLNR,

END OF TY_MBLNR.

DATA: IT_MBLNR TYPE STANDARD TABLE OF TY_MBLNR WITH HEADER LINE.

data: it_ret like ddshretval occurs 0 with header line.

At selection-screen on value-request for s_mat-low.

Select MBLNR from mkpf into table it_mblnr.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'MBLNR'

PVALKEY = ' '
DYNPPROG = ' '
DYNPNR = ' '
DYNPROFIELD = ' '
STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

VALUE_TAB = IT_MBLNR

FIELD_TAB =

RETURN_TAB = IT_RET

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.

IF SY-SUBRC = 0.

read table it_ret index 1.

move it_ret-fieldval to S_mat-low.

ENDIF.

Go through the test program.

REPORT Ztest_HELP .

TABLES : MARA.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS : P_MATNR(10) TYPE C.

SELECTION-SCREEN END OF BLOCK B1.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR TYPE MATNR,

END OF ITAB.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

SELECT MATNR

FROM MARA

INTO TABLE ITAB

UP TO 10 ROWS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'MATERIAL NUMBER'

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'P_MATNR'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = ITAB

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.