Всем Доброго утра!

Вопрос состоит в следующем: Есть Роль с полномочиями, так сказать шаблон. Мне нужно программно копировать эту роль, n-ое количество раз, изменяя при этом полномочия. Существуют ли какие-нибудь ФМ, чтобы осуществить задуманное?

Заранее Спасибо

Сам такого не делал, но наверное стоит посмотреть в сторону функциональной группы PRGN_TREE или конкретнее ФМ PRGN_COPY_AGR или PRGN_COPY_AGR_START.
Еще вариант - сделать CALL TRANSACTION pfcg USING bdc_data с соответствующими заполненными данными.

Спасибо.
Попробую. О результате потом отпишусь

Всем доброго утра.
Здесь ( https://www.sdn.sap.com/irj/sdn/thread?threadID=221810 ) я нарыл кое-что подходящее и немного подправил под себя.
Мож кому интересно будет?
Шаг первый:
Создаю копию существующей роли
call function 'PRGN_COPY_AGR'
exporting
SOURCE_AGR = ROLE-MODEL “ Существующая роль
TARGET_AGR = ROLE-NEW “ Новая роль
DISTRIBUTE_SINGLE_ROLE = ' '
exceptions
TARGET_AGRNAME_NOT_FREE = 1
SOURCE_AGR_NOT_EXISTS = 2
NO_AUTHORITY_FOR_USER_INSERT = 3
NO_AUTHORITY_FOR_TCODES_INSERT = 4
NO_AUTHORITY_FOR_OBJECT_INSERT = 5
NO_AUTHORITY_FOR_SROLE_INSERT = 6
NO_AUTHORITY_FOR_SROLE_SHOW = 7
FLAG_NOT_EXISTING = 8
ACTION_CANCELLED = 9
NO_AUTH_FOR_OBJECTS_AND_USERS = 10
NO_AUTH_FOR_SROLES_AND_USERS = 11
others = 12.
Шаг второй:
Обновляю БД и генерирую роль
call function 'PRGN_UPDATE_DATABASE'
exceptions
others = 1.
call function 'SUPRN_PROFILE_BATCH'
exporting
ACT_OBJID = ROLE-NEW
ENQUEUE = 'X'
exceptions
OBJID_NOT_FOUND = 1
NO_AUTHORIZATION = 2
GENERATION_NOT_ACTIVE = 3
EMPTY_AUTHORIZATIONS = 4
ENQUEUE_FAILED = 5
NOT_GENERATED = 6
others = 7.
Шаг третий:
Меняю значения организационных уровней в новой роли
data: MY_ORG_LEVELS type table of PT1252 with header line.
call function 'PRGN_1252_READ_ORG_LEVELS'
exporting
ACTIVITY_GROUP = ROLE-NEW
tables
ORG_LEVELS = MY_ORG_LEVELS
exceptions
NO_DATA_AVAILABLE = 1
others = 2.
loop at MY_ORG_LEVELS.
“ Меняем значения на нужные
MY_ORG_LEVELS-LOW = VALUE.
modify MY_ORG_LEVELS.
endloop.
call function 'PRGN_1252_SAVE_ORG_LEVELS'
exporting
ACTIVITY_GROUP = ROLE-NEW
tables
ORG_LEVELS = MY_ORG_LEVELS
exceptions
others = 1.
Шаг четвертый:
Меняю название новой роли
data: TEXT_TAB like AGR_TEXTS occurs 0 with header line.
TEXT_TAB-AGR_NAME = ROLE-NEW.
TEXT_TAB-SPRAS = 'R'.
TEXT_TAB-TEXT = ROLE-NAME.
append TEXT_TAB.
call function 'PRGN_RFC_CHANGE_TEXTS'
exporting
ACTIVITY_GROUP = ROLE-NEW
tables
TEXTS = TEXT_TAB
exceptions
ACTIVITY_GROUP_ENQUEUED = 1
ACTIVITY_GROUP_DOES_NOT_EXIST = 2
NAMESPACE_PROBLEM = 3
NOT_AUTHORIZED = 4
others = 5.
Шаг пятый и последний:
Снова обновляем БД без генерации
call function 'PRGN_UPDATE_DATABASE'
exceptions
others = 1.

спасибо за рецепт. всё работает, как надо.