REPORT ZBSP.
PARAMETERS: name TYPE O2APPLNAME DEFAULT 'SMCHS'.
types LTYPE_VIEWLINE type CL_BSP_WD_REP_VIEW=>GTYPE_VIEWLINE .
types:
begin of GTYPE_OP_MAPPING,
NAME type STRING,
OP_PLUG type STRING,
SWITCH_ID type SFW_SWITCH_ID,
REACTION type SFW_SHOWHIDE,
end of GTYPE_OP_MAPPING .
types:
begin of GTYPE_IP_FOLLOW_UP,
NAME type STRING,
NAVLINK type STRING,
SWITCH_ID type SFW_SWITCH_ID,
REACTION type SFW_SHOWHIDE,
end of GTYPE_IP_FOLLOW_UP .
types:
begin of GTYPE_NAVLINK,
NAME type STRING,
TARGETS_DONE type FLAG,
TARGETS type TBSP_WD_REP_NAVIGATION_TARGETS,
SFW_DATA type BSP_WD_SFW_DATA boxed,
end of GTYPE_NAVLINK .
types:
begin of GTYPE_VIEWLINE,
VIEW type STRING,
ACTIVE type ABAP_BOOL,
VIEW_ID type N length 4,
PARENT_VIEWSET type STRING,
PARENT_VIEWAREA type STRING,
PARENT type ref to CL_BSP_WD_REP_VIEW,
INITIALS type TBSP_WD_REP_VIEWAREA_ASSIGNS,
INITIALS_DONE type ABAP_BOOL,
NAVLINKS type sorted table of GTYPE_NAVLINK
with non-unique key NAME
initial size 0,
REP_VIEW type ref to CL_BSP_WD_REP_VIEW,
IS_WINDOW type ABAP_BOOL,
IS_INTF_VIEW type ABAP_BOOL,
IS_DEFAULT_WINDOW type ABAP_BOOL,
IP_FOLLOW_UPS type hashed table of GTYPE_IP_FOLLOW_UP
with unique key NAME
initial size 0,
OP_MAPPINGS type hashed table of GTYPE_OP_MAPPING
with unique key NAME
initial size 0,
SFW_DATA type BSP_WD_SFW_DATA boxed,
end of GTYPE_VIEWLINE .
types:
LTYPE_VIEW_TAB type hashed table of LTYPE_VIEWLINE
with unique key VIEW ACTIVE
initial size 0 .
data: LV_LOADER type ref to CL_BSP_WD_STREAM_LOADER,
LV_XML type STRING,
lv_root type string.
create object LV_LOADER.
LV_XML = LV_LOADER->LOAD_FROM_BSP_PAGE( IV_BSP_APPL = name
IV_BSP_PAGE = 'Repository.xml' ). "#EC NOTEXT
data: LT_VIEWS type LTYPE_VIEW_TAB,
LT_USAGES type BSP_WD_CMP_USAGE_DESCR_TAB,
result TYPE REF TO CL_BSP_WD_REPOSITORY.
* "parse" repository xml data directly into memory
call transformation BSP_WD_RT_REP_RUNTIME
source xml lv_xml
result VIEWS = LT_VIEWS
ROOTVIEW = lv_root
USAGES = LT_USAGES.
"PCCNODES = RESULT->INTF_CONTROLLER_CNODES
"CEVENTS = RESULT->INTF_CONTROLLER_EVENTS
"MODEL = RESULT->BOL_COMPONENT_SET.
BREAK-POINT.