Abap Forum on Gate²App

Skip to content

SU53 als Funktionsbaustein

Nützliche Abap Codes und Code Fragmente
Post a reply

SU53 als Funktionsbaustein

Postby Tron » Mon Sep 20, 2021 2:11 pm

Fehlgeschlagenen Berechtigungen (SU53) als Funktionsbaustein
In Hintergrund Prozessen ist es manchmal nur schwer möglich die Fehlerursache zu ermitteln, besonders ärgerlich ist es, wenn Berechtigungen der Grund sind.
Hier ein Baustein der bei der Fehlersuche helfen soll. Besonders in ODATA Services eine willkommene Hilfe. ;)

Implementation:
1.) Struktur anlegen
2.) Tabellentyp ZTTAU_SU53BUFFER für die Struktur ZAU_SU53BUFFER anlegen.
3.) RFC Baustein anlegen

006.png
006.png (127.05 KiB) Viewed 1277 times

007.png
007.png (12.07 KiB) Viewed 1277 times

ZAU_SU53BUFFER.zip
(373 Bytes) Downloaded 167 times

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION z_au_read_auth_status.
  2. *"----------------------------------------------------------------------
  3. *"*"Local Interface:
  4. *"  IMPORTING
  5. *"     VALUE(I_USER) TYPE  XUBNAME DEFAULT SY-UNAME
  6. *"  EXPORTING
  7. *"     VALUE(TT_SU53_BUFF) TYPE  ZTTAU_SU53BUFFER
  8. *"----------------------------------------------------------------------
  9. *&---------------------------------------------------------------------*
  10. *&      Form  get_authorization_checks / see SAPMS01G
  11. *&---------------------------------------------------------------------*
  12.   PERFORM get_authorization_checks USING i_user ' ' tt_su53_buff.
  13.  
  15.  
  16. *&---------------------------------------------------------------------*
  17. *&      Form  get_authorization_checks from last call
  18. *&---------------------------------------------------------------------*
  19. FORM get_authorization_checks CHANGING iv_bname     TYPE xubname
  20.                                     iv_read_from_db TYPE char01
  21.                                     it_su53_buff TYPE zttau_su53buffer.
  22. *---------------------------------------------------------------------*
  23. *     Global TYPES
  24. *---------------------------------------------------------------------*
  26.         gc_last_seconds          TYPE i VALUE 10800
  27.       , gc_last_entries          TYPE i VALUE 100
  28.       .
  29.  
  30.   DATA: g_buffer_method(10)
  31. *      , gv_new_kernel_avail      TYPE          abap_bool
  32. *      , gv_save_available        TYPE          abap_bool
  33.       , gv_checks_since_time     TYPE          timestampl
  34.       , g_bname                  TYPE          usr07-bname     "Current user (global variable)
  35.       , g_refuser                TYPE          usrefus-refuser
  36.       , g0010_bname              TYPE          usr07-bname     "Screen fields
  37.       , g0010_read_from_db       TYPE          char01
  38.       , g_ok_code                TYPE          sy-ucomm
  39.       , g_datum                  TYPE          sy-datum     "#EC NEEDED
  40.       , g_zeit                   TYPE          sy-uzeit     "#EC NEEDED
  41.       , gt_usr07_new             TYPE          tt_usr07_new
  42.       , gt_range_object          TYPE RANGE OF xuobject
  43.       , g_result_item_key_table  TYPE          treemiks
  44.       , g_find_string            TYPE          string
  45.       , g_instance               TYPE          msxxlist-name.
  46.  
  47.   DATA: ls_usr07_new     TYPE          ty_usr07_new
  48.       , lr_usr07_new     TYPE REF TO   ty_usr07_new
  49.       , lv_retcode       TYPE          sy-subrc
  50.       , lt_su53buf       TYPE          cl_susr_tools_kernel=>tt_usr07p
  51.       , lr_su53buf       TYPE REF TO   cl_susr_tools_kernel=>ty_usr07p
  52.       , ls_range_object  LIKE LINE OF  gt_range_object
  53.       , ls_usr07         TYPE          usr07
  54.       , lv_since_hours   TYPE          timestampl
  55.       , lv_lines         TYPE          i.
  56.  
  57.   DATA:   BEGIN OF usr07key,
  58.             objct TYPE usr07-objct,
  59.             fiel1 TYPE usr07-fiel0,
  60.             fiel2 TYPE usr07-fiel0,
  61.             fiel3 TYPE usr07-fiel0,
  62.             fiel4 TYPE usr07-fiel0,
  63.             fiel5 TYPE usr07-fiel0,
  64.             fiel6 TYPE usr07-fiel0,
  65.             fiel7 TYPE usr07-fiel0,
  66.             fiel8 TYPE usr07-fiel0,
  67.             fiel9 TYPE usr07-fiel0,
  68.             fiel0 TYPE usr07-fiel0,
  69.           END OF usr07key.
  70.  
  71.   DATA:   BEGIN OF usr07val1,
  72.             val01 TYPE usr07-val01,
  73.             val02 TYPE usr07-val01,
  74.             val03 TYPE usr07-val01,
  75.             val04 TYPE usr07-val01,
  76.             val05 TYPE usr07-val01,
  77.             val06 TYPE usr07-val01,
  78.           END OF usr07val1.
  79.  
  80.   DATA:   BEGIN OF usr07val2,
  81.             val07 TYPE usr07-val01,
  82.             val08 TYPE usr07-val01,
  83.             val09 TYPE usr07-val01,
  84.             val10 TYPE usr07-val01,
  85.           END OF usr07val2.
  86.  
  87.  
  88.   CLEAR: gt_usr07_new
  89.        , gt_range_object
  90.        , gv_checks_since_time
  91.        .
  92.   PERFORM check_environment.
  93.  
  94.   " Get local instance
  95.   g_instance = cl_abap_syst=>get_instance_name( ).
  96.  
  97.   IF gv_new_kernel_avail EQ abap_true.
  98.     " ----  New kernel -------
  99.     IF iv_read_from_db EQ space.
  100.  
  101.       " Read last hours from shared memory
  102.       GET TIME STAMP FIELD gv_checks_since_time.
  103.  
  104.       TRY.
  105.           CALL METHOD cl_abap_tstmp=>subtractsecs
  106.             EXPORTING
  107.               tstmp   = gv_checks_since_time
  108.               secs    = gc_last_seconds
  109.             RECEIVING
  110.               r_tstmp = gv_checks_since_time.
  111.         CATCH cx_parameter_invalid_range cx_parameter_invalid_type.
  112.           GET TIME STAMP FIELD gv_checks_since_time.
  113.       ENDTRY.
  114.       lv_since_hours = gv_checks_since_time.
  115.  
  116.       CALL METHOD cl_susr_tools_kernel=>get_su53_buffer
  117.         EXPORTING
  118.           iv_bname         = iv_bname
  119.           iv_no_auth_only  = abap_true
  120.           iv_max_entries   = gc_last_entries
  121.           iv_entries_since = gv_checks_since_time
  122.         IMPORTING
  123.           et_su53_buffer   = lt_su53buf
  124.           ev_entries_since = gv_checks_since_time
  125.           ev_retcode       = lv_retcode.
  126.  
  127.       IF lv_retcode EQ 0.
  128.         SORT lt_su53buf BY timestamp DESCENDING.
  129.  
  130.         LOOP AT lt_su53buf REFERENCE INTO lr_su53buf.
  131.           MOVE-CORRESPONDING lr_su53buf->* TO ls_usr07_new.
  132.           IF lr_su53buf->authrc = 'A'.
  133.             ls_usr07_new-rc = 40.
  134.           ELSE.
  135.             ls_usr07_new-rc = lr_su53buf->authrc * 4.
  136.           ENDIF.
  137.           " Set instance
  138.           ls_usr07_new-instance = g_instance.
  139.           APPEND ls_usr07_new TO gt_usr07_new.
  140.         ENDLOOP.
  141.  
  142.         " Time since checks..
  143.         IF gv_checks_since_time LT lv_since_hours.
  144.           gv_checks_since_time = lv_since_hours.
  145.         ENDIF.
  146.         DESCRIBE TABLE lt_su53buf LINES lv_lines.
  147.         IF lv_lines EQ gc_last_entries.
  148.           READ TABLE lt_su53buf REFERENCE INTO lr_su53buf INDEX lv_lines.
  149.           IF sy-subrc EQ 0.
  150.             gv_checks_since_time = lr_su53buf->timestamp.
  151.           ENDIF.
  152.         ENDIF.
  153.       ENDIF.
  154.  
  155.       it_su53_buff[] = lt_su53buf[].
  156.  
  157.  
  158.  
  159.     ELSE.
  160.       " Read from USR07
  161.       SELECT * FROM usr07
  162.         INTO CORRESPONDING FIELDS OF TABLE gt_usr07_new ##too_many_itab_fields
  163.         WHERE bname EQ iv_bname.
  164.  
  165.       SORT gt_usr07_new BY timestamp DESCENDING.
  166.  
  167.       " Get instance from database
  168.       READ TABLE gt_usr07_new REFERENCE INTO lr_usr07_new INDEX 1.
  169.       IF sy-subrc EQ 0.
  170.         g_instance = lr_usr07_new->instance.
  171.       ELSE.
  172.         CLEAR: g_instance.
  173.       ENDIF.
  174.     ENDIF.
  175.  
  176.   ELSE.
  177.     " ---- Old kernel with parameter ---------------
  178.     IF sy-uname EQ iv_bname.
  179.       " Get result of last authorization check
  180.       GET PARAMETER ID 'XU1' FIELD usr07key.                "#EC EXISTS
  181.       GET PARAMETER ID 'XU2' FIELD usr07val1.               "#EC EXISTS
  182.       GET PARAMETER ID 'XU7' FIELD usr07val2.               "#EC EXISTS
  183.  
  184.       " Store result of last authorization check
  185.       CLEAR ls_usr07.
  186.       ls_usr07-bname = iv_bname.
  187.       MOVE-CORRESPONDING usr07key  TO ls_usr07.
  188.       MOVE-CORRESPONDING usr07val1 TO ls_usr07.
  189.       MOVE-CORRESPONDING usr07val2 TO ls_usr07.
  190.       DELETE FROM usr07 WHERE bname EQ iv_bname.
  191.       IF ls_usr07-objct IS NOT INITIAL.
  192.         " Store on db
  193.         INSERT usr07 FROM ls_usr07.
  194.  
  195.         " Fill internal table
  196.         MOVE-CORRESPONDING ls_usr07 TO ls_usr07_new.
  197.         APPEND ls_usr07_new TO gt_usr07_new.
  198.       ENDIF.
  199.  
  200.     ELSE.
  201.       " Read from USR07
  202.       SELECT * FROM usr07
  203.         INTO CORRESPONDING FIELDS OF TABLE gt_usr07_new ##too_many_itab_fields
  204.         WHERE bname = iv_bname.
  205.       " Only one entry allowed
  206.       DELETE gt_usr07_new WHERE timestamp IS NOT INITIAL.
  207.     ENDIF.
  208.   ENDIF.
  209.  
  210.   " Get objects
  211.   LOOP AT gt_usr07_new REFERENCE INTO lr_usr07_new.
  212.     CLEAR: ls_range_object.
  213.     ls_range_object-low    = lr_usr07_new->objct.
  214.     ls_range_object-sign   = 'I'.
  215.     ls_range_object-option = 'EQ'.
  216.     APPEND ls_range_object TO gt_range_object.
  218.  
  219.   SORT gt_range_object BY low.
  220.   DELETE ADJACENT DUPLICATES FROM gt_range_object COMPARING low.
  221.  
  222. ENDFORM.                    "get_authorization_checks
  223. *&---------------------------------------------------------------------*
  224. *&      Form  check_environment
  225. *&---------------------------------------------------------------------*
  226. *       text
  227. *----------------------------------------------------------------------*
  228. FORM check_environment.
  229.  
  230.   DATA: ls_dfies    TYPE dfies
  231.       , lv_status   TYPE char01
  232.       .
  233.  
  234.  
  235.   CALL METHOD cl_susr_tools_kernel=>get_su53_status
  236.     RECEIVING
  237.       rv_status = lv_status.
  238.  
  239.   IF lv_status NE 'F'.
  240.     gv_new_kernel_avail = abap_true.
  241.  
  242.     CALL FUNCTION 'DDIF_NAMETAB_GET'
  243.       EXPORTING
  244.         tabname    = 'USR07'
  245.         lfieldname = 'TIMESTAMP'
  246.       IMPORTING
  247.         dfies_wa   = ls_dfies
  248.       EXCEPTIONS
  249.         not_found  = 0
  250.         OTHERS     = 0.
  251.  
  252.     IF ls_dfies-fieldname EQ 'TIMESTAMP'.
  253.       gv_save_available = abap_true.
  254.     ENDIF.
  255.   ENDIF.
  256. ENDFORM.                    "check_environment
