F4 help in modulepool

Question

Hi Experts,
                  i have deleted standard f4 help in my program and i have added  few values in particular field.however if i clicked that f4 help it displayed only  ******  instead of added valus. can anybody help me how to do it.
Thanks
rajesh

Answer 1

see the following example
MODULE module_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 : fd_name LIKE help_info-dynprofld.
  DATA: BEGIN OF int_f4 OCCURS 0,
         kunnr TYPE kna1-kunnr,
         name1 TYPE kna1-name1,
         land1 TYPE kna1-land1,
         regio TYPE kna1-regio,
         adrnr TYPE kna1-adrnr,
        END OF int_f4.
****GETTING RECORDS IN THE INTERNAL TABLE FOR F4 DISPLAY
  SELECT kunnr name1 land1 regio adrnr
   INTO  TABLE int_f4
   FROM kna1
   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        = 'KUNNR'
            dynpprog        = w_progname
            dynpnr          = w_scr_num
            dynprofield     = 'TB_WA-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 s000(zsn) WITH 'could not find the  values'.
   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 = 'TB_WA-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.
  break developer.
  LOOP AT itab_dynpfields.
    CASE itab_dynpfields-fieldname.
      WHEN 'TB_WA-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