Привет всем !

Сижу разбираюсъ с чужим кодом. Имеет ли какой-либо смысл код, помеченный мною "?" в начале строк? По-моему, нет. А как вы считаете ?

FUNCTION VRM_SET_VALUES.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(ID) TYPE VRM_ID
*" REFERENCE(VALUES) TYPE VRM_VALUES
*" EXCEPTIONS
*" ID_ILLEGAL_NAME
*"----------------------------------------------------------------------
FIELD-SYMBOLS: <VS> LIKE LINE OF VALUESETS.
data vs like line of valuesets.

PERFORM TRANSLATE_ID CHANGING ID.
READ TABLE VALUESETS ASSIGNING <VS> WITH KEY ID = ID binary search.
IF SY-SUBRC = 0. "Id already there...
IF VALUES <> <VS>-VALUES.
? CLEAR <VS>. "Sync, Requested, etc.
? <vs>-id = id.
? <VS>-VALUES = VALUES.
ENDIF.
ELSE. "New Id
VS-ID = ID.
VS-VALUES = VALUES.
clear vs-md5.
insert vs into VALUESETS index sy-tabix.
ENDIF.
ENDFUNCTION.

имеет
Обновляет значения в случае, если список уже заводился, но значения изменились.


ЗЫ Это круто сказано "разбираюсь с чужим кодом" Это стандартный модуль %)

Данная функция устанавливает значения для listbox-a
Отмеченные тобой строки проверяют :

были ли уже установлены эти значения:
если да - то проверяются совпадают ли они,
--- если разные, то устанавливают новые значения,
если нет - то создают новые значения.

В принципе, вместо
IF VALUES <> <VS>-VALUES.
CLEAR <VS>. "Sync, Requested, etc.
<vs>-id = id.
<VS>-VALUES = VALUES.
ENDIF.
можно было оставить просто
CLEAR <VS>. "Sync, Requested, etc.
<vs>-id = id.
<VS>-VALUES = VALUES.

но, видимо, так оптимальнее: сделать проверку

Конечно имеет.

вот этот кусок читает запись в таблице и присваивает указатель на запись.
Теперь через этот указатель можно менять данные в записи таблицы без использования header line, что и делается здесь

Подробная информация - здесь

Спасибо за помощь.