GeSHi ©


TOP INCLUDE
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. FUNCTION-POOL ZMD_ODATA.                    "MESSAGE-ID ..
  2.  
  3. * INCLUDE LZMD_ODATAD...                     " Local class definition
  4. * INCLUDE LZBC_READ_FAILED_AUTHD...          " Local class definition
  5. *&---------------------------------------------------------------------*
  6. *&      Form  get_authorization_checks / see SAPMS01G
  7. *&---------------------------------------------------------------------*
  8.  
  9.   TYPES:  BEGIN OF ty_usr07_new
  10.             , mandt      TYPE usr07-mandt
  11.             , bname      TYPE usr07-bname
  12.             , timestamp  TYPE timestampl     " New
  13.             , objct      TYPE usr07-objct
  14.             , fiel1      TYPE usr07-fiel0
  15.             , fiel2      TYPE usr07-fiel0
  16.             , fiel3      TYPE usr07-fiel0
  17.             , fiel4      TYPE usr07-fiel0
  18.             , fiel5      TYPE usr07-fiel0
  19.             , fiel6      TYPE usr07-fiel0
  20.             , fiel7      TYPE usr07-fiel0
  21.             , fiel8      TYPE usr07-fiel0
  22.             , fiel9      TYPE usr07-fiel0
  23.             , fiel0      TYPE usr07-fiel0
  24.             , val01      TYPE usr07-val01
  25.             , val02      TYPE usr07-val01
  26.             , val03      TYPE usr07-val01
  27.             , val04      TYPE usr07-val01
  28.             , val05      TYPE usr07-val01
  29.             , val06      TYPE usr07-val01
  30.             , val07      TYPE usr07-val01
  31.             , val08      TYPE usr07-val01
  32.             , val09      TYPE usr07-val01
  33.             , val10      TYPE usr07-val01
  34.             , tcode      TYPE usr07-tcode
  35.             , progname   TYPE usr07-progname
  36.             , cdate      TYPE usr07-cdate
  37.             , ctime      TYPE usr07-ctime
  38.             , abapline   TYPE i             " New
  39.             , abapprog   TYPE programm      " New
  40.             , foruser    TYPE sutrforuser   " New
  41.             , rc         TYPE int4          " New
  42.             , reason     TYPE char01        " New
  43.             , p_tcode    TYPE tcode         " New
  44.             , name       TYPE sobj_name     " New
  45.             , type       TYPE usobtype      " New
  46.             , instance   TYPE msxxlist-name " New
  47.         , END OF ty_usr07_new.
  48.   TYPES: tt_usr07_new TYPE STANDARD TABLE OF ty_usr07_new.
  49.  
  50.   data:
  51.   gv_new_kernel_avail      type          abap_bool
  52. , gv_save_available        type          abap_bool.
GeSHi ©
Tron
.....
.....
 
Posts: 1112
Joined: Sat Aug 04, 2007 10:21 pm
Top
Post a reply

Return to Code Snippets

Who is online

Users browsing this forum: No registered users and 1 guest

Powered by phpBB® Forum Software © phpBB Group
cron
  • Latest Topics