REPORT  zj_1af017h.
*----------------------------------------------------------------------*
* INCLUDES                                                             *
*----------------------------------------------------------------------*
INCLUDE zj_1af017h_data.
INCLUDE zj_1af017h_clss.
INCLUDE zj_1af017h_as_au.  "Percepciones + retenciones
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
START-OF-SELECTION.
  DATA:
        lo_exc_ref    TYPE REF TO cx_sy_create_object_error.

  TRY.
*     Crear objeto del aplicativo en particular.
      CREATE OBJECT go_aplic
        TYPE
          ('LCL_APLIC_H')
        EXPORTING
          i_lv_tapli      = 'H'
          i_lv_descr      = 'Percepc/Reten TUC'.

    CATCH cx_sy_create_object_error INTO lo_exc_ref.
      MESSAGE 'Error al instanciar clase.' TYPE 'I'.
      LEAVE PROGRAM.
  ENDTRY.

  IF sy-subrc EQ 0.
    go_aplic->main( ).
  ENDIF.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
**  SET PF-STATUS 'xxxxxxxx'.
**  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT