mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
37 lines
732 B
ABAP
37 lines
732 B
ABAP
CLASS zcl_abapgit_environment DEFINITION
|
|
PUBLIC
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
CLASS-METHODS is_sap_cloud_platform
|
|
RETURNING
|
|
VALUE(rv_cloud) TYPE abap_bool .
|
|
PROTECTED SECTION.
|
|
|
|
CLASS-DATA gv_cloud TYPE abap_bool VALUE abap_undefined ##NO_TEXT.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_ENVIRONMENT IMPLEMENTATION.
|
|
|
|
|
|
METHOD is_sap_cloud_platform.
|
|
|
|
IF gv_cloud = abap_undefined.
|
|
TRY.
|
|
CALL METHOD ('CL_COS_UTILITIES')=>('IS_SAP_CLOUD_PLATFORM')
|
|
RECEIVING
|
|
rv_is_sap_cloud_platform = gv_cloud.
|
|
CATCH cx_sy_dyn_call_illegal_method.
|
|
gv_cloud = abap_false.
|
|
ENDTRY.
|
|
ENDIF.
|
|
|
|
rv_cloud = gv_cloud.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|