Code: Alles auswählen.
TYPE-POOLS vrm.
DATA:
lt_values TYPE vrm_values,
lv_value TYPE vrm_value,
lv_key(40) TYPE n.
DATA: ok_code TYPE sy-ucomm.
START-OF-SELECTION.
CALL SCREEN 100.
MODULE user_command_100.
IF ok_code = 'X'.
IF dynprofeld = 'A'.
PERFORM clear.
PERFORM add_value USING: 'aa','ab','ac'.
ELSEIF dynprofeld = 'B'.
PERFORM clear.
PERFORM add_value USING: 'ba','bb'.
ELSEIF dynprofeld = 'C'.
PERFORM clear.
PERFORM add_value USING: 'c'.
ENDIF.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'dynprofeld'
values = lt_values.
ENDIF.
ENDMODULE.
*---------------------------------------------------------------------*
* FORM clear
*---------------------------------------------------------------------*
FORM clear.
lv_key = 0.
CLEAR lv_value.
CLEAR lt_values.
ENDFORM.
*---------------------------------------------------------------------*
* FORM add_value *---------------------------------------------------------------------*
FORM add_value USING f_text.
STATICS lv_key.
ADD 1 TO lv_key.
lv_value-key = lv_key.
lv_value-text = f_text.
APPEND lv_value TO lt_values.
ENDFORM.
Code: Alles auswählen.
DATA: possible_values_id TYPE vrm_id VALUE 'ENTRYFIELD'.
CALL FUNCTION 'VRM_DELETE_VALUES'
EXPORTING
id = possible_values_id
EXCEPTIONS
id_not_found = 1
OTHERS = 2.Code: Alles auswählen.
DATA:
lt_values TYPE vrm_values,
lv_value TYPE vrm_value,
lv_key(40) TYPE n.
DATA: name_id TYPE vrm_id VALUE 'meinFeld'.
FORM clear.
CALL FUNCTION 'VRM_GET_VALUES'
EXPORTING
id = name_id
EXCEPTIONS
id_not_found = 1
OTHERS = 2.
IF sy-subrc = 1.
* MESSAGE i888(sabapdocu) WITH 'id_not_found'.
ELSEIF sy-subrc = 2.
* MESSAGE i888(sabapdocu) WITH 'OTHERS'.
ELSE.
CALL FUNCTION 'VRM_DELETE_VALUES'
EXPORTING
id = name_id
EXCEPTIONS
id_not_found = 1
OTHERS = 2.
IF sy-subrc = 1.
MESSAGE i888(sabapdocu) WITH 'id_not_found'.
ELSEIF sy-subrc = 2.
MESSAGE i888(sabapdocu) WITH 'OTHERS'.
ELSE.
ENDIF.
ENDIF.
clear meinFeld.
clear lt_values.
clear lv_key.
ENDFORM.
FORM add_value USING f_text.
STATICS lv_key.
ADD 1 TO lv_key.
lv_value-key = lv_key.
lv_value-text = f_text.
APPEND lv_value TO lt_values.
ENDFORM.
Code: Alles auswählen.
...
clear liste.
clear value-key.
...
FORM add_value USING f_text.
value-key = value-key + 1.
value-text = f_text.
APPEND value TO liste.
ENDFORM.