How to identify which process is using PSA?

Question

Hi all,
Does anybody know if there is some way to identify all infopackages in my environment that are using PSA?
Thanks in advance,
Silvio Messias.

Answer 1

Hi Guys, just to thanks you...
I have created this ABAP program... Enjoy...
*& Report  ZLIST_OF_IP_THAT_USE_PSA
REPORT  zlist_of_ip_that_use_psa.
  Data declaration
TABLES: rsldpsel, rsldpio.
TYPES: BEGIN OF ty_rsldpsel,
         logdpid       TYPE rslogdpid,
         objvers       TYPE rsobjvers,
         lnr           TYPE rsnrchar,
         ziel          TYPE rsziel,
         ziel_text(40) TYPE c,
         source        TYPE rsisource,
         logsys        TYPE rsslogsys,
         oltpsource    TYPE rsisource,
       END OF ty_rsldpsel,
       BEGIN OF ty_rsldpio,
         logdpid       TYPE rslogdpid,
         objvers       TYPE rsobjvers,
         source        TYPE rsisource,
         logsys        TYPE rsslogsys,
         oltpsource    TYPE rsisource,
       END OF ty_rsldpio.
DATA: l_is_rsldpsel TYPE STANDARD TABLE OF ty_rsldpsel,
      l_ih_rsldpio  TYPE HASHED   TABLE OF ty_rsldpio
                    WITH UNIQUE KEY logdpid objvers.
FIELD-SYMBOLS : <ls_rsldpsel> TYPE ty_rsldpsel,
                <ls_rsldpio>  TYPE ty_rsldpio.
RANGES: rg_ziel FOR rsldpsel-ziel.
Processing data...
PARAMETERS : psa_used AS CHECKBOX DEFAULT 'X'.
START-OF-SELECTION.
  PERFORM collect_data.
END-OF-SELECTION.
  PERFORM display.
*&      Form  COLLECT_DATA
      Collecting database information
FORM collect_data.
Valid range of ZIEL
  CLEAR: rg_ziel, rg_ziel[].
  rg_ziel-sign   = 'I'.
  rg_ziel-option = 'EQ'.
  rg_ziel-high   = space.
  rg_ziel-low    = 1.  APPEND rg_ziel.
  rg_ziel-low    = 2.  APPEND rg_ziel.
  rg_ziel-low    = 3.  APPEND rg_ziel.
  IF psa_used IS INITIAL.
    rg_ziel-low = 4.  APPEND rg_ziel.
  ENDIF.
Selection all INFOPACKAGES that are using PSA tables
  SELECT logdpid objvers lnr ziel
    INTO TABLE l_is_rsldpsel
    FROM rsldpsel
    WHERE objvers EQ 'A'
      AND ziel IN rg_ziel.
  IF sy-subrc EQ 0 AND l_is_rsldpsel[] IS NOT INITIAL.
    DELETE ADJACENT DUPLICATES FROM l_is_rsldpsel COMPARING logdpid.
Selecting data from RSLDPIO
    SELECT logdpid objvers source logsys oltpsource
       FROM rsldpio INTO TABLE l_ih_rsldpio
       FOR ALL ENTRIES IN l_is_rsldpsel
       WHERE logdpid EQ l_is_rsldpsel-logdpid
         AND objvers EQ l_is_rsldpsel-objvers.
  ENDIF.
  LOOP AT l_is_rsldpsel ASSIGNING <ls_rsldpsel>.
    CASE <ls_rsldpsel>-ziel.
      WHEN 1.
        <ls_rsldpsel>-ziel_text = 'Only PSA'.
      WHEN 2.
        <ls_rsldpsel>-ziel_text = 'PSA in parallel mode'.
      WHEN 3.
        <ls_rsldpsel>-ziel_text = 'PSA and after that to Infoprovider'.
      WHEN OTHERS.
        <ls_rsldpsel>-ziel_text = 'Directly to Infoprovider'.
    ENDCASE.
    READ TABLE l_ih_rsldpio ASSIGNING <ls_rsldpio>
    WITH TABLE KEY logdpid = <ls_rsldpsel>-logdpid
                   objvers = <ls_rsldpsel>-objvers.
    IF sy-subrc EQ 0 AND <ls_rsldpio> IS ASSIGNED.
      <ls_rsldpsel>-source     = <ls_rsldpio>-source.
      <ls_rsldpsel>-logsys     = <ls_rsldpio>-logsys.
      <ls_rsldpsel>-oltpsource = <ls_rsldpio>-oltpsource.
    ENDIF.
  ENDLOOP.
ENDFORM. " collect_data
*&      Form  DISPLAY
      Displaying database information
FORM display .
  TYPE-POOLS: slis.
  DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
        gs_layout   TYPE slis_layout_alv.
  PERFORM fieldcat_init USING gt_fieldcat[].
  PERFORM layout_init USING gs_layout.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = 'Z_DB_ENTRIES_COUNTER'
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat[]
    TABLES
      t_outtab           = l_is_rsldpsel.
ENDFORM.                    "DISPLAY
*&      Form  fieldcat_init
FORM fieldcat_init USING lt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'LOGDPID'.
  ls_fieldcat-datatype     = 'C'.
  ls_fieldcat-seltext_l    = 'InfoPackage (ID)'.
  ls_fieldcat-seltext_m    = 'InfoPackage (ID)'.
  ls_fieldcat-seltext_s    = 'InfoPackage (ID)'.
  ls_fieldcat-reptext_ddic = 'InfoPackage (ID)'.
  ls_fieldcat-key          = 'X'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SOURCE'.
  ls_fieldcat-datatype     = 'C'.
  ls_fieldcat-seltext_l    = 'InfoSource'.
  ls_fieldcat-seltext_m    = 'InfoSource'.
  ls_fieldcat-seltext_s    = 'InfoSource'.
  ls_fieldcat-reptext_ddic = 'InfoSource'.
  ls_fieldcat-key          = ' '.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'LOGSYS'.
  ls_fieldcat-datatype     = 'C'.
  ls_fieldcat-seltext_l    = 'Source System'.
  ls_fieldcat-seltext_m    = 'Source System'.
  ls_fieldcat-seltext_s    = 'Source System'.
  ls_fieldcat-reptext_ddic = 'Source System'.
  ls_fieldcat-key          = ' '.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'OLTPSOURCE'.
  ls_fieldcat-datatype     = 'C'.
  ls_fieldcat-seltext_l    = 'Datasource'.
  ls_fieldcat-seltext_m    = 'OLTPSOURCE'.
  ls_fieldcat-seltext_s    = 'OLTPSOURCE'.
  ls_fieldcat-reptext_ddic = 'OLTPSOURCE'.
  ls_fieldcat-key          = ' '.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ZIEL_TEXT'.
  ls_fieldcat-datatype     = 'C'.
  ls_fieldcat-seltext_l    = 'Type of processing'.
  ls_fieldcat-seltext_m    = 'Type of processing'.
  ls_fieldcat-seltext_s    = 'Type of processing'.
  ls_fieldcat-reptext_ddic = 'Type of processing'.
  ls_fieldcat-key          = ' '.
  APPEND ls_fieldcat TO lt_fieldcat.
ENDFORM.                    "fieldcat_init
*&      Form  layout_init
FORM layout_init USING ls_layout TYPE slis_layout_alv.
  ls_layout-zebra             = 'X'.
  ls_layout-colwidth_optimize = 'X'.
ENDFORM.                    "layout_i