*&---------------------------------------------------------------------*
*&  Include           ZINFMONITOR_GUI_APPL_FRM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  INITIALIZATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM initialization .

  CREATE OBJECT go_appl.

ENDFORM.                    " INITIALIZATION

*&---------------------------------------------------------------------*
*&      Form  START_OF_SELECTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM start_of_selection .
  DATA: ls_filters TYPE zcl_intfmonitor_gui_appl=>mtyp_s_filter_by.

  ls_filters-intfid       = s_intid[].
  ls_filters-procdate     = s_prcdt[].
  ls_filters-proctime     = s_prctm[].
  ls_filters-procby       = s_prcby[].
  ls_filters-procendtype  = s_prctp[].

  go_appl->search( ls_filters ).

ENDFORM.                    " START_OF_SELECTION
*&---------------------------------------------------------------------*
*&      Form  END_OF_SELECTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM end_of_selection .

  CALL SCREEN 0100.

ENDFORM.                    " END_OF_SELECTION
*&---------------------------------------------------------------------*
*&      Form  STATUS_0100
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM status_0100 .
  set PF-STATUS 'S0100'.
  set TITLEBAR  'T0100'.

  IF NOT go_container IS BOUND.
    CREATE OBJECT go_container
      EXPORTING
        container_name = 'CONTAINER'.

    go_appl->display( go_container ).

  ENDIF.
ENDFORM.                    " STATUS_0100
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND_0100
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM user_command_0100 .

ENDFORM.                    " USER_COMMAND_0100
*&---------------------------------------------------------------------*
*&      Form  EXIT_0100
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM exit_0100 .
  LEAVE TO SCREEN 0.
ENDFORM.                                                    " EXIT_0100
