Process Chain Log Maintenance

Question

Hi All,
In my project we maintain an load status excel sheet to document all the timings of process chain running in our window.
We were maintaining only the start time of process chain (we get from RSPCM), now the requirement has changed and customer wants us to mention the end time of each process chain.
Since we have good amount of process chain running it is becoming really hectic to take timings for each PC.
Procedure we are following to take the end time is that through RSPCM we go to every PC and take the timing of last process in the PC.This takes lot of time.
Please suggest from where we can exact log of start and end time of every PC.Are there any table from where we can see the start and end time???
I am waiting for the valuable inputs......
Regards,
Kshitij

Answer 1

try following ABAP...
*& Report  ZBI_PROCESS_CHAIN_STATUS_EMAIL                              *
  Program uses parameters and selection options to analyze and/or    *
  email the status  of the BI process chains.                        *
Selection-screen help:                                               *
1) Process Chain (ID)                                                *
       Enter the name of process chain to analyze.                   *
       If you leave this field blank, all the process chains will    *
       be picked up.                                                 *
2) Process Chain Date Selection                                      *
       Enter the Process Chain Date.                                 *
3) Status of Process Chain                                           *
       Enter the Status of Process Chain to analyze.                 *
       If you leave this field blank, all the status will            *
       be picked up.                                                 *
4) Send email?                                                       *
       Mark this checkbox, if you want to send email notification    *
5) Email recipients                                                  *
       The list of people to be notified is entered here. At least   *
       one email address is required.                                *
*Modification Information:                                             *
Date      Mod User ID      CTS Number    Description                 *
*05/01/08   Shalin Shah                    Original Coding Date        *
REPORT   ZBI_PROCESS_CHAIN_STATUS_EMAIL
         NO STANDARD PAGE HEADING MESSAGE-ID 00
         LINE-SIZE 255
         LINE-COUNT 55.
Variable Declaration for selection screen                            *
DATA:
  gs_RSPCLOGCHAIN   TYPE rspclogchain,             "PC ID
  gs_RECEIVER       TYPE SOMLRECI1-RECEIVER,       "Email ID
  gs_BATCHDATE      TYPE RSPCPROCESSLOG-BATCHDATE, "Date
  gs_RSPC_STATE     TYPE RSPC_STATE.               "PC state
Selection-Screen                                                     *
SELECTION-SCREEN BEGIN OF BLOCK om1 WITH FRAME.
SELECT-OPTIONS p_CHAIN  for gs_RSPCLOGCHAIN-CHAIN_ID default 'ZBWC_MAIN' NO INTERVALS. "Process chind ID
SELECT-OPTIONS p_datum  for gs_BATCHDATE default  sy-datum. "Process chain date
SELECT-OPTIONS p_Status for gs_RSPC_STATE NO INTERVALS. "Process Chain status
SELECTION-SCREEN END OF BLOCK om1.
SELECTION-SCREEN BEGIN OF BLOCK om2 WITH FRAME.
PARAMETERS: p_Email AS CHECKBOX.       "Send email?
SELECT-OPTIONS: s_mail FOR gs_RECEIVER lower case NO INTERVALS. "Email address
SELECTION-SCREEN END OF BLOCK om2.
AT SELECTION-SCREEN.
  If Send email is checked, makes sure at least one email address is entered.
  if p_Email = 'X'.
    READ TABLE s_mail INDEX 1.
    if sy-subrc <> 0.
      MESSAGE e001 WITH 'Please enter at least one email address'.
    ENDIF.
  ENDIF.
  loop at s_mail.
    if not s_mail-high is initial.
      MESSAGE e001 WITH s_mail-high 'is not valid. Please enter with no intervals'.
    endif.
  endloop.
