topic Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST' in Application Development and Automation Discussions

EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Thu, 19 Jun 2008 20:22:28 GMT

Hi,

Does you have any example of the fm 'F4IF_INT_TABLE_VALUE_REQUEST' using the parameters tables FIELD_TAB and DYNPFLD_MAPPING?????

answers will be regarded!

Tks in advance!

Gabriel

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Thu, 19 Jun 2008 20:27:50 GMT

This sample program demonstrate how to create "Help Value Request". It will appear when user pressing F4 (help) on an input field to request list of available value.

To do this we are using function module F4IF_INT_TABLE_VALUE_REQUEST. It provide help value request with following feature:

1. single / multiple choice.

2. update screen without PBO, so it can be used to update more than one field on one request.

Here is the code:




REPORT ztest123 .

TABLES: usr02.

parameters: p_bname LIKE usr02-bname,
p_class LIKE usr02-class.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bname.
PERFORM f_valuerequest_vbeln.
*&---------------------------------------------------------------------*
*& Form f_valuerequest_vbeln
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_valuerequest_vbeln.

DATA: BEGIN OF t_data OCCURS 1,
data(20),
END OF t_data.

DATA: lwa_dfies TYPE dfies.

data h_field_wa LIKe dfies.
data h_field_tab like dfies occurs 0 with header line.
data h_dselc like dselc occurs 0 with header line.

SELECT * FROM usr02.
t_data = usr02-bname. APPEND t_data.
t_data = usr02-class. APPEND t_data.
ENDSELECT.

PERFORM f_fieldinfo_get USING 'USR02'
'BNAME'
CHANGING h_field_wa.
APPEND h_field_wa TO h_field_tab.
PERFORM f_fieldinfo_get USING 'USR02'
'CLASS'
CHANGING h_field_wa.
APPEND h_field_wa TO h_field_tab.

h_dselc-fldname = 'BNAME'.
h_dselc-dyfldname = 'P_BNAME'.
APPEND h_dselc.
h_dselc-fldname = 'CLASS'.
h_dselc-dyfldname = 'P_CLASS'.
APPEND h_dselc.

DATA: ld_repid LIKE sy-repid.
ld_repid = sy-repid.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'P_BNAME'
dynpprog = ld_repid
dynpnr = '1000'
dynprofield = 'P_BNAME'
* multiple_choice = ''
* value_org = 'S'
TABLES
value_tab = t_data
field_tab = h_field_tab
* return_tab = return_tab
DYNPFLD_MAPPING = h_dselc
EXCEPTIONS
OTHERS = 0.

ENDFORM. " f_valuerequest_vbeln
*&---------------------------------------------------------------------*
*& Form f_fieldinfo_get
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0079 text
* -->P_0080 text
* <--P_H_FIELD_WA text
*----------------------------------------------------------------------*
FORM f_fieldinfo_get USING fu_tabname
fu_fieldname
CHANGING fwa_field_tab.


CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
TABNAME = fu_tabname
FIELDNAME = fu_fieldname
LFIELDNAME = fu_fieldname
IMPORTING
DFIES_WA = fwa_field_tab
EXCEPTIONS
NOT_FOUND = 1
INTERNAL_ERROR = 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. " f_fieldinfo_get

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Fri, 20 Jun 2008 04:48:27 GMT

Hi,

Please refer the code below:

DATA: return TYPE TABLE OF ddshretval WITH HEADER LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_WERKS-LOW.

SELECT WERKS NAME1 INTO CORRESPONDING FIELDS OF TABLE KUNNSO_ITAB FROM T001W.

DELETE ADJACENT DUPLICATES FROM KUNNSO_ITAB.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'WERKS'

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'S_WERKS'

VALUE_ORG = 'S'

multiple_choice = 'X'

TABLES

VALUE_TAB = KUNNSO_ITAB

return_tab = return.

IF SY-SUBRC 0.

