Code reusabilty for custom F4 helps

Question

Hi Folks,
i want to reuse my code for F4 functionality like
im having two characterstics selections screen fields,
im creating custom f4 helps since both are same
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CHNAM1-LOW.
  PERFORM CHAR_F4_HELP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CHNAM2-LOW.
  PERFORM CHAR_F4_HELP.
FORM CHAR_F4_HELP .
DATA: BEGIN OF T_KLAH OCCURS 0,
     CLINT TYPE CLINT,
      END OF T_KLAH.
  DATA: BEGIN OF T_KSML OCCURS 0,
        IMERK TYPE ATINN,
        END OF T_KSML.
DATA: BEGIN OF T_CABN OCCURS 0,
        ATINN TYPE ATINN,
        ATNAM TYPE ATNAM,
        END OF T_CABN.
  DATA: BEGIN OF T_CABNT OCCURS 0,
       ATINN TYPE ATINN,
       SPRAS TYPE SPRAS,
       ATBEZ TYPE ATBEZ,
       END OF T_CABNT.
  DATA: BEGIN OF T_FINAL OCCURS 0,
        ATNAM TYPE ATNAM,
        ATBEZ TYPE ATBEZ,
          END OF T_FINAL.
  DATA: T_RETURN3 LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE,
        V_NEW TYPE P.
        w_cabns type atinn .
  IF NOT S_CLASS1 IS INITIAL.
    SELECT CLINT FROM KLAH INTO TABLE T_KLAH
                      WHERE KLART = '011' AND
                        CLASS =   S_CLASS1-LOW .
    IF NOT T_KLAH[] IS INITIAL.
      SELECT IMERK FROM KSML INTO TABLE T_KSML
        FOR ALL ENTRIES IN T_KLAH
                   WHERE CLINT = T_KLAH-CLINT.
    ENDIF.
    IF NOT T_KSML[] IS INITIAL.
      SELECT ATINN ATNAM FROM CABN INTO TABLE T_CABN
         FOR ALL ENTRIES IN T_KSML
             WHERE ATINN = T_KSML-IMERK.
      SELECT ATINN SPRAS ATBEZ FROM CABNT INTO TABLE T_CABNT
         FOR ALL ENTRIES IN T_KSML
                   WHERE ATINN = T_KSML-IMERK.
    ENDIF.
    REFRESH T_FINAL[].
    LOOP AT T_CABN.
      T_FINAL-ATNAM = T_CABN-ATNAM.
      READ TABLE T_CABNT WITH KEY ATINN = T_CABN-ATINN  SPRAS = 'E'.
      T_FINAL-ATBEZ = T_CABNT-ATBEZ.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDLOOP.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        RETFIELD        = 'ATNAM'
        DYNPPROG        = SY-CPROG
        DYNPNR          = SY-DYNNR
        DYNPROFIELD     = 'S_CHNAM1-LOW'
        VALUE_ORG       = 'S'
      TABLES
        VALUE_TAB       = T_FINAL
        RETURN_TAB      = T_RETURN3
      EXCEPTIONS
        PARAMETER_ERROR = 1
        NO_VALUES_FOUND = 2
        OTHERS          = 3.
    IF SY-SUBRC = 0.
      READ TABLE T_RETURN3 WITH KEY RETFIELD = 'S_CHNAM1-LOW'.
      IF SY-SUBRC EQ 0.
        S_CHNAM1-LOW = T_RETURN3-FIELDVAL.
        SELECT ATINN FROM CABN INTO W_CABNS
               WHERE ATNAM = T_RETURN3-FIELDVAL.
        ENDSELECT.
      ENDIF.
    ENDIF.
  ENDIF.
i want to use the same for my s_chnam2 , s_cham3 fields etc.,
please give some inputs.
Thanks,
Shwetha

Answer 1

