How to schedule a Process Chain using ABAP Program?

Question

Hi All,
I want to schedule the activity of extracting data from the query to a flatfile.
Currently we are schedulling it using the transaction rscrm_bapi.
I need to know , how we can achieve the same using an abap program and not ( rscrm_bapi) in a process chain.
Any help would be appreciated.
Regards
Purva

Answer 1

Your problem will be solved if you use the Function Module "RSPC_API_CHAIN_GET_STATUS" instead of the function module "RSPC_API_CHAIN_GET_LOG".
The function module "RSPC_API_CHAIN_GET_STATUS" gives you the STatus of the process chain, when you pass the Chain Name and the Log ID.
If you get an output
G or F - Report that the Chain is Successfully Completed.
A - The chain is Currently running
R or X - Report that the chain has ended with Errors.
Sample code :
REPORT Z_BW_GET_STATUS_PROZESSKETTE.
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,
gt_status like RSPC_STATE.
SELECT * FROM rspclogchain
INTO CORRESPONDING FIELDS OF TABLE gt_rspclogchain
WHERE datum = sy-datum
AND chain_id = 'BD_C02_1D'.
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_STATUS'
EXPORTING
i_chain = wa_rspclogchain-chain_id
i_logid = wa_rspclogchain-log_id
IMPORTING
E_STATUS = gt_status.
IF gt_status = 'G' or gt_status = 'F'.
WRITE :/ 'BD_C02_2D chain COMPLETED'.
ELSE.
WRITE :/ 'BD_CO2_2D chain is Running or Ended with Errors'.
ENDIF.
ELSE.
WRITE :/ 'No chain BD_C02_2D started for today ! or keine Kette BD_C02_2D gestartet !'.
ENDIF.
I have just provided a sample code, you might have to edit or add necessary messages to the program.
Regards,
Ramya