Program to get List of Scheduled Process Chains

TYPES: BEGIN OF l_s_scheduled,
       chain   TYPE rspc_chain,
       sdlstrtdt TYPE tbtco-sdlstrtdt,
       sdlstrttm TYPE tbtco-sdlstrttm,
       jobname  TYPE tbtco-jobname,
       jobcount TYPE tbtco-jobcount,
       progname TYPE tbtcp-progname,
       variant TYPE tbtcp-variant,
  END OF l_s_scheduled.

DATA: l_t_scheduled TYPE STANDARD TABLE OF l_s_scheduled,
      l_t_valtab    TYPE STANDARD TABLE OF rsparams,
      l_w_valtab    TYPE rsparams.

FIELD-SYMBOLS	<l_f_scheduled> TYPE l_s_scheduled.

SELECT a~jobname a~jobcount a~sdlstrtdt a~sdlstrttm b~progname b~variant
INTO CORRESPONDING FIELDS OF TABLE l_t_scheduled
   FROM tbtco AS a JOIN tbtcp AS b
              ON a~jobname = b~jobname AND
                 a~jobcount = b~jobcount
WHERE a~jobname = 'BI_PROCESS_TRIGGER' AND
      a~status = 'S'. "Scheduled
WRITE :/ 'Chain Name               ', '|' ,'Start Date', '|', 'Start Time'.

ULINE.
LOOP AT l_t_scheduled ASSIGNING <l_f_scheduled>.
  REFRESH l_t_valtab.
  CALL FUNCTION 'RS_VARIANT_CONTENTS'
    EXPORTING
      report               = <l_f_scheduled>-progname
      variant              = <l_f_scheduled>-variant
    TABLES
      valutab              = l_t_valtab
    EXCEPTIONS
      variant_non_existent = 1
      variant_obsolete     = 2
      OTHERS               = 3.
  IF sy-subrc = 0.
    READ TABLE l_t_valtab INTO l_w_valtab
    WITH KEY selname = 'CHAIN'.
    IF sy-subrc = 0.
      <l_f_scheduled>-chain = l_w_valtab-low.
    ENDIF.

    WRITE :/ <l_f_scheduled>-chain, '|', <l_f_scheduled>-sdlstrtdt, '|' , <l_f_scheduled>-sdlstrttm.
  ENDIF.
ENDLOOP.
ULINE.