topic Re: F4IF_INT_TABLE_VALUE_REQUEST in Application Development and Automation Discussions

F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:27:11 GMT

Hi,

I am using F4IF_INT_TABLE_VALUE_REQUEST FOR F4 HELP. I getting values in internal table for this function module.but my values are not displaying in the help screen.

Please give me the inputs y they are not displaying in the screen.

Regards

Rasheed

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:30:48 GMT

hi,

here are the various ways of applying search help, see if have done in this manner only:

**************search help******************

use function module:

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
*   DDIC_STRUCTURE         = 'tab'
    retfield               = 'WERKS'
*   PVALKEY                = ' '
   DYNPPROG               = sy-repid
   DYNPNR                 = sy-dynnr
   DYNPROFIELD            = 'S_WERKS'
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
   VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = 'X'
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
  tables
    value_tab              = it_tab[]
*   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.

can follow these simple steps for search help:

go to se11==> put some name after ticking search help radiobutton==> create==>
then tick " elementery search help " and press enter ===>then put description and table name in selection method ===>then put the field on which u want search help
in search help parameter==> tick IMP EXP ==> write 1 in lpos and spos===>save and activate===> double click on table name ===>  select that field and press *search help tab* above===> then copy

special requirement:

I requirement in selection screen.

There are 2parameters in selection screen. For e.g. matnr and werks.

If I am giving matnr then respect to that matnr i should get only those plant in F4 help.

Solution:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR werks.

select the werks based on plant in internal.table

use f.m

F4IF_INT_TABLE_VALUE_REQUEST.

and pass the i.tab here in

tables

value_t = i.tab

Follow the psudo code below.

Note: it_matnr has only single field MATNR.

*--- Return table to handle selected field in F4 help ---*

data: it_return like ddshretval occurs 0 with header line.

parameters: p_matnr type marc-matnr,

p_werks type marc-werks.

at selection-screen on value-request for p_repnam.

select matnr

from marc

into table it_matnr

where werks eq p_werks.

call function 'F4IF_INT_TABLE_VALUE_REQUEST'

exporting

retfield = 'OBJ_NAME'

dynpprog = sy-cprog

dynpnr = sy-dynnr

value_org = 'S'

callback_program = sy-cprog

tables

value_tab = it_matnr

return_tab = it_return

exceptions

parameter_error = 1

no_values_found = 2.

if sy-subrc eq 0.

loop at it_return.

clear p_repnam.

p_repnam = it_return-fieldval.

endloop.

endif.

3 methods of applyind search help:

For search help sometimes we use MATCHCODE----->when we apply it directly to parameter or select option.they are obselete now ii.For search help sometimes we CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' ??------->if we want to populate data of internal table as search help.
iii.For search help sometimes we declare tablename-fieldname in selection?------>if that field in that table is having seach help or check table ..F4 will be avaliable directly.
also:

thaks and regards

rahul sharma

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:30:55 GMT

hi,

Refer the given below code.




         TYPES: BEGIN OF temp,
                 zgjahr TYPE t090ns-zgjahr,
               END OF temp.



  data: it_temp type standard table of temp.

        select zgjahr from t090ns into table it_temp.
        sort it_temp .
        delete adjacent duplicates from it_temp.


        CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
          EXPORTING
*           DDIC_STRUCTURE         = ' '
            retfield               = 'zgjahr'  " data base table field name
*           PVALKEY                = ' '
           DYNPPROG               = 'SAPMZTABCLC '  " program name
           DYNPNR                 = '9000'          "screen name
           DYNPROFIELD            = 'YEAR'  " layot field name
*           STEPL                  = 0
*           WINDOW_TITLE           =
*           VALUE                  = ' '
           VALUE_ORG              = 'S'
*           MULTIPLE_CHOICE        = ' '
*           DISPLAY                = ' '
*           CALLBACK_PROGRAM       = ' '
*           CALLBACK_FORM          = ' '
*           MARK_TAB               =
*         IMPORTING
*           USER_RESET             =
          tables
            value_tab              = it_temp   " internal talble name
*           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.


ENDMODULE.                 " CALL_SCREEN  INPUT