SORT return BY fieldval DESCENDING.

LOOP AT return.

S_WERKS-low = return-fieldval.

S_WERKS-option = 'EQ'.

S_WERKS-sign = 'I'.

S_WERKS-high = space.

APPEND S_WERKS.

ENDLOOP.

SORT S_WERKS BY low.

ENDIF.

Regards,

Asmitha.

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Fri, 20 Jun 2008 04:54:19 GMT

Hi,

Below is the example:

CLEAR wa_dynpread.
  wa_dynpread-fieldname = 'ZCAN_HDR-PLANT'.
  APPEND wa_dynpread TO it_dynpread.

  CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    dyname                               = sy-repid
    dynumb                               = sy-dynnr
*   TRANSLATE_TO_UPPER                   = ' '
*   request                              = 'A'
*   PERFORM_CONVERSION_EXITS             = ' '
*   PERFORM_INPUT_CONVERSION             = ' '
*   DETERMINE_LOOP_INDEX                 = ' '
*   START_SEARCH_IN_CURRENT_SCREEN       = ' '
*   START_SEARCH_IN_MAIN_SCREEN          = ' '
*   START_SEARCH_IN_STACKED_SCREEN       = ' '
*   START_SEARCH_ON_SCR_STACKPOS         = ' '
*   SEARCH_OWN_SUBSCREENS_FIRST          = ' '
*   SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
  TABLES
    dynpfields                           = it_dynpread
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 <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CLEAR wa_dynpread.

  READ TABLE it_dynpread INTO wa_dynpread WITH KEY fieldname = 'ZCAN_HDR-PLANT'.

  IF sy-subrc = 0.

    SELECT hawb_bl_no plant exbond_no doc_type cha_agent
    FROM zcan_cha INTO TABLE it_hawb
    WHERE plant = wa_dynpread-fieldvalue.

  ENDIF.

  REFRESH it_dynpread.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*   DDIC_STRUCTURE         = ' '
      retfield               = 'HAWB_BL_NO'
*   PVALKEY                = ' '
     dynpprog               = sy-cprog
     dynpnr                 = sy-dynnr
     dynprofield            = 'ZCAN_HDR-HAWB_BL_NO'
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
     value_org              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
    TABLES
      value_tab              = it_hawb
*   FIELD_TAB              =
*   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.

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Tue, 16 Mar 2010 14:31:14 GMT

Hi All,

here is the code for Searc Help



  CLEAR : lt_group,lt_group[],
  field_tab,field_tab[].

  IF rebd_rental_object_ci-zzcategory IS NOT INITIAL.

    SELECT * FROM zre_rentgroupt INTO CORRESPONDING FIELDS OF TABLE
    lt_group  WHERE spras = sy-langu
      AND zre_categ_link = rebd_rental_object_ci-zzcategory.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
*   DDIC_STRUCTURE         = ' '
       retfield               = 'ZRE_GROUP'   "field of internal table
        value_org              = 'S'
        dynpprog = sy-repid
        dynpnr = sy-dynnr
     TABLES
       value_tab              = lt_group
*   FIELD_TAB              =
      return_tab             = it_return
             .

    IF it_return IS NOT INITIAL  .
      WRITE it_return-fieldval TO rebd_rental_object_ci-zzgroup.
    ENDIF.

    CLEAR :it_return,it_return[].

  ENDIF.

*************************
DATA: BEGIN OF lt_group OCCURS 0 ,
zre_group TYPE 	zre_group,
zre_groupt   TYPE zre_groupt,
END OF lt_group.

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Tue, 16 Mar 2010 14:39:21 GMT

Hi,

Refer to below links -

