*&---------------------------------------------------------------------* *& Include ZABAPGIT_APP *&---------------------------------------------------------------------* CLASS lcl_gui DEFINITION DEFERRED. CLASS lcl_persistence_user DEFINITION DEFERRED. CLASS lcl_repo_srv DEFINITION DEFERRED. CLASS lcl_persistence_db DEFINITION DEFERRED. CLASS lcl_persistence_settings DEFINITION DEFERRED. *----------------------------------------------------------------------* * CLASS lcl_app DEFINITION *----------------------------------------------------------------------* CLASS lcl_app DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS run RAISING lcx_exception. CLASS-METHODS gui RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui RAISING lcx_exception. CLASS-METHODS user IMPORTING iv_user TYPE xubname DEFAULT sy-uname RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user RAISING lcx_exception. CLASS-METHODS repo_srv RETURNING VALUE(ro_repo_srv) TYPE REF TO lcl_repo_srv. CLASS-METHODS db RETURNING VALUE(ro_db) TYPE REF TO lcl_persistence_db. CLASS-METHODS settings RETURNING VALUE(ro_settings) TYPE REF TO lcl_persistence_settings. PRIVATE SECTION. CLASS-DATA: go_gui TYPE REF TO lcl_gui, go_current_user TYPE REF TO lcl_persistence_user, go_db TYPE REF TO lcl_persistence_db, go_repo_srv TYPE REF TO lcl_repo_srv, go_settings TYPE REF TO lcl_persistence_settings. ENDCLASS. "lcl_app