Полезная функция возвращающая список заводов и областей оценки присвоенных одному коду БЕ. Вообще-то конечно это все можно и самому выбрать из двух таблиц T001K и T001W и оформить это дело или процедурой или своим ФМ, но если люди уже за вас поработали, то чего бы и не воспользоваться уже имеющимся. К тому же нефиг брать пример с индусов, которым похоже так и продолжают платить за количество написанных строк кода.
Пример вызова:
DATA: l_bukrs LIKE t001k-bukrs,
lt_001k LIKE t001k OCCURS 1 WITH HEADER LINE,
lt_001w LIKE t001w OCCURS 1 WITH HEADER LINE.
CALL FUNCTION 'K_WERKS_OF_BUKRS_FIND'
EXPORTING
bukrs = l_bukrs
TABLES
itab_001k = lt_001k
itab_001w = lt_001w
EXCEPTIONS
no_entry_in_t001k = 1
no_entry_in_t001w = 2
OTHERS = 3.