[Chain F4 help|http://www.divulgesap.com/blog.php?p=Njk=]

[F4 help selecting multiple lines|http://www.divulgesap.com/blog.php?p=NzQ=]

Hope these links are useful.

Thanks.

Ravi

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Fri, 09 Dec 2011 09:59:47 GMT

AT SELECTION-SCREEN ON VALUE-REQUEST FOR difflev.

DATA: BEGIN OF it_difflevel OCCURS 0,

difflevel LIKE zquestions-lev,

END OF it_difflevel.

DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

Read dificulty level from table zquestions-lev

SELECT DISTINCT lev FROM zquestions INTO TABLE it_difflevel.

CLEAR it_difflevel.

SORT it_difflevel BY difflevel.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'LEV' "Key field from it_difflevel

PVALKEY = ' '

dynpprog = sy-cprog "Program

dynpnr = sy-dynnr "Dynpro number

dynprofield = 'DIFFLEV ' "Select-options field

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

value_org = 'S' "Value return: C: cell by cell,

"S: structured

MULTIPLE_CHOICE = ' '

display = 'F' "Override readiness for input

CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

value_tab = it_difflevel "table with selection values

field_tab = field_tab

return_tab = t_return "Return value

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.

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

former_member612135 — Thu, 19 Mar 2015 08:36:15 GMT

i tried your code.

search help open. but when i click the value. t not showing the field.

where i did the mistake. please find out and help me.

TABLES TGSBT.

TYPES: BEGIN OF it_tab,

GSBER LIKE TGSBT-gsber,

GTEXT LIKE TGSBT-gtext,

END OF it_tab.

DATA wa_tab TYPE STANDARD TABLE OF it_tab WITH HEADER LINE.

CLEAR: wa_tab, wa_tab[].

DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT * FROM tgsbt INTO CORRESPONDING FIELDS OF TABLE

wa_tab WHERE spras = sy-langu.

* SELECT GSBER GTEXT

* FROM TGSBT

* INTO CORRESPONDING FIELDS OF TABLE wa_tab.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'GSBER'

value_org = 'S'

dynpprog = sy-repid

dynpnr = sy-dynnr

TABLES

value_tab = wa_tab

return_tab = t_return

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.

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member — Thu, 19 Mar 2015 20:51:55 GMT

After call asign the value like this:

IF SY-SUBRC EQ 0.

READ TABLE t_returnINDEX 1.

MOVE t_return-FIELDVAL TO s_your_select_option-LOW.

ENDIF.

Regards!!

Re: EXAMPLE FOR FM 'F4IF_INT_TABLE_VALUE_REQUEST'

former_member612135 — Fri, 17 Apr 2015 04:51:25 GMT

'F4IF_INT_TABLE_VALUE_REQUEST' "100% working

PROCESS AFTER INPUT.

PROCESS ON VALUE-REQUEST.

FIELD P9946-VORNR MODULE VAL_VORNR.

MODULE VAL_VORNR INPUT.
TABLES:v_npact.

********* Activity ************ Start
* TABLES: v_npact.

DATA: BEGIN OF i6_tab OCCURS 0,
vornr TYPE v_npact-LTXA1,
MLTXA1 TYPE v_npact-VORNR,
END OF i6_tab.

DATA: w6_tab LIKE i6_tab.

DATA: RETURN_TAB type standard table of DDSHRETVAL WITH HEADER LINE.

IF P9946-NPLNR <> ''.
SELECT LTXA1 VORNR
INTO TABLE i6_tab
FROM v_npact
WHERE AUFNR = P9946-NPLNR.

IF SY-SUBRC = 0.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield        = 'P9946-VORNR'
value_org       = 'S'
*                    dynpprog     = sy-repid
*                    dynpnr       = sy-dynnr
TABLES
value_tab       = i6_tab
return_tab      = RETURN_TAB
*                   field_tab       = w6_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.

P9946-VORNR = return_tab-FIELDVAL.

ENDIF.
ELSE.
MESSAGE i018(3e) WITH 'Please Enter Network'.
ENDIF.

ENDMODULE.                 " VAL_VORNR INPUT