Z_Monitor_batch_jobs

*&---------------------------------------------------------------------*
*& Report Z_BC_JOB_PERF
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_bc_job_perf.

*Selection Screen Text Elements Declared :
******************************************
*TEXT-005 - Batch job monitoring
*TEXT-007 - Send mail after release jobs finished
*TEXT-008 - Long running jobs check
*TEXT-012 - Email edit control
*TEXT-036 - Cutoff Mails
*TEXT-023 - Mail to Business
*TEXT-024 - Mail to AMS Team
*TEXT-058 - hr
*************************************************
SELECTION-SCREEN  BEGIN OF LINE.
PARAMETERS : rb_d RADIOBUTTON GROUP rb1 DEFAULT 'X' USER-COMMAND cmd.
SELECTION-SCREEN COMMENT 3(20) TEXT-005.
SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME.
SELECT-OPTIONS: s_date FOR sy-datum OBLIGATORY DEFAULT sy-datum NO-EXTENSION MODIF ID jd,
    s_jobtab FOR tvarvc-low OBLIGATORY   NO-EXTENSION
                 NO INTERVALS            MODIF ID jd,
    s_job FOR ztm_job_details-jobname    MODIF ID j1
                 NO INTERVALS,
    s_wjob FOR ztm_job_w_detail-jobname  MODIF ID j2
                 NO INTERVALS,
    s_mjob FOR ztm_m_job_detail-jobname  MODIF ID j3
                 NO INTERVALS,
    s_ejob FOR ztm_job_detail_1-jobname  MODIF ID j4
                 NO INTERVALS,
    s_exjob FOR ztm_job_detail_2-jobname MODIF ID j5
                 NO INTERVALS,
    s_ljr FOR ztm_l_r_job_details-jobname   MODIF ID j6,
    s_timlo FOR sy-timlo MODIF ID jd,
    s_usnam FOR sy-uname MODIF ID jd.

PARAMETERS : cb_mail AS CHECKBOX DEFAULT ' ' MODIF ID jd.

SELECT-OPTIONS: s_email FOR /cockpit/swc_mail-email LOWER CASE
                                                    NO INTERVALS
                                                    MODIF ID jd.
PARAMETERS: p_layout TYPE disvariant-variant DEFAULT '/DAILY'
      MODIF ID jd.
PARAMETERS: p_bat_jb TYPE string NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : rb_w RADIOBUTTON GROUP rb1.
SELECTION-SCREEN COMMENT 3(22) TEXT-036.
SELECTION-SCREEN : END OF LINE.

*- Cutoff Mails
SELECTION-SCREEN BEGIN OF BLOCK b6 WITH FRAME.
SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : rb_mail RADIOBUTTON GROUP rb2 DEFAULT 'X' USER-COMMAND cmd
                  MODIF ID rs.
SELECTION-SCREEN COMMENT 3(20) TEXT-023     MODIF ID rs.
PARAMETERS : rb_self RADIOBUTTON GROUP rb2  MODIF ID rs.
SELECTION-SCREEN COMMENT 26(20) TEXT-024    MODIF ID rs.
SELECTION-SCREEN : END OF LINE.

SELECT-OPTIONS: s_cutoff FOR ztm_job_details-jobname NO INTERVALS
    MODIF ID cj.
PARAMETERS p_cuttim TYPE time MODIF ID cj.
SELECT-OPTIONS: s_dat FOR sy-datum NO-EXTENSION
           NO INTERVALS
           DEFAULT sy-datum
           MODIF ID cj.
SELECT-OPTIONS: s_cemail FOR /cockpit/swc_mail-email LOWER CASE
                 NO INTERVALS
                 MODIF ID cj.
paramters: p_cutjob type string no-display.
SELECTION-SCREEN END OF BLOCK rb6.

SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : rb_m RADIOBUTTON GROUP rb1.
SELECTION-SCREEN COMMENT 3(70) TEXT-007.
SELECTION-SCREEN : END OF LINE.

*- Release Job Mails
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME.
SELECT-OPTIONS: s_reljob FOR ztm_job_details-jobname NO INTERVALS
                 MODIF ID rj.
SELECT-OPTIONS: s_remail FOR /cockpit/swc_mail-email LOWER CASE
                 NO INTERVALS
                 MODIF ID rj.
PARAMETERS: p_re_job TYPE string NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : rb_lr RADIOBUTTON GROUP rb1.
SELECTION-SCREEN COMMENT 3(70) TEXT-008.
SELECTION-SCREEN : END OF LINE.

* Send mail with Excel
SELECTION-SCREEN BEGIN OF BLOCK b7 WITH FRAME.
PARAMETERS : p_cutoff TYPE i MODIF ID lr.
SELECTION-SCREEN COMMENT 48(12) TEXT-058 MODIF ID lr.
SELECT-OPTIONS s_lrj FOR ztm_l_r_job-jobname NO INTERVALS
               MODIF ID lr.
SELECT-OPTIONS: s_lrm FOR /cockpit/swc_mail-email LOWER CASE
              NO INTERVALS
              MODIF ID lr.
PARAMETERS: p_lg_run TYPE string NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b7.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-012.
*- Parameter for Text Edit Control
PARAMETERS: p_text TYPE c LENGTH 100 MODIF ID md1.
SELECTION-SCREEN PUSHBUTTON 79(8) but1 USER-COMMAND click MODIF ID md1.
SELECTION-SCREEN END OF BLOCK b1.