SAP Background Job History Report Generator: TBTCO and TBTCP in ABAP

REPORT ZBC_JOB_HISTORY.

TYPES: BEGIN OF ty_result,
         jobname   TYPE tbtco-jobname,
         jobcount  TYPE tbtco-jobcount,
         status    TYPE tbtco-status,
         strtdate  TYPE tbtco-strtdate,
         strttime  TYPE tbtco-strttime,
         enddate   TYPE tbtco-enddate,
         endtime   TYPE tbtco-endtime,
         sdluname  TYPE tbtco-sdluname,
         stepcount TYPE tbtcp-stepcount,
         progname  TYPE tbtcp-progname,
         variant   TYPE tbtcp-variant,
         authcknam TYPE tbtcp-authcknam,
         listident TYPE tbtcp-listident,
         runtime_s TYPE i,
         lastmsg   TYPE tbtc5-text,
       END OF ty_result.

DATA: lt_result TYPE STANDARD TABLE OF ty_result,
      lt_log    TYPE STANDARD TABLE OF tbtc5,
      ls_log    TYPE tbtc5,
      lr_status TYPE RANGE OF tbtco-status,
      ls_status LIKE LINE OF lr_status,
      lr_user   TYPE RANGE OF tbtcp-authcknam,
      ls_user   LIKE LINE OF lr_user,
      lv_job    TYPE tbtco-jobname,
      lv_prog   TYPE tbtcp-progname,
      lv_text   TYPE string,
      lo_alv    TYPE REF TO cl_salv_table,
      lo_func   TYPE REF TO cl_salv_functions_list,
      lx_msg    TYPE REF TO cx_salv_msg.

FIELD-SYMBOLS: <ls_res> TYPE ty_result.

PARAMETERS: p_job  TYPE tbtco-jobname   DEFAULT 'Z*',
            p_prog TYPE tbtcp-progname  DEFAULT '[Program name pattern (blank = all)]',
            p_stat TYPE tbtco-status    DEFAULT 'A',
            p_from TYPE sy-datum        DEFAULT '20261001',
            p_to   TYPE sy-datum        DEFAULT '20261022',
            p_user TYPE tbtcp-authcknam DEFAULT '[Step user (blank = all)]',
            p_max  TYPE i               DEFAULT 500.

START-OF-SELECTION.

* Convert * wildcards to SQL LIKE wildcards
  lv_job = p_job.
  TRANSLATE lv_job USING '*%'.
  IF lv_job IS INITIAL.
    lv_job = '%'.
  ENDIF.
  lv_prog = p_prog.
  TRANSLATE lv_prog USING '*%'.
  IF lv_prog IS INITIAL.
    lv_prog = '%'.
  ENDIF.

* Empty range = no restriction
  IF p_stat IS NOT INITIAL AND p_stat <> '*'.
    ls_status-sign   = 'I'.
    ls_status-option = 'EQ'.
    ls_status-low    = p_stat.
    APPEND ls_status TO lr_status.
  ENDIF.
  IF p_user IS NOT INITIAL.
    ls_user-sign   = 'I'.
    ls_user-option = 'EQ'.
    ls_user-low    = p_user.
    APPEND ls_user TO lr_user.
  ENDIF.

  SELECT a~jobname a~jobcount a~status a~strtdate a~strttime
         a~enddate a~endtime a~sdluname
         b~stepcount b~progname b~variant b~authcknam b~listident
    INTO CORRESPONDING FIELDS OF TABLE lt_result
    FROM tbtco AS a
    INNER JOIN tbtcp AS b
      ON  b~jobname  = a~jobname
      AND b~jobcount = a~jobcount
    UP TO p_max ROWS
    WHERE a~jobname   LIKE lv_job
      AND a~status    IN lr_status
      AND a~strtdate  BETWEEN p_from AND p_to
      AND b~progname  LIKE lv_prog
      AND b~authcknam IN lr_user
    ORDER BY a~strtdate DESCENDING a~strttime DESCENDING.

  IF sy-subrc <> 0.
    MESSAGE 'No jobs found for the selection' TYPE 'S'.
    RETURN.
  ENDIF.

  LOOP AT lt_result ASSIGNING <ls_res>.
*   Runtime: date difference in days plus time difference in seconds
    IF <ls_res>-enddate IS NOT INITIAL.
      <ls_res>-runtime_s = ( <ls_res>-enddate - <ls_res>-strtdate ) * 86400
                         + ( <ls_res>-endtime - <ls_res>-strttime ).
    ENDIF.

*   Last error or abort message from the job log of cancelled jobs
    IF <ls_res>-status = 'A'.
      CLEAR lt_log.
      CALL FUNCTION 'BP_JOBLOG_READ'
        EXPORTING
          client    = sy-mandt
          jobcount  = <ls_res>-jobcount
          jobname   = <ls_res>-jobname
        TABLES
          joblogtbl = lt_log
        EXCEPTIONS
          OTHERS    = 1.
      IF sy-subrc = 0.
        LOOP AT lt_log INTO ls_log WHERE msgtype = 'A' OR msgtype = 'E'.
          <ls_res>-lastmsg = ls_log-text.
        ENDLOOP.
      ENDIF.
    ENDIF.
  ENDLOOP.

  TRY.
      cl_salv_table=>factory(
        IMPORTING r_salv_table = lo_alv
        CHANGING  t_table      = lt_result ).
      lo_func = lo_alv->get_functions( ).
      lo_func->set_all( 'X' ).
      lo_alv->display( ).
    CATCH cx_salv_msg INTO lx_msg.
      lv_text = lx_msg->get_text( ).
      MESSAGE lv_text TYPE 'I'.
  ENDTRY.

* Replace the SELECT above with this form if your release supports it
*  SELECT a~jobname, a~jobcount, a~status, a~strtdate, a~strttime,
*         a~enddate, a~endtime, a~sdluname,
*         b~stepcount, b~progname, b~variant, b~authcknam, b~listident
*    FROM tbtco AS a
*    INNER JOIN tbtcp AS b
*      ON  b~jobname  = a~jobname
*      AND b~jobcount = a~jobcount
*    WHERE a~jobname   LIKE @lv_job
*      AND a~status    IN @lr_status
*      AND a~strtdate  BETWEEN @p_from AND @p_to
*      AND b~progname  LIKE @lv_prog
*      AND b~authcknam IN @lr_user
*    ORDER BY a~strtdate DESCENDING, a~strttime DESCENDING
*    INTO CORRESPONDING FIELDS OF TABLE @lt_result
*    UP TO @p_max ROWS.