START-OF-SELECTION.
END-OF-SELECTION.
Variable Declaration                                                 *
for composing email object
  DATA: OBJCONT LIKE SOLI OCCURS 10 WITH HEADER LINE. "Email object
  DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE. "Email address
  DATA: DOC_CHNG LIKE SODOCCHGI1.   "Data of an object which can be changed for email
  DATA: ENTRIES LIKE SY-TABIX.      "Count
  DATA: NAME(15).                   "Sapce for email name
  DATA: temp_message(120) type c.   "temp message space
  DATA: psubject(72) type c.        "Email subject
  DATA: temp_time(27) type c.       "temp space to PC start and end time
  DATA: pc_end_time(8) type c.      "PC end time
  DATA: pc_start_time(8) type c.    "PC start time
  DATA: pc_run_date(10) type c.     "PC run date
  DATA: pc_duration(8) type c.      "PC duration time
  DATA: pc_temp_end_time type TIMS. "temp space for pc end time
  DATA: pc_temp_end_date type DATS. "temp space for pc end date
  DATA: pc_temp_duration type TIMS. "temp space for pc duration
  DATA: pc_status(72) type c.       "PC status
for report format
  DATA: iColor TYPE i VALUE 0,
        iCount TYPE i VALUE 1.
for saving log of the process chain.
  DATA: I_RSPCLOGCHAIN LIKE RSPCLOGCHAIN OCCURS 0,
        WA_RSPCLOGCHAIN LIKE LINE OF I_RSPCLOGCHAIN,
        I_RSPCPROCESSLOG LIKE RSPCPROCESSLOG OCCURS 0,
        WA_RSPCPROCESSLOG LIKE LINE OF I_RSPCPROCESSLOG.
Report Logic                                                         *
Create email subject for report header
  CONCATENATE SY-SYSID ' - BI load status ->' SY-DATUM4(2) '/' SY-DATUM6(2) '/' SY-DATUM0(4)    ' @ ' SY-UZEIT0(2) ':' SY-UZEIT2(2) ':' SY-UZEIT4(2) INTO psubject.
report header
FORMAT INTENSIFIED COLOR = 1.
  write / .
  write / '*****************************************************************************************************************************************'.
  Write: / '*                                                 ', psubject, '            *' .
  write / '*****************************************************************************************************************************************'.
  write / .
*Fill the header
  OBJCONT-LINE = '****************************************************************************************************************'.
  APPEND OBJCONT.
  OBJCONT-LINE =  psubject.
  APPEND OBJCONT.
  OBJCONT-LINE = '****************************************************************************************************************'.
  APPEND OBJCONT.
Get the log id of the process chain.
  SELECT *
    FROM RSPCLOGCHAIN
    INTO TABLE I_RSPCLOGCHAIN
    WHERE DATUM in p_datum
    AND CHAIN_ID in p_CHAIN
    AND ANALYZED_STATUS in p_Status.
