F4 Help IN ALV (OOPs) based on value entered in Other colunm.

Question

Hi,
I have developed a module pool using ALV GRID Display.
i have two fields in it. and for the second field i should provide F4 help. and the list in the f4 help should be based on the value enterd in first column.
below is my code.
MODULE BPO_100 OUTPUT.
DATA: LT_FCAT TYPE LVC_T_FCAT.
DATA: ls_fcat    TYPE lvc_s_fcat.
DATA: wa type t_znout.
*DATA: it_kd1 LIKE zish_pm_cs_kd1fd OCCURS 0 WITH HEADER LINE.
SELECT * FROM zish_pm_cs_kd1fd INTO TABLE it_kd1 WHERE einri = rnpa1-einri.
  IF sy-subrc = 0.
    SORT it_kd1 BY sno.
  ENDIF.
  DELETE ADJACENT DUPLICATES FROM it_kd1 COMPARING fieldname.
LOOP AT it_kd1 into wa.
clear wa-value.
MODIFY it_kd1 FROM wa.
ENDLOOP.
       ls_fcat-fieldname = 'FIELDNAME'.
       ls_fcat-scrtext_l = 'Field name'.
       ls_fcat-scrtext_m = 'Field name'.
       ls_fcat-scrtext_s = 'Field name'.
       ls_fcat-tabname   = '1'.
       ls_fcat-col_pos = '1'.
       ls_fcat-outputlen = 15.
       APPEND ls_fcat TO lt_fcat.
       ls_fcat-fieldname = 'VALUE'.
       ls_fcat-scrtext_l = 'Value'.
       ls_fcat-scrtext_m = 'Value'.
       ls_fcat-scrtext_s = 'Value'.
       ls_fcat-tabname   = '1'.
       ls_fcat-col_pos = '2'.
       ls_fcat-outputlen = 15.
       ls_fcat-edit = 'X'.
       ls_fcat-f4availabl = 'X'.
       APPEND ls_fcat TO lt_fcat.
IF G_CUSTOM_CONTAINER1 IS INITIAL.
create a custom container control for our ALV Control
    CREATE OBJECT g_custom_container1
        EXPORTING
            container_name = g_container1
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
        IF sy-subrc ne 0.
add your handling, for example
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = 'ZISH_SCRN_ALV'
          txt2  = sy-subrc
          txt1  = 'The control could not be created'(510).
    ENDIF.
create an instance of alv control
    CREATE OBJECT grid1
           EXPORTING i_parent = g_custom_container1.
  CALL METHOD grid1->set_table_for_first_display
           EXPORTING
            i_structure_name = 'ZISH_PA_ZNOUT'
      i_default        = gs_test_1700-vari_default
             i_default        = 'X'
            i_save           = gs_test_1700-vari_save
            is_variant       = ls_vari
            is_layout        = gs_layout1
           CHANGING
             it_outtab        = it_kd1
             IT_FIELDCATALOG  = LT_FCAT.
ENDIF.
ENDMODULE.                 " BPO_100  OUTPUT
Edited by: Guru Ram on Sep 24, 2009 8:58 AM

Answer 1

See sample code.
I have 2 fields  MATNR and DESC in screen 100. Change it according to ur needs.
In screen flow logic,
PROCESS ON VALUE-REQUEST.
  FIELD  desc MODULE module_desc. " F4 for screen field DESC based on value entered in field MATNR
In report,
MODULE module_desc INPUT.
  TABLES: ddshretval.
  DATA:  l_t_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
           l_t_dynpread1 LIKE dynpread OCCURS 0 WITH HEADER LINE.
  DATA: l_t_retdynr TYPE TABLE OF ddshretval,
          l_wa_retdynr LIKE LINE OF l_t_retdynr.
  DATA: BEGIN OF g_t_desc OCCURS 0,
        maktx TYPE makt-maktx,
        END OF g_t_desc,
        wa LIKE g_t_desc.
  l_t_dynpread-fieldname = 'MATNR'.  " Field1 name
  APPEND l_t_dynpread.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = '0100'
    TABLES
      dynpfields           = l_t_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.
  READ TABLE l_t_dynpread INDEX 1.
  IF l_t_dynpread-fieldvalue IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'  " Converting matnr to 18 digits
EXPORTING
input = l_t_dynpread-fieldvalue
IMPORTING
output = l_t_dynpread-fieldvalue.
    SELECT maktx FROM makt INTO TABLE g_t_desc WHERE matnr = l_t_dynpread-fieldvalue.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
            EXPORTING
              retfield        = 'MAKTX'
              dynpprog        = sy-repid
              dynpnr          = sy-dynnr
              value_org       = 'S'
            TABLES
              value_tab       = g_t_desc
              return_tab      = l_t_retdynr
            EXCEPTIONS
              parameter_error = 1
              no_values_found = 2
              OTHERS          = 3.
    READ TABLE l_t_retdynr INTO l_wa_retdynr INDEX 1.
    IF sy-subrc = 0.
      l_t_dynpread1-fieldname = l_wa_retdynr-fieldname.
      l_t_dynpread1-fieldvalue =  l_wa_retdynr-fieldval.
      APPEND l_t_dynpread1.
      l_t_dynpread1-fieldname = 'DESC'. " Field2 name
      APPEND l_t_dynpread1.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = sy-repid
          dynumb               = sy-dynnr
        TABLES
          dynpfields           = l_t_dynpread1
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield  = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription  = 6
          undefind_error       = 7
          OTHERS               = 8.
    ENDIF.
  ENDIF.
ENDMODULE.                 " module_desc  INPUT
Thanks.