Thanks

Arun

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:31:25 GMT

use refresh table display to display the value

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:31:35 GMT

Plz provide u r ABAP code

Kiran

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:31:46 GMT

Hello,

try this:

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'ZZMTBUR_G'

dynpprog = sy-repid

dynpnr = sy-dynnr

value_org = 'C'

TABLES

value_tab = gi_f4help

field_tab = gi_fields_tab

return_tab = li_ret_tab

dynpfld_mapping = li_dselc

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc EQ 0.

LOOP AT li_ret_tab INTO ls_ret_tab WHERE fieldname = 'ZZMTBUR'.

zzmtbur_g = ls_ret_tab-fieldval.

CLEAR: ls_ret_tab.

ENDLOOP.

ENDIF.

After you get the values in the return table populate them to the required screen field.

Thanks

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:33:02 GMT

hi,

refer below link

Regards

Md.MahaboobKhan

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:34:13 GMT

Hello,

Please check if the retrieving field name is specified while calling the function module.

The call to the FM should be of the format:

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

TABNAME = table/structure

FIELDNAME = 'field name'

DYNPPROG = SY-CPROG

DYNPNR = SY-DYNR

DYNPROFIELD = 'screen field'

IMPORTING

RETURN_TAB = table of type DYNPREAD

Thanks and Regards,

Sowmya Arni

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:34:59 GMT

Hello,

Please check if the retrieving field name is specified while calling the function module.

The call to the FM should be of the format:

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

TABNAME = table/structure

FIELDNAME = 'field name'

DYNPPROG = SY-CPROG

DYNPNR = SY-DYNR

DYNPROFIELD = 'screen field'

IMPORTING

RETURN_TAB = table of type DYNPREAD

Thanks and Regards,

Sowmya Arni

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:43:57 GMT

Hi,

Please define the fields of the internal table as the type of any data element. Since this function module requires the Field label which we define in Data element to display the name of the columns of F4 help screen

Hope it helps

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:49:55 GMT

Hi,

Check out this wiki written by me, it having example also.

https://www.sdn.sap.com/irj/scn/wiki?path=/pages/viewpage.action&pageid=68191480

Thanks,

Krishna..

Re: F4IF_INT_TABLE_VALUE_REQUEST

Former Member — Tue, 24 Mar 2009 08:59:11 GMT


MODULE SOURCE_HELP INPUT.

  DATA: W_PROGNAME LIKE SY-REPID,

  W_SCR_NUM LIKE SY-DYNNR .

  DATA: RETURN_VALUES LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
  DATA: ITAB_DYNPFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
  T_DYNPFIELDS LIKE DYNPREAD.
  DATA: T_DYNAME LIKE D020S-PROG,

  T_DYNUMB LIKE D020S-DNUM.

  DATA: BEGIN OF INT_F4 OCCURS 0,
        KUNNR TYPE VBAK-KUNNR,
        VBELN TYPE VBAK-VBELN,
        AUDAT TYPE VBAK-AUDAT,
        END OF INT_F4.

****GETTING RECORDS IN THE INTERNAL TABLE FOR F4 DISPLAY

  SELECT KUNNR VBELN AUDAT
   INTO  TABLE INT_F4
   FROM VBAK
   UP TO 10 ROWS.
  CLEAR INT_F4.

****function module to get pop-up window of f4.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = 'VBELN'
      DYNPPROG        = W_PROGNAME
      DYNPNR          = W_SCR_NUM
      DYNPROFIELD     = 'KUNNR'
      VALUE_ORG       = 'S'
    TABLES
      VALUE_TAB       = INT_F4
      RETURN_TAB      = RETURN_VALUES
    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.
  ELSE .
    KUNNR = RETURN_VALUES-FIELDVAL.
  ENDIF.

  REFRESH ITAB_DYNPFIELDS. CLEAR: ITAB_DYNPFIELDS.
  T_DYNPFIELDS-FIELDNAME = 'KUNNR'.
  APPEND T_DYNPFIELDS TO ITAB_DYNPFIELDS.
  T_DYNUMB = SY-DYNNR.
  T_DYNAME = SY-REPID.

* This function module must have the values added to
* the internal table that you need t oread.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = T_DYNAME
      DYNUMB               = T_DYNUMB
    TABLES
      DYNPFIELDS           = ITAB_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 <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  LOOP AT ITAB_DYNPFIELDS.
    CASE ITAB_DYNPFIELDS-FIELDNAME.
      WHEN 'KUNNR'.
        ITAB_DYNPFIELDS-FIELDVALUE = KUNNR.
        MODIFY ITAB_DYNPFIELDS.
    ENDCASE.
  ENDLOOP.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME               = T_DYNAME
      DYNUMB               = T_DYNUMB
    TABLES
      DYNPFIELDS           = ITAB_DYNPFIELDS
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 1
      INVALID_DYNPROFIELD  = 2
      INVALID_DYNPRONAME   = 3
      INVALID_DYNPRONUMMER = 4
      INVALID_REQUEST      = 5
      NO_FIELDDESCRIPTION  = 6
      UNDEFIND_ERROR       = 7
      OTHERS               = 8.

  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  REFRESH INT_F4.
  CLEAR INT_F4.
ENDMODULE. " SOURCE_HELP INPUT

******************
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS : p_type TYPE char1.
SELECTION-SCREEN END OF BLOCK b3.

TYPES: BEGIN OF ty_values,
desc TYPE char20,
num TYPE char1,
END OF ty_values.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_type.
DATA: lv_field TYPE dfies-fieldname,
wa_values TYPE ty_values,
it_values TYPE STANDARD TABLE OF ty_values,
ls_return TYPE ddshretval,
it_return TYPE STANDARD TABLE OF ddshretval,
wa_fields TYPE dfies,
it_fields TYPE STANDARD TABLE OF dfies.

wa_values-num = '1'.
wa_values-desc = 'Internal'.
APPEND wa_values TO it_values.

wa_values-num = '2'.
wa_values-desc = 'External Supplier'.
APPEND wa_values TO it_values.

wa_values-num = '3'.
wa_values-desc = 'Internal all Info'.
APPEND wa_values TO it_values.

wa_values-num = '4'.
wa_values-desc = 'External Specific Supplier'.
APPEND wa_values TO it_values.

wa_fields-fieldname = 'DESC'.
wa_fields-SCRTEXT_M = 'Description'.
wa_fields-intlen = '40'.
wa_fields-outputlen = '40'.
APPEND wa_fields TO it_fields.

wa_fields-fieldname = 'NUM'.
wa_fields-SCRTEXT_M = 'Number'.
wa_fields-offset = '40'.
wa_fields-intlen = '2'.
wa_fields-outputlen = '2'.
APPEND wa_fields TO it_fields.

*CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'*
EXPORTING
retfield = 'NUM'
dynprofield = 'P_TYPE'
value_org = 'S'
TABLES
value_tab = it_values
field_tab = it_fields
return_tab = it_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc ne 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

READ TABLE it_return INTO ls_return
WITH KEY fieldname = 'NUM'.
IF sy-subrc EQ 0.
p_type = ls_return-fieldval.
ENDIF.

Re: F4IF_INT_TABLE_VALUE_REQUEST

Mohamed_Mukhtar — Tue, 24 Mar 2009 08:59:27 GMT

hi,

See the following pseudo code

DATA : fld(18).
SELECT-OPTIONS s_matnr FOR fld.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matnr-low.
  PERFORM f_f4help.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matnr-high.
 PERFORM f_f4help.

*&---------------------------------------------------------------------*
*&      Form  f_f4help
*&---------------------------------------------------------------------*
*       text
FORM f_f4help .
DATA : BEGIN OF it_itab OCCURS 1,
         matnr TYPE mara-matnr,
         meins TYPE mara-meins,
         END OF it_itab.

  SELECT matnr
         meins FROM mara INTO TABLE it_itab UP TO 10 ROWS.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MATNR'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = 'S_MATNR'
      value_org       = 'S'
    TABLES
      value_tab       = it_itab[]
    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.                                                    " f_f4help

Thanks & Regards