Loop at all the selected process chains
  LOOP AT I_RSPCLOGCHAIN into WA_RSPCLOGCHAIN.                  "Loop at all the process chaing log
    CLEAR: temp_time, pc_start_time, pc_end_time.
  Get the run date, start time and end time of process chain form RSPCPROCESSLOG table.
    SELECT *
      FROM RSPCPROCESSLOG
      INTO TABLE I_RSPCPROCESSLOG
      WHERE LOG_ID = WA_RSPCLOGCHAIN-LOG_ID.
  Converts PC time to a given local timezone
    CALL FUNCTION 'STU3_ALERTS_CONV_UTC_2_LOCAL'
      CHANGING
        TIME_T = WA_RSPCLOGCHAIN-ZEIT
        DATE_D = WA_RSPCLOGCHAIN-DATUM.
  Convart date and time to MM:DD:YYYY HH:MM:SS
    CONCATENATE WA_RSPCLOGCHAIN-DATUM4(2) '/' WA_RSPCLOGCHAIN-DATUM6(2) '/' WA_RSPCLOGCHAIN-DATUM+0(4) INTO pc_run_date.
    CONCATENATE WA_RSPCLOGCHAIN-ZEIT0(2) ':'  WA_RSPCLOGCHAIN-ZEIT2(2) ':' WA_RSPCLOGCHAIN-ZEIT+4(2) INTO pc_start_time.
  sort all the process chaing log. Because we just want to get the end time of the last log.
    sort I_RSPCPROCESSLOG by ENDTIMESTAMP descending.
  loop to get the end date and end time for the process chain
    LOOP AT I_RSPCPROCESSLOG into WA_RSPCPROCESSLOG.    "Loop 1 for pc_end_time
      CLEAR temp_time.
      temp_time = WA_RSPCPROCESSLOG-ENDTIMESTAMP.
      pc_temp_end_date =  temp_time+4(8).
      pc_temp_end_time =  temp_time+12(6).
    Converts PC time to a given local timezone
      CALL FUNCTION 'STU3_ALERTS_CONV_UTC_2_LOCAL'
        CHANGING
          TIME_T = pc_temp_end_time
          DATE_D = pc_temp_end_date.
    Convart date and time to MM:DD:YYYY HH:MM:SS
      CONCATENATE pc_temp_end_time0(2) ':'  pc_temp_end_time2(2) ':' pc_temp_end_time+4(2) INTO pc_end_time.
    Get PC end-time and duration
      IF pc_temp_end_time = 000000.
        pc_end_time = '??:??:??'.
        pc_duration = '??:??:??'.
      ELSE.
        pc_temp_duration = pc_temp_end_time - WA_RSPCLOGCHAIN-ZEIT.
        CONCATENATE pc_temp_duration0(2) ':'  pc_temp_duration2(2) ':' pc_temp_duration+4(2) INTO pc_duration.
      ENDIF.
    Exit form the loop once we get end-time and duration
      EXIT.
    endloop.                                        "Loop 1 for pc_end_time
  Based on process chain status assign color and create message
    CASE WA_RSPCLOGCHAIN-ANALYZED_STATUS.           "Case pc status
      WHEN 'R'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Ended with errors on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ') **Error**' INTO temp_message.
        CONCATENATE   ' Ended with errors - ' pc_duration INTO pc_status.
        iColor = 6.
      WHEN 'G'.
      Check if duration = '00:00:00' mark as **Error**
        IF pc_duration = '00:00:00'.
          CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Successfully completed on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ') **Error**' INTO temp_message.
          CONCATENATE   ' Successfully completed - ' pc_duration INTO pc_status.
          iColor = 3.
        ELSE.
          CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Successfully completed on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ')' INTO temp_message.
          CONCATENATE   ' Successfully completed - ' pc_duration INTO pc_status.
          iColor = 5.
        ENDIF.
      WHEN 'F'.
      Check if duration = '00:00:00' mark as **Error**
        IF pc_duration = '00:00:00'.
          CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Completed on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ') **Error**' INTO temp_message.
          CONCATENATE   ' Completed - ' pc_duration INTO pc_status.
          iColor = 3.
        ELSE.
          CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Completed on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ')' INTO temp_message.
          CONCATENATE   ' Completed - ' pc_duration INTO pc_status.
          iColor = 5.
        ENDIF.
      WHEN 'A'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Active on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ')' INTO temp_message.
        CONCATENATE   ' Active - ' pc_duration INTO pc_status.
        iColor = 3.
      WHEN 'X'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Canceled on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ') **Error**' INTO temp_message.
        CONCATENATE   ' Canceled - ' pc_duration INTO pc_status.
        iColor = 6.
      WHEN 'P'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Planned on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ')' INTO temp_message.
        CONCATENATE   ' Planned - ' pc_duration INTO pc_status.
        iColor = 3.
      WHEN 'S'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Skipped at restart on -' pc_run_date ' (Start->' pc_start_time '  End->' pc_end_time ' Duration->' pc_duration ')' INTO temp_message.
        CONCATENATE   ' Skipped at restart - ' pc_duration INTO pc_status.
        iColor = 3.
      WHEN 'Q'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Released on -' pc_run_date ' @ ' pc_end_time INTO temp_message.
        CONCATENATE   ' Released' ' ' INTO pc_status.
        iColor = 3.
      WHEN 'Y'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Ready on -' pc_run_date ' @ ' pc_end_time INTO temp_message.
        CONCATENATE   ' Ready' ' ' INTO pc_status.
        iColor = 3.
      WHEN 'J'.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Framework Error Upon Completion on -' pc_run_date ' @ ' pc_end_time ' **Error**' INTO temp_message.
        CONCATENATE   ' Framework Error' ' ' INTO pc_status.
        iColor = 3.
      WHEN OTHERS.
        CONCATENATE WA_RSPCLOGCHAIN-CHAIN_ID ' : Undefined on -' pc_run_date ' @ ' pc_end_time INTO temp_message.
        CONCATENATE   ' Undefined' ' ' INTO pc_status.
        iColor = 6.
    ENDCASE.            "Case pc status
  Append pc log to email object
    OBJCONT-LINE = temp_message.
    APPEND OBJCONT.
  change color and write log
    FORMAT INTENSIFIED COLOR = iColor.
    Write: / iCount, '   ', temp_message .
    iCount = iCount + 1.
    CLEAR temp_message.
  ENDLOOP.                               "Loop at all the process chaing log
