Permitting user to choose value for a field only from F4

Question

Hi all,
   I have the following requirement in table maintenance generator.
   There is a custom field in the Z table for which table maintenance is generated to which a search help is attached.
   Now in the maintenance screen(SM30) i get a F4 value help for this field and also user can input values in this field. But the requirement is that the user should be able to select values only from F4 and should not be able to input any values.List box is not accepted.
Thanks & Regards,
Shafiq

Answer 1

Hi Jon,
   Thank you once again. The issue is solved using the 'DYNP_VALUES_UPDATE' function module.
I will put the code here for others to refer.
****ON THE SCREEN FLOW LOGIC*****
PROCESS ON VALUE-REQUEST.
  FIELD /rb05/wwr_cr_t-mvgr4 MODULE value.  "Field on which F4 is required
****MODULE IMPLEMENTATION********
*&  Include           /RB05/LYBW_WWRTTTI01
  DATA:
    l_fldval            LIKE help_info-fldvalue,
    l_repid             LIKE sy-repid,
    l_repid1            LIKE d020s-prog,
    l_dynnr             LIKE sy-dynnr,
    l_dynnr1            LIKE d020s-dnum,
    lt_return           LIKE ddshretval OCCURS 1,
    ls_return           LIKE ddshretval,
    ls_dynpread         LIKE dynpread,
    lt_dynpread         LIKE dynpread OCCURS 1,
    cnt                 TYPE i VALUE 0.
MODULE value INPUT
  MODULE value INPUT.
    GET CURSOR LINE cnt.
    l_repid = sy-repid.
    l_dynnr = sy-dynnr.
    l_repid1 = sy-repid.
    l_dynnr1 = sy-dynnr.
    CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
      EXPORTING
        tabname           = space
        fieldname         = space
        searchhelp        = '/B05/OWWRW58'
        shlpparam         = '/B05/S_WWRW58'
        dynpprog          = l_repid
        dynpnr            = l_dynnr
        dynprofield       = '/RB05/WWR_CR_T-MVGR4'
        stepl             = 0
        value             = l_fldval
        display           = 'F'   "Force
      TABLES
        return_tab        = lt_return
      EXCEPTIONS
        field_not_found   = 1
        no_help_for_field = 2
        inconsistent_help = 3
        no_values_found   = 4
        OTHERS            = 5.
    IF NOT sy-subrc IS INITIAL.
      MESSAGE s398(00) WITH 'Call to Searchhelp failed'
        space space space.
      EXIT.
    ENDIF.
    CLEAR : ls_dynpread, lt_dynpread, ls_return.
    BREAK-POINT.
    READ TABLE lt_return INTO ls_return WITH KEY retfield = '/RB05/WWR_CR_T-MVGR4'.
    IF sy-subrc EQ 0.
      ls_dynpread-fieldname  = '/RB05/WWR_CR_T-MVGR4'.
      ls_dynpread-stepl      = cnt.
      ls_dynpread-fieldvalue = ls_return-fieldval.
      APPEND ls_dynpread TO lt_dynpread.
    ENDIF.
    READ TABLE lt_return INTO ls_return WITH KEY retfield = 'TXTSH'.   "Filling the related field
    IF sy-subrc EQ 0.
      ls_dynpread-fieldname  = '/RB05/WWR_CR_T-GB'.
      ls_dynpread-stepl      = cnt.
      ls_dynpread-fieldvalue = ls_return-fieldval.
      APPEND ls_dynpread TO lt_dynpread.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = l_repid1
          dynumb               = l_dynnr1
        TABLES
          dynpfields           = lt_dynpread
        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.
  ENDMODULE.                    "value INPUT
P.S: Points alloted.
Message was edited by:
        Shafiq