Choose an entry in Search help and not in its input field

Question

Hi to all,
In my application I have a field with a search help.
I want that this field only can be modified using a search help and this field can't be modified directly writing in this field.
Is similar to transaction se63 - Translation - Abap objects - Short texts - OTR - Source language
I have created an example with the field SCARR-CARRID but this field can be modified with search help and directly, or this field can't be modified.
In my application I have done the following:
-> Screen painter (layout):
Name: SCARR-CARRID
Input Field: not marked
Output Field: marked
Possible entries: marked
Possible entries keys: 2
-> Flow logic:
PROCESS BEFORE OUTPUT.
MODULE IMPORT_DATA_0001.
PROCESS AFTER INPUT.
MODULE EXPORT_DATA_0001.
PROCESS ON VALUE-REQUEST.
FIELD SCARR-CARRID MODULE listbox.
PROCESS ON HELP-REQUEST.
MODULE listbox INPUT.
TYPES:
BEGIN OF VRM_VALUE,
KEY(40) TYPE C,
TEXT(80) TYPE C,
END OF VRM_VALUE,
VRM_VALUES TYPE VRM_VALUE OCCURS 0,
VRM_ID TYPE VRM_VALUE-TEXT,
VRM_IDS TYPE VRM_ID OCCURS 0.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
CHECK list[] IS INITIAL.
name = 'SCARR-CARRID'.
SELECT carrid CARRNAME FROM SCARR
INTO (value-key,value-text).
APPEND value TO list.
ENDSELECT.
SORT list BY text.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
ENDMODULE. " LISTBOX INPUT
How can i solve this problem?
Thanks a lot.

Answer 1

Hi Jey:
I have tried this:
MODULE listbox INPUT.
  TYPES: BEGIN OF vrm_value,
           key(40)  TYPE c,
           text(80) TYPE c,
         END OF vrm_value,
  vrm_values TYPE TABLE OF vrm_value,
  vrm_id     TYPE vrm_value-text,
  vrm_ids    TYPE TABLE OF vrm_id.
  DATA: name       TYPE vrm_id,
        list       TYPE TABLE OF vrm_value WITH HEADER LINE,
        poplist    TYPE TABLE OF spopli WITH HEADER LINE,
        popanswer  TYPE c,
        popindex   TYPE i,
        value      TYPE vrm_value,
        lt_dyntab  TYPE TABLE OF dynpread  WITH HEADER LINE,
        dynpprog   TYPE syrepid VALUE 'SAPMZxxxx',           "Enter your dynpro here
        dynpnr     TYPE sydynnr VALUE '0100',          "Enter your screen number here
        dynpfield  TYPE help_info-dynprofld VALUE 'SCARR-CARRID'.
  IF list[] IS INITIAL.
    name = 'SCARR-CARRID'.
    SELECT carrid carrname FROM scarr
    INTO (value-key,value-text).
      APPEND value TO list.
      poplist-varoption = value-text.
      APPEND poplist.
    ENDSELECT.
  ENDIF.
Use some method to display a list for selection
Here is a simplified way of doing it but there are
much more sofisiticated methods.
  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
       EXPORTING
            textline1          = 'Select an entry'
            titel              = 'Selection'
       IMPORTING
            answer             = popanswer
       TABLES
            t_spopli           = poplist
       EXCEPTIONS
            not_enough_answers = 1
            too_much_answers   = 2
            too_much_marks     = 3
            OTHERS             = 4.
  CHECK sy-subrc = 0.
  CHECK popanswer NE 'A'.
  popindex = popanswer.
  READ TABLE list INDEX popindex.
  IF sy-subrc = 0.
    lt_dyntab-fieldvalue = list-key.
  ENDIF.
Update the screen field with the selected value
  lt_dyntab-fieldname  = dynpfield.
  APPEND lt_dyntab.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
       EXPORTING
            dyname               = dynpprog
            dynumb               = dynpnr
       TABLES
            dynpfields           = lt_dyntab
       EXCEPTIONS
            invalid_abapworkarea = 1
            invalid_dynprofield  = 2
            invalid_dynproname   = 3
            invalid_dynpronummer = 4
            invalid_request      = 5
            no_fielddescription  = 6
            undefind_error       = 7
            OTHERS               = 8.
ENDMODULE. " LISTBOX INPUT
I think that there is a error that I have not seen because I put a breakpoint at the beginning of your code and the execution doesn`t stop.
Now I execute the dynpro and appears my field 'SCARR-CARRID' and I can't choose a value and I can write in input field.
Can you help me?
Thanks a lot.