F4IF_FIELD_VALUE_REQUEST,

[Former Member]

Hi Experts ,

Please Explain how the Functions

F4IF_FIELD_VALUE_REQUEST

F4IF_INT_TABLE_VALUE_REQUEST

are used with an example code

[Former Member]

Hi jitendra,

F4IF_INT_TABLE_VALUE_REQUEST

1. sample code (just copy paste)

2.

REPORT ABC.

*----

---

DATA : BEGIN OF ITAB OCCURS 0,

UNAME LIKE USR01-BNAME,

END OF ITAB.

data : RETURN_TAB LIKE DDSHRETVAL occurs 0 .

data : RETURN_wa LIKE DDSHRETVAL .

*----

---

PARAMETERS : A(12) TYPE C.

*----

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR A.

ITAB-UNAME = 'U01'. APPEND ITAB.

ITAB-UNAME = 'U02'. APPEND ITAB.

ITAB-UNAME = 'U03'. APPEND ITAB.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'ITAB-UNAME'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'A'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

tables

value_tab = ITAB

• FIELD_TAB = FTAB

RETURN_TAB = return_tab

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

break-point.

regards,

amit m.

[Former Member]

Hi,

F4IF_INT_TABLE_VALUE_REQUEST is used for displaying F4 help for a parameter

*-----------Parameter

PARAMETERS       : p_regtyp TYPE char1.


*
*---------------Selection Screen Help-------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_regtyp.
  PERFORM f1000_show_f4help_regtyp .


*------------------Form----------------------------------------------------*
FORM f1000_show_f4help_regtyp .

  TYPES: BEGIN OF ty_summary_stat,
            reg_type TYPE char1,
            reg_text TYPE char20,
         END OF ty_summary_stat.

  CONSTANTS : lc_reg_type LIKE dfies-fieldname     VALUE 'REG_TYPE',
              lc_pregtyp  LIKE help_info-dynprofld VALUE 'P_REGTYP'.


  DATA : lit_summary_in  TYPE TABLE OF ty_summary_stat,
         ls_help_input   TYPE ty_summary_stat.

  ls_help_input-reg_type = lc_l.
* Loss & Reg
  ls_help_input-reg_text = text-018.
  APPEND ls_help_input TO lit_summary_in.

* Standard Process
  ls_help_input-reg_type = lc_s.
  ls_help_input-reg_text = text-019.
  APPEND ls_help_input TO lit_summary_in.

* Function Module to Call F4 Help
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = lc_reg_type
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = lc_pregtyp
      value_org       = 'S'
    TABLES
      value_tab       = lit_summary_in
    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.

ENDFORM.                    " f1000_show_f4help_regtyp

[Former Member]

Check the code.

REPORT ZHELP .

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.

[Former Member]

Hi Jitendra,

F4IF_FIELD_VALUE_REQUEST - used to disply a field when u press F4 on the field

F4IF_INT_TABLE_VALUE_REQUEST -used to disply a table when u press F4.

Use the follwing code,

tables: t001.

data: begin of it001 occurs 0,

bukrs type t001-bukrs,

butxt type t001-butxt,

ort01 type t001-ort01,

land1 type t001-land1,

end of it001.

select-options s_bukrs for t001-bukrs.

initialization.

select bukrs butxt ort01 land1 into table it001 from t001

where land1 = 'US'.

sort it001 ascending by bukrs.

delete adjacent duplicates from it001 comparing bukrs.

at selection-screen on value-request for s_bukrs-low.

call function 'F4IF_INT_TABLE_VALUE_REQUEST'

exporting

retfield = 'BUKRS'

dynprofield = 'S_BUKRS'

dynpprog = sy-cprog

dynpnr = sy-dynnr

value_org = 'S'

tables

value_tab = it001.

start-of-selection.

Rgds,

Jothi.

Do close the thread if your problem is solved.