Skip to Content

Scenario:


It happens sometimes that process chains stop their activity caused by inaktive objects. Their are tools that check all objects of a system but this can lead to confusion since not all objects are part of certain process chains.

The idea behind this tool is to check only the objects of one certain process / meta chain and inform the user about their activity status.

Let’s say that we check the status of DTPs only. Since they are affected by ICs, DSOs, Transformations, etc. they should give us a good overview of the process chain. We will use the following BW tables:

  • Resources:
    • RSBKDTP – BW: Data Transfer Process Header Data
Field Description
dtp Data Transfer Process ID

objvers

Object version

tgt Name of the Data Target for a Data Transfer Process
src Name of Source Object of a Data Transfer Process
tstpnm

Last changed by

timestmp

UTC Time Stamp in Short Form (YYYYMMDDhhmmss)

    • RSBKDTPSTAT – Status Information on Data Transfer Process
Field Description
dtp Data Transfer Process ID
objstat Object Status
    • RSPCCHAIN – Process chain
Field Description
chain_id

Process Chain

objvers

Object version

type Process type
variante Process variante (name)

  • Programm flow:
    1. Tracking down inaktive DTPs in the system environment into a table #1
    2. Identifying all DTPs that belong to a certain Chain / Meta Chain table #2
    3. Removing all DTPs from table #1 that are not part of table #2
    4. Out put of the consolidated table #1
  • Solution / Coding:

*&———————————————————————*

*& Report  Z_PROCESS_CHAIN_CHECKER

REPORT  Z_PROCESS_CHAIN_CHECKER LINE-SIZE 150 NO STANDARD PAGE HEADING.

*———————————————————————-

* Declaration area

*———————————————————————-

TYPE-POOLS: rssm.

TYPES:      ” Structures

            BEGIN OF ls_dtp,

              dtp      like rsbkdtp-dtp,

              tgt      LIKE rsbkdtp-tgt,

              src      LIKE rsbkdtp-src,

              tstpnm   LIKE rsbkdtp-tstpnm,

              timestmp LIKE rsbkdtp-timestmp,

              aedat    LIKE sy-datum,

              aezeit   LIKE sy-uzeit,

            END OF ls_dtp,

            BEGIN OF ls_pchain,

              pc_id               TYPE RSPC_CHAIN,

              pc_typ              TYPE RSPC_TYPE,

              pc_variante         TYPE RSPC_VARIANT,

            END OF ls_pchain.

DATA:       ” local variables

            lv_index              TYPE i,

            lv_error(1)           TYPE c,

            lv_timestamp_txt(15)  TYPE n,

            lv_pos                TYPE i,

            lv_maxpos             TYPE i,

            lv_input              TYPE c LENGTH 60,

            lv_mail_title         TYPE string,

            lv_text               TYPE c LENGTH 120,

            ” local tables

            lt_dtp       TYPE TABLE OF ls_dtp,

            lt_pchain    TYPE TABLE OF ls_pchain,

            lt_hpc_chain TYPE TABLE OF ls_pchain,

            ” workareas

            wa_dtp       LIKE LINE OF lt_dtp,

            wa_pchain    LIKE LINE OF lt_pchain.

**********************************************************************

PARAMETERS:  p_pc LIKE (lv_input) OBLIGATORY.

START-OF-SELECTION.

******************** track down intactive DTPs ***********************************

* Step 1

SELECT r~dtp tgt src tstpnm timestmp

  FROM rsbkdtp AS r

  INNER JOIN rsbkdtpstat AS l

  ON r~dtp = l~dtp

  INTO CORRESPONDING FIELDS OF TABLE lt_dtp

  WHERE objvers = ‘A’ AND

        l~objstat = ‘INA’.

* splitting field timestmp

    IF sy-subrc = 0.

      LOOP AT lt_dtp INTO wa_dtp.

        lv_index = sy-tabix.

        IF NOT wa_dtp-timestmp IS INITIAL.

          lv_timestamp_txt = wa_dtp-timestmp.

          wa_dtp-aedat   = lv_timestamp_txt+1(8).

          wa_dtp-aezeit  = lv_timestamp_txt+9(6).

          MODIFY lt_dtp FROM wa_dtp INDEX lv_index.

        ENDIF.

      ENDLOOP.

    ENDIF.

********************** Indentify objects of a certain chain *****************************

* Step 2

SELECT chain_id type variante

  FROM rspcchain

  INTO TABLE lt_pchain

  WHERE chain_id = p_pc AND objvers = ‘A’.

LOOP AT lt_pchain INTO wa_pchain.

  IF wa_pchain-pc_typ = ‘CHAIN’.

    SELECT chain_id type variante

      FROM rspcchain

      APPENDING TABLE lt_pchain

      WHERE chain_id = wa_pchain-pc_variante

        AND objvers = ‘A’

        AND type = ‘DTP_LOAD’.

  ENDIF.

ENDLOOP.

DELETE lt_pchain WHERE pc_typ NE ‘DTP_LOAD’.

**********************************************************************

* Step 3

LOOP AT lt_dtp INTO wa_dtp.

     lv_index = sy-tabix.

     READ TABLE lt_pchain

        WITH KEY pc_variante = wa_dtp-dtp

        TRANSPORTING NO FIELDS.

          IF sy-subrc <> 0.

            DELETE lt_dtp INDEX lv_index.

          ELSE.

            “Do nothing

          ENDIF.

      ENDLOOP.

*********************** Table header **************************************

  NEW-PAGE.

  lv_maxpos = 150.

  NEW-LINE. ULINE AT 1(lv_maxpos).

  DATA: lv_outputtext TYPE string.

  CONCATENATE ‘| Inactive objects in process chain: ‘ p_pc

    INTO lv_outputtext.

  WRITE: / lv_outputtext, AT 150 ‘|’.

  NEW-LINE. ULINE AT 1(lv_maxpos).

  WRITE: / ‘| Object | Technical ID                  | Target                      | Source                        |                 — last change —           |’,

         / ‘| status |                               |                             |                               | User         | Date          | Time         |’.

  NEW-LINE. ULINE AT 1(lv_maxpos).

******************* Table ***********************************************

  IF lt_dtp IS NOT INITIAL.

    LOOP AT lt_dtp INTO wa_dtp.

      ADD 1 TO lv_index.

      NEW-LINE.

      lv_pos = 1.

      WRITE AT lv_pos sy-vline.

        ADD 2 TO lv_pos.

      WRITE AT lv_pos icon_red_light AS ICON.

        ADD 7 TO lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-dtp.

        ADD 30 to lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-tgt.

        ADD 28 TO lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-src.

        ADD 30 TO lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-tstpnm.

        ADD 13 TO lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-aedat.

        ADD 14 TO lv_pos.

          WRITE AT lv_pos sy-vline.

            ADD 2 TO lv_pos.

      WRITE AT lv_pos wa_dtp-aezeit.

         ADD 13 TO lv_pos.

          WRITE AT lv_pos sy-vline.

    ENDLOOP.

  ELSE.

      write: / “the process chain is okay”.

  ENDIF.

  NEW-LINE. ULINE AT 1(lv_maxpos).

  • Result:

Input mask

/wp-content/uploads/2013/05/input_215999.png

Output table

/wp-content/uploads/2013/05/output_216000.jpg

  • Outlook:

In a second step we will implement a emailing possibility and check further objects that could affect process chains.

To report this post you need to login first.

4 Comments

You must be Logged on to comment or reply to a post.

Leave a Reply