Create email subject
  clear psubject.
  CONCATENATE SY-SYSID ' load - ' pc_status INTO psubject.
Fill the subject
  DOC_CHNG-OBJ_NAME = 'URGENT'.
  DOC_CHNG-OBJ_DESCR = psubject.
  DOC_CHNG-SENSITIVTY = 'P'.
Cheeck send email checkbox.
  IF p_Email = 'X'.                      "Check if send email is checked
    DESCRIBE TABLE OBJCONT LINES ENTRIES.
    READ TABLE OBJCONT INDEX ENTRIES.
    DOC_CHNG-DOC_SIZE = ( ENTRIES - 1 ) * 255 + STRLEN( OBJCONT ).
  Get recipients
    loop at s_mail.
      RECLIST-RECEIVER = s_mail-low.                    "recipient
      RECLIST-EXPRESS = 'X'.
      RECLIST-REC_TYPE = 'U'.                           "internet email
      append RECLIST.
    endloop.
  Send email
    CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
      EXPORTING
        DOCUMENT_TYPE              = 'RAW'
        DOCUMENT_DATA              = DOC_CHNG
        PUT_IN_OUTBOX              = 'X'
        COMMIT_WORK                = 'X'
      TABLES
        OBJECT_CONTENT             = OBJCONT
        RECEIVERS                  = RECLIST
      EXCEPTIONS
        TOO_MANY_RECEIVERS         = 1
        DOCUMENT_NOT_SENT          = 2
        OPERATION_NO_AUTHORIZATION = 4
        OTHERS                     = 99.
  Write email status.
    WRITE: /.
    CASE SY-SUBRC.
      WHEN 0.
        WRITE: / '*** Email sent to following recipient(s) ***'.
      Loot to get email id's.
        LOOP AT s_mail.         "Loop s_mail to get email address
          NAME = s_mail-low.
          IF RECLIST-RETRN_CODE = 0.
            WRITE: / NAME, ': succesfully sent'.
          ELSE.
            WRITE: / NAME, ': error occured'.
          ENDIF.
        ENDLOOP.               "Loop s_mail to get email address
      WHEN 1.
        WRITE: / 'Too many receivers specified !'.
      WHEN 2.
        WRITE: / 'No receiver got the document !'.
      WHEN 4.
        WRITE: / 'Missing send authority !'.
      WHEN OTHERS.
        WRITE: / 'Unexpected error occurred !'.
    ENDCASE.
  ENDIF.                        "Check if send email is checked
Shalin Shah