From 8186964ef039ac59b4d6369a3292941f0174e315 Mon Sep 17 00:00:00 2001 From: Fabian Lupa Date: Sat, 17 Mar 2018 12:55:43 +0100 Subject: [PATCH] Backport ZCX_ABAPGIT_EXCEPTION to 7.02 Co-authored-by: Tapio Reisinger --- src/zcx_abapgit_exception.clas.abap | 32 +++--- ...cx_abapgit_exception.clas.testclasses.abap | 108 +++++++++--------- 2 files changed, 70 insertions(+), 70 deletions(-) diff --git a/src/zcx_abapgit_exception.clas.abap b/src/zcx_abapgit_exception.clas.abap index 17d492374..4f70c0d0c 100644 --- a/src/zcx_abapgit_exception.clas.abap +++ b/src/zcx_abapgit_exception.clas.abap @@ -26,26 +26,26 @@ CLASS zcx_abapgit_exception DEFINITION "! @parameter iv_msgv3 | Message variable 3 "! @parameter iv_msgv4 | Message variable 4 "! @raising zcx_abapgit_exception | Exception - raise_t100 IMPORTING VALUE(iv_msgid) TYPE syst_msgid DEFAULT sy-msgid - VALUE(iv_msgno) TYPE syst_msgno DEFAULT sy-msgno - VALUE(iv_msgv1) TYPE syst_msgv DEFAULT sy-msgv1 - VALUE(iv_msgv2) TYPE syst_msgv DEFAULT sy-msgv2 - VALUE(iv_msgv3) TYPE syst_msgv DEFAULT sy-msgv3 - VALUE(iv_msgv4) TYPE syst_msgv DEFAULT sy-msgv4 + raise_t100 IMPORTING VALUE(iv_msgid) TYPE symsgid DEFAULT sy-msgid + VALUE(iv_msgno) TYPE symsgno DEFAULT sy-msgno + VALUE(iv_msgv1) TYPE symsgv DEFAULT sy-msgv1 + VALUE(iv_msgv2) TYPE symsgv DEFAULT sy-msgv2 + VALUE(iv_msgv3) TYPE symsgv DEFAULT sy-msgv3 + VALUE(iv_msgv4) TYPE symsgv DEFAULT sy-msgv4 RAISING zcx_abapgit_exception . METHODS: constructor IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL previous LIKE previous OPTIONAL - msgv1 TYPE syst_msgv OPTIONAL - msgv2 TYPE syst_msgv OPTIONAL - msgv3 TYPE syst_msgv OPTIONAL - msgv4 TYPE syst_msgv OPTIONAL. + msgv1 TYPE symsgv OPTIONAL + msgv2 TYPE symsgv OPTIONAL + msgv3 TYPE symsgv OPTIONAL + msgv4 TYPE symsgv OPTIONAL. DATA: - subrc TYPE syst_subrc READ-ONLY, - msgv1 TYPE syst_msgv READ-ONLY, - msgv2 TYPE syst_msgv READ-ONLY, - msgv3 TYPE syst_msgv READ-ONLY, - msgv4 TYPE syst_msgv READ-ONLY. + subrc TYPE sysubrc READ-ONLY, + msgv1 TYPE symsgv READ-ONLY, + msgv2 TYPE symsgv READ-ONLY, + msgv3 TYPE symsgv READ-ONLY, + msgv4 TYPE symsgv READ-ONLY. PROTECTED SECTION. PRIVATE SECTION. CONSTANTS: @@ -54,7 +54,7 @@ ENDCLASS. -CLASS ZCX_ABAPGIT_EXCEPTION IMPLEMENTATION. +CLASS zcx_abapgit_exception IMPLEMENTATION. METHOD constructor ##ADT_SUPPRESS_GENERATION. super->constructor( previous = previous ). diff --git a/src/zcx_abapgit_exception.clas.testclasses.abap b/src/zcx_abapgit_exception.clas.testclasses.abap index 7211a7929..38da53ab1 100644 --- a/src/zcx_abapgit_exception.clas.testclasses.abap +++ b/src/zcx_abapgit_exception.clas.testclasses.abap @@ -15,12 +15,12 @@ CLASS ltcl_test DEFINITION PRIVATE SECTION. TYPES: BEGIN OF gty_t100_message, - msgid TYPE syst_msgid, - msgno TYPE syst_msgno, - msgv1 TYPE syst_msgv, - msgv2 TYPE syst_msgv, - msgv3 TYPE syst_msgv, - msgv4 TYPE syst_msgv, + msgid TYPE symsgid, + msgno TYPE symsgno, + msgv1 TYPE symsgv, + msgv2 TYPE symsgv, + msgv3 TYPE symsgv, + msgv4 TYPE symsgv, END OF gty_t100_message. CLASS-METHODS: get_exc_text IMPORTING ix_ex TYPE REF TO cx_root @@ -91,68 +91,68 @@ CLASS ltcl_test IMPLEMENTATION. METHOD test_t100_text. CONSTANTS: BEGIN OF lc_msg1, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '001', - msgv1 TYPE syst_msgv VALUE IS INITIAL, - msgv2 TYPE syst_msgv VALUE IS INITIAL, - msgv3 TYPE syst_msgv VALUE IS INITIAL, - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '001', + msgv1 TYPE symsgv VALUE IS INITIAL, + msgv2 TYPE symsgv VALUE IS INITIAL, + msgv3 TYPE symsgv VALUE IS INITIAL, + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg1, BEGIN OF lc_msg2, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '001', - msgv1 TYPE syst_msgv VALUE 'Variable 1', - msgv2 TYPE syst_msgv VALUE IS INITIAL, - msgv3 TYPE syst_msgv VALUE IS INITIAL, - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '001', + msgv1 TYPE symsgv VALUE 'Variable 1', + msgv2 TYPE symsgv VALUE IS INITIAL, + msgv3 TYPE symsgv VALUE IS INITIAL, + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg2, BEGIN OF lc_msg3, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '001', - msgv1 TYPE syst_msgv VALUE 'Variable 1', - msgv2 TYPE syst_msgv VALUE 'Variable 2', - msgv3 TYPE syst_msgv VALUE IS INITIAL, - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '001', + msgv1 TYPE symsgv VALUE 'Variable 1', + msgv2 TYPE symsgv VALUE 'Variable 2', + msgv3 TYPE symsgv VALUE IS INITIAL, + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg3, BEGIN OF lc_msg4, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '001', - msgv1 TYPE syst_msgv VALUE 'Variable 1', - msgv2 TYPE syst_msgv VALUE 'Variable 2', - msgv3 TYPE syst_msgv VALUE'Variable 3', - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '001', + msgv1 TYPE symsgv VALUE 'Variable 1', + msgv2 TYPE symsgv VALUE 'Variable 2', + msgv3 TYPE symsgv VALUE'Variable 3', + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg4, BEGIN OF lc_msg5, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '001', - msgv1 TYPE syst_msgv VALUE 'Variable 1', - msgv2 TYPE syst_msgv VALUE 'Variable 2', - msgv3 TYPE syst_msgv VALUE 'Variable 3', - msgv4 TYPE syst_msgv VALUE 'Variable 4', + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '001', + msgv1 TYPE symsgv VALUE 'Variable 1', + msgv2 TYPE symsgv VALUE 'Variable 2', + msgv3 TYPE symsgv VALUE 'Variable 3', + msgv4 TYPE symsgv VALUE 'Variable 4', END OF lc_msg5, BEGIN OF lc_msg6, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '003', - msgv1 TYPE syst_msgv VALUE 'Variable 1', - msgv2 TYPE syst_msgv VALUE 'Variable 2', - msgv3 TYPE syst_msgv VALUE 'Variable 3', - msgv4 TYPE syst_msgv VALUE 'Variable 4', + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '003', + msgv1 TYPE symsgv VALUE 'Variable 1', + msgv2 TYPE symsgv VALUE 'Variable 2', + msgv3 TYPE symsgv VALUE 'Variable 3', + msgv4 TYPE symsgv VALUE 'Variable 4', END OF lc_msg6, BEGIN OF lc_msg7, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '003', - msgv1 TYPE syst_msgv VALUE IS INITIAL, - msgv2 TYPE syst_msgv VALUE IS INITIAL, - msgv3 TYPE syst_msgv VALUE IS INITIAL, - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '003', + msgv1 TYPE symsgv VALUE IS INITIAL, + msgv2 TYPE symsgv VALUE IS INITIAL, + msgv3 TYPE symsgv VALUE IS INITIAL, + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg7, BEGIN OF lc_msg8, - msgid TYPE syst_msgid VALUE '00', - msgno TYPE syst_msgno VALUE '002', - msgv1 TYPE syst_msgv VALUE IS INITIAL, - msgv2 TYPE syst_msgv VALUE IS INITIAL, - msgv3 TYPE syst_msgv VALUE IS INITIAL, - msgv4 TYPE syst_msgv VALUE IS INITIAL, + msgid TYPE symsgid VALUE '00', + msgno TYPE symsgno VALUE '002', + msgv1 TYPE symsgv VALUE IS INITIAL, + msgv2 TYPE symsgv VALUE IS INITIAL, + msgv3 TYPE symsgv VALUE IS INITIAL, + msgv4 TYPE symsgv VALUE IS INITIAL, END OF lc_msg8. DATA: lx_ex TYPE REF TO zcx_abapgit_exception, lv_text TYPE string.