FORM get_f4cvalues  USING    p_ifield
                  CHANGING   p_ofield
                             p_table TYPE ANY TABLE.
  TYPES : BEGIN OF t_cabnt,
           atinn TYPE atinn,
           spras TYPE spras,
           atbez TYPE atbez,
          END OF t_cabnt.
  TYPES : BEGIN OF t_cabn,
           atinn TYPE atinn,
           atnam TYPE atnam,
         END OF t_cabn.
  TYPES: BEGIN OF t_final,
          atnam TYPE atnam,
          atbez TYPE atbez,
        END OF t_final.
  DATA : lt_cabnt  TYPE STANDARD TABLE OF t_cabnt,
         lt_cabn   TYPE STANDARD TABLE OF t_cabn,
         lt_final  TYPE STANDARD TABLE OF t_final,
         lwa_cabnt TYPE t_cabnt,
         lwa_cabn  TYPE t_cabn,
         lwa_final TYPE t_final,
         lv_svalue TYPE dynpread-fieldvalue..
  DATA :  lt_return      TYPE STANDARD TABLE OF ddshretval, " Selected
          lwa_return     TYPE ddshretval.                  " Workarea
  PERFORM get_screen_values USING    p_ifield
                            CHANGING lv_svalue.
  IF v_fieldvalue <> lv_svalue.
    CLEAR : v_fieldvalue.
    v_fieldvalue = lv_svalue.
    CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'
      EXPORTING
        input  = lv_svalue
      IMPORTING
        output = lv_svalue.
    SELECT atinn
           atnam FROM cabn
                 INTO TABLE lt_cabn
                 WHERE atinn = lv_svalue.
    SELECT atinn
           spras
           atbez FROM cabnt
                 INTO TABLE lt_cabnt
                 WHERE atinn = lv_svalue.
    REFRESH : lt_final, p_table.
    LOOP AT lt_cabn INTO lwa_cabn.
      lwa_final-atnam = lwa_cabn-atnam.
      READ TABLE lt_cabnt INTO lwa_cabnt WITH KEY
                                            atinn = lwa_cabn-atinn
                                            spras = 'E'.
      IF sy-subrc = 0.
        lwa_final-atbez = lwa_cabnt-atbez.
      ENDIF.
      APPEND lwa_final TO lt_final.
      CLEAR : lwa_final, lwa_cabn, lwa_cabnt.
    ENDLOOP.
    SORT lt_final.
    p_table[] = lt_final[].
  ENDIF.
  lt_final[] = p_table[].
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ATNAM'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select Size'
      display         = ' '
      value_org       = 'S'
    TABLES
      value_tab       = lt_final
      return_tab      = lt_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.
* Check whether LT_RETURN is blank
  CHECK NOT lt_return[] IS INITIAL.
  READ TABLE lt_return INTO lwa_return INDEX 1.
  CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
    EXPORTING
      input  = lwa_return-fieldval
    IMPORTING
      output = p_ofield.
  REFRESH : lt_return.
  CLEAR : lwa_return.
ENDFORM.                    " GET_F4CVALUES
FORM get_screen_values  USING    p_ifield
                        CHANGING p_svalue.
  DATA : lt_dynpread   TYPE  STANDARD TABLE OF dynpread,
         lwa_dynpread  TYPE dynpread,
         lv_repid      TYPE sy-repid.
  lwa_dynpread-fieldname = p_ifield.
  APPEND lwa_dynpread TO lt_dynpread.
  CLEAR lwa_dynpread.
  lv_repid = sy-repid.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname                         = lv_repid
      dynumb                         = '1000'
*   TRANSLATE_TO_UPPER             = ' '
*   REQUEST                        = ' '
*   PERFORM_CONVERSION_EXITS       = ' '
*   PERFORM_INPUT_CONVERSION       = ' '
*   DETERMINE_LOOP_INDEX           = ' '
    TABLES
      dynpfields                     = lt_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.
  READ TABLE lt_dynpread INTO lwa_dynpread INDEX 1.
  IF sy-subrc = 0.
    p_svalue = lwa_dynpread-fieldvalue.
  ENDIF.
ENDFORM.                    " GET_SCREEN_VALUES
Thanks & Regards
Bala Krishna