Advertisement
ignatov

Untitled

Nov 13th, 2021
4,421
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.11 KB | None | 0 0
  1.   METHOD /iwbep/if_mgw_appl_srv_runtime~execute_action.
  2.     DATA: ls_fnset TYPE zcl_zreact_app_mpc=>ts_fnimportset,
  3.           et_fnset TYPE zcl_zreact_app_mpc=>tt_fnimportset,
  4.           lv_user  TYPE sy-uname.
  5.  
  6.     DATA(lv_fnName) = io_tech_request_context->get_function_import_name( ).
  7.  
  8.     CASE lv_fnName.
  9.       WHEN 'fnImportDemo3'.
  10.         LOOP AT it_parameter ASSIGNING FIELD-SYMBOL(<fs>).
  11.           IF <fs> IS ASSIGNED.
  12.             IF <fs>-name EQ 'userName'.
  13.               lv_user = <fs>-value.
  14.             ENDIF.
  15.           ENDIF.
  16.         ENDLOOP.
  17.  
  18.         TRANSLATE lv_user TO UPPER CASE.
  19.  
  20.         AUTHORITY-CHECK OBJECT 'ZBTN'  FOR USER lv_user ID 'ACTVT' FIELD '02' .
  21.         ls_fnset-hasAccess = abap_false.
  22.         IF sy-subrc EQ 0.
  23.           ls_fnset-message = lv_user && ' has access'.
  24.           ls_fnset-hasAccess = abap_true.
  25.         ELSE.
  26.           ls_fnset-message = lv_user && ' has no access'.
  27.         ENDIF.
  28.  
  29.         APPEND ls_fnset TO et_fnset.
  30.  
  31.         copy_data_to_ref( EXPORTING is_data = et_fnset
  32.                           CHANGING cr_data = er_data ).
  33.  
  34.     ENDCASE.
  35.  
  36.   ENDMETHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement