ABAP Program for Processchain..

Question

I have one processchain that is running my manually.
if processchain running means need a output like processchain running.if processchain not running/completed
i need a output like process completed.so finaly i need to develop abap program for my processchain.any one write program for my processchain?

Answer 1

Hi,
REPORT  ZPROCESSCHAINLOG.
TABLES rspclogchain.
DATA: gt_rspclogchain LIKE rspclogchain OCCURS 0,
      wa_rspclogchain LIKE rspclogchain.
DATA: gt_log LIKE rspc_s_msg OCCURS 0,
      wa_log LIKE rspc_s_msg,
      log type c.
SELECT * FROM rspclogchain
INTO CORRESPONDING FIELDS OF TABLE gt_rspclogchain
WHERE datum eq sy-datum
AND chain_id = YOUR PROCESSCHAINID.
IF sy-subrc = 0.
  SORT gt_rspclogchain BY datum DESCENDING
                           zeit DESCENDING.
  READ TABLE gt_rspclogchain
       INTO wa_rspclogchain INDEX 1.
  CALL FUNCTION 'RSPC_API_CHAIN_GET_LOG'
    EXPORTING
      i_chain = wa_rspclogchain-chain_id
      i_logid = wa_rspclogchain-log_id
    TABLES
      e_t_log = gt_log.
  IF sy-subrc = 0.
    LOOP AT gt_log INTO wa_log.
      if wa_log-msgv4 = 'Successfully completed'.
        log = 1 .
      endif.
    ENDLOOP.
    if log = 1.
      WRITE: / 'Processchain completed'.
    ELSE.
      WRITE :/ 'processchain is running'.
    endif.
  ELSEIF sy-subrc <> 0.
    WRITE :/ 'Not scheduled'.
  endif.
endif.
Best Regards,
Thangesh