Multiple Fields for F4

[former_member635962]

HI,

in my report selection screen have multiple fields.

if i change field value need to change f4 value based on that changed value.

i tried using DYNP_VALUES_READ with CONVERSION_EXIT_ALPHA_INPUT but it is accepting one filed value but i have multiple values.

any solution for this

Thanks in advance.

[Former Member]

Hi,

Do you want to read mutliple values for one field or values for multiple fields?

Cheers

~Niranjan

[laurent_fournier2]

Hi,

Call dynp_values_read for each field that you need.

example :

FORM f4_kndnr.

  data : lc_kndnr like ygrvgtm_control-kndnr.

  data : lc_gjahr like p_gjahr,

         lc_monat like p_monat.

  DATA : BEGIN OF VALID_kndnr OCCURS 0,

          KNDNR LIKE ygrvgtm_control-KNDNR,

          name1 LIKE kna1-name1,

          END OF VALID_kndnr.

  DATA       RET_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.

  clear : lc_gjahr,lc_monat.

  perform read_screen_values using 'P_GJAHR'

                          changing lc_gjahr.

  perform read_screen_values using 'P_MONAT'

                          changing lc_monat.

*---------------------------------------------------------------------*

*       FORM read_screen_values                                       *

*---------------------------------------------------------------------*

*       ........                                                      *

*---------------------------------------------------------------------*

*  -->  X_FIELD                                                       *

*  -->  Y_VALUE                                                       *

*---------------------------------------------------------------------*

FORM read_screen_values USING    x_field

                        CHANGING y_value.

  DATA: lv_dynpname LIKE d020s-prog,

        lv_dynpnumb LIKE d020s-dnum.

  DATA: BEGIN OF lt_dynpvaluetab OCCURS 1.

          INCLUDE STRUCTURE dynpread.

  DATA: END   OF lt_dynpvaluetab.

  lv_dynpname = sy-repid.

  lv_dynpnumb = sy-dynnr.

  REFRESH lt_dynpvaluetab.

  lt_dynpvaluetab-fieldname = x_field.

  APPEND lt_dynpvaluetab.

  CALL FUNCTION 'DYNP_VALUES_READ'

       EXPORTING

            dyname               = lv_dynpname

            dynumb               = lv_dynpnumb

       TABLES

            dynpfields           = lt_dynpvaluetab

       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

            OTHERS               = 10.

  IF sy-subrc = 0.

    READ TABLE lt_dynpvaluetab INDEX 1.

    MOVE: lt_dynpvaluetab-fieldvalue TO y_value.

  ENDIF.

ENDFORM.                    " read_screen_values

Regards.