*&---------------------------------------------------------------------*
*&  Include           ZHRST_EFD_EHS_SST
*&---------------------------------------------------------------------*

CLASS lcl_sst DEFINITION.

  PUBLIC SECTION.

    CLASS-METHODS:

      sst_validations
        IMPORTING
                  i_event     TYPE zehrst_event   OPTIONAL
                  it_table    TYPE STANDARD TABLE OPTIONAL
        RETURNING VALUE(r_ok) TYPE flag.

    METHODS:

      constructor
        IMPORTING
          i_event       TYPE zehrst_event
          it_range_date TYPE ztthrst_range_s_dats OPTIONAL
          it_table      TYPE STANDARD TABLE,

      run,

      display_log.

  PRIVATE SECTION.

    DATA: mo_sst_class TYPE REF TO zif_hrst_efd_sst.

ENDCLASS.


CLASS lcl_sst IMPLEMENTATION.

  METHOD sst_validations.

    IF  i_event  IS NOT INITIAL
    AND it_table IS NOT INITIAL.

      r_ok = 'X'.

    ELSE.

      IF i_event IS INITIAL.
        MESSAGE text-001 TYPE 'S' DISPLAY LIKE 'E'.
      ENDIF.

      IF it_table IS INITIAL.
        MESSAGE text-002 TYPE 'S' DISPLAY LIKE 'E'.
      ENDIF.

    ENDIF.

  ENDMETHOD.


  METHOD constructor.

    DATA(lv_class) = |ZCL_HRST_EFD_{ i_event }|.
    CREATE OBJECT mo_sst_class TYPE (lv_class)
      EXPORTING
        it_range_date = it_range_date
        it_table      = it_table.

  ENDMETHOD.

  METHOD run.

    mo_sst_class->process( ).

  ENDMETHOD.

  METHOD display_log.

  ENDMETHOD.


ENDCLASS.