Tool to check status (active/inactive) of process chain objects, Part 1
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:
- Tracking down inaktive DTPs in the system environment into a table #1
- Identifying all DTPs that belong to a certain Chain / Meta Chain table #2
- Removing all DTPs from table #1 that are not part of table #2
- 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
Output table
- Outlook:
In a second step we will implement a emailing possibility and check further objects that could affect process chains.
A very useful post....Thank you. I bookmarked it
Dear Sass,
Appreciate your work...:)
Regards,
Vijay
Nice Blog... Thanks for the Blog...
Cheers
KP
Christian,
We sometimes ran into this problem after transporting process chains into the QA environment.
Very thoughtful solution.
Thanks