Добрый день,
подскажите, как можно просмотреть роли полученные от сателлитных систем в CUA

Стандартного решения не нашел, пришлось ваять....

*&---------------------------------------------------------------------*
*& REPORT ZBC_CUA_ROLES
*&
*&---------------------------------------------------------------------*
*& ЦУП: Каталог ролей
*& 2009 by Leonik
*&---------------------------------------------------------------------*

REPORT ZBC_CUA_ROLES NO STANDARD PAGE HEADING.

TABLES: USRSYSACTT,
USZBVLNDRC,
SSCRFIELDS.

TYPE-POOLS: SLIS.

DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
IT_CAT TYPE SLIS_T_FIELDCAT_ALV,
WA_CAT TYPE SLIS_FIELDCAT_ALV.

DATA: V_REPID LIKE SY-REPID .


DATA: BEGIN OF ROLE_DATA,
FAGR_NAME TYPE USRSYSACTT-AGR_NAME,
FAGR_TITLE TYPE USRSYSACTT-TEXT,
FAGR_SYSTEM TYPE USRSYSACTT-SUBSYSTEM,
END OF ROLE_DATA.

DATA: IT_ROLES_IS_USE LIKE ROLE_DATA OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN: FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF BLOCK USERS WITH FRAME TITLE T_TX_05.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(17) T_TX_01 FOR FIELD SYSTEM.
SELECT-OPTIONS: SYSTEM FOR USZBVLNDRC-RCVSYSTEM.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) T_TX_02 FOR FIELD ROLES.
PARAMETERS ROLES TYPE F_AGR_NAME .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK USERS.

INITIALIZATION.

T_TX_01 = 'Система'.
T_TX_02 = 'Роль'.
T_TX_05 = 'Критерии выбора'.

SSCRFIELDS-FUNCTXT_01 = 'Выравнивание ролей из дочерних систем'.

PERFORM INIT_LAYOUT USING GS_LAYOUT.
PERFORM CREATE_FIELD_CATALOG.

START-OF-SELECTION.

SELECT AGR_NAME TEXT SUBSYSTEM FROM USRSYSACTT
INTO IT_ROLES_IS_USE
WHERE LANGU = 'R'
AND AGR_NAME = ROLES
AND SUBSYSTEM IN SYSTEM.

APPEND IT_ROLES_IS_USE.
ENDSELECT.

PERFORM TAB1VIEW.

AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'FC01'.
SUBMIT SUSR_ZBV_GET_RECEIVER_PROFILES VIA SELECTION-SCREEN.
ENDIF.

FORM INIT_LAYOUT USING PS_LAYOUT TYPE SLIS_LAYOUT_ALV.
PS_LAYOUT-ZEBRA = 'X'.
PS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.

FORM TAB1VIEW.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = IT_CAT[]
TABLES
T_OUTTAB = IT_ROLES_IS_USE.
ENDFORM.


FORM CREATE_FIELD_CATALOG .
IF IT_CAT[] IS INITIAL.
CLEAR WA_CAT.
WA_CAT-COL_POS = 1.
WA_CAT-FIELDNAME = 'FAGR_SYSTEM'.
WA_CAT-DATATYPE = 'CHAR'.
WA_CAT-INTTYPE = 'C'.
WA_CAT-INTLEN = 15.
WA_CAT-OUTPUTLEN = 15.
WA_CAT-SELTEXT_L = 'СИСТЕМА'.
APPEND WA_CAT TO IT_CAT.

WA_CAT-COL_POS = 2.
WA_CAT-FIELDNAME = 'FAGR_NAME'.
WA_CAT-DATATYPE = 'CHAR'.
WA_CAT-INTTYPE = 'C'.
WA_CAT-INTLEN = 30.
WA_CAT-OUTPUTLEN = 30.
WA_CAT-SELTEXT_L = 'РОЛЬ'.
APPEND WA_CAT TO IT_CAT.

WA_CAT-COL_POS = 3.
WA_CAT-FIELDNAME = 'FAGR_TITLE'.
WA_CAT-DATATYPE = 'CHAR'.
WA_CAT-INTTYPE = 'C'.
WA_CAT-INTLEN = 80.
WA_CAT-OUTPUTLEN = 80.
WA_CAT-SELTEXT_L = 'ОПИСАНИЕ'.
APPEND WA_CAT TO IT_CAT.
ENDIF.
ENDFORM.