Want to have F4 help from an internal table in Module Pool.

Question

Hi,
I have a input/output field in a Module pool program. I want to attach an F4 help on this from an internal table.
Please suggest me some techniques.
Thanks in advance..

Answer 1

Hi all,
This is the piece of  code I have written...But I am getting the message "No Values Found"-
DECLARATION
TYPES:
     BEGIN OF ty_shipto,
     ship_to TYPE kunnr,
     END OF ty_shipto.
DATA:
        tb_shipto TYPE TABLE OF ty_shipto,
       wa_shipto TYPE ty_shipto.
REFRESH:
        tb_shipto.
CLEAR:
       wa_shipto.
TABLE TB_SHIPTO IS FILLED
SELECT spart
    FROM mara
    INTO CORRESPONDING FIELDS OF TABLE mara_it
    FOR ALL ENTRIES IN vlcvehicle_it
    WHERE matnr = vlcvehicle_it-matnr.
  LOOP AT vlcvehicle_it INTO vlcvehicle_ls.
    MOVE-CORRESPONDING vlcvehicle_ls TO wa_vehinfo.
    APPEND wa_vehinfo TO tb_vehinfo.
  ENDLOOP.
  LOOP AT mara_it INTO mara_ls.
    MOVE-CORRESPONDING mara_ls TO wa_vehinfo.
    APPEND wa_vehinfo TO tb_vehinfo.
  ENDLOOP.
  LOOP AT vlcvehicle_it INTO vlcvehicle_ls.
    MOVE vlcvehicle_ls-vhcle TO va_vhcle.
    CALL FUNCTION 'ZCN_SD_GET_VLC_BRAND'
      EXPORTING
        in_vhcle          = va_vhcle
      IMPORTING
        out_distr_channel = va_vtweg.
    MOVE va_vtweg TO wa_vtweg.
    MOVE-CORRESPONDING wa_vtweg TO wa_vehinfo.
    APPEND wa_vehinfo TO tb_vehinfo.
  ENDLOOP.
  CLEAR:
       va_vtweg.
  IF tb_vehinfo[] IS NOT INITIAL.
    LOOP AT tb_vehinfo INTO wa_vehinfo.
      MOVE wa_vehinfo-kunnr TO va_kunnr.
      IF va_kunnr IS NOT INITIAL.
        MOVE va_kunnr TO va_kunnr_final.
      ENDIF.
      MOVE wa_vehinfo-zvkorg TO va_vkorg.
      IF va_vkorg IS NOT INITIAL.
        MOVE va_vkorg TO va_vkorg_final.
      ENDIF.
      MOVE wa_vehinfo-spart  TO va_spart.
      IF va_spart IS NOT INITIAL.
        MOVE va_spart TO va_spart_final.
      ENDIF.
      MOVE wa_vehinfo-vtweg  TO va_vtweg.
      IF va_vtweg IS NOT INITIAL.
        MOVE va_vtweg TO va_vtweg_final.
      ENDIF.
    ENDLOOP.
  ENDIF.
  SELECT kunn2
    FROM knvp
    INTO TABLE tb_shipto
    WHERE kunnr = va_kunnr_final  AND
          vkorg = va_vkorg_final  AND
          spart = va_spart_final  AND
          vtweg = va_vtweg_final  AND
          parvw = 'WE'.
POV- TXT_SHIPTO_NVAL_NAR IS THE FIELD NAME IN DYNPRO
PROCESS ON VALUE-REQUEST.
  FIELD:
       txt_shipto_nval_nar     MODULE f4_help_shipto_nar.
MODULE f4_help_shipto_nar INPUT.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'SHIP_TO'
      dynpprog         = sy-repid
      callback_program = sy-repid
      dynpnr           = sy-dynnr
      dynprofield      = 'TXT_SHIPTO_NVAL_NAR'
    TABLES
      value_tab        = tb_shipto
      return_tab       = return_tab.
ENDMODULE.                 " M_F4_HELP_NVAL_SHIPTO  INPUT
The code is runnig error free but I am unable to see any popup.
Message displayed: "No Values Found". But, I have checked in debugging that the table TB_SHIPTO contains some values when the FM is called.
Please point out the mistake.
Thanks in advance.