*&---------------------------------------------------------------------*
*& Report z_get_list_for_odata_srv_act
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_get_list_for_odata_srv_act.
* update 02.04.2019 - replaced structure binding by types definition for mt_selected_gw_service_group
* and ms_selected_gw_service_group
TYPES: BEGIN OF ty_selected_service_group,
technical_name TYPE /iwfnd/med_mdl_srg_name,
version TYPE /iwfnd/med_mdl_version,
END OF ty_selected_service_group.
DATA: ls_layout TYPE slis_layout_alv,
lv_textline1(45) TYPE c,
lv_grid_title TYPE lvc_title,
ls_i_med_srh TYPE /iwfnd/i_med_srh,
ls_tadir TYPE tadir,
mt_selected_gw_service_group TYPE STANDARD TABLE OF ty_selected_service_group,
ms_selected_gw_service_group TYPE ty_selected_service_group,
lv_number_of_selected_services TYPE string.
SELECTION-SCREEN BEGIN OF BLOCK part0 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : s_srv_id FOR ls_i_med_srh-srv_identifier,
s_devcls FOR ls_tadir-devclass.
SELECTION-SCREEN END OF BLOCK part0 .
SELECT obj_name
FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'IWSG'
AND obj_name IN @s_srv_id
AND devclass IN @s_devcls
INTO TABLE @DATA(tadir_entry_tab). "#EC CI_GENBUFF
IF tadir_entry_tab IS INITIAL.
WRITE : / 'no service groups found.'.
EXIT.
ENDIF.
SELECT * FROM /iwfnd/i_med_srh
FOR ALL ENTRIES IN @tadir_entry_tab
WHERE srv_identifier = @tadir_entry_tab-obj_name
INTO TABLE @DATA(lt_i_med_srh) .
"create a list of the services that have been selected
"that can be used for input for the tasklist SAP_GATEWAY_ACTIVATE_ODATA_SERV
LOOP AT lt_i_med_srh INTO ls_i_med_srh.
ms_selected_gw_service_group-technical_name = ls_i_med_srh-service_name.
ms_selected_gw_service_group-version = ls_i_med_srh-service_version.
APPEND ms_selected_gw_service_group TO mt_selected_gw_service_group.
ENDLOOP.
"count the number of selected services
DESCRIBE TABLE lt_i_med_srh LINES lv_number_of_selected_services.
lv_grid_title = lv_number_of_selected_services && 'services selected for tasklist SAP_GATEWAY_ACTIVATE_ODATA_SERV'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_grid_title = lv_grid_title
i_structure_name = '/IWFND/S_COF_SRG_NAME_VERSION'
is_layout = ls_layout
TABLES
t_outtab = mt_selected_gw_service_group
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
"do some error handling
write : / 'Error when using REUSE_ALV_GRID_DISPLAY'.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
38 | |
19 | |
13 | |
13 | |
11 | |
10 | |
10 | |
10 | |
8 | |
8 |