SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 04:08:27 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Backport ZCX_ABAPGIT_EXCEPTION to 7.02

Browse Source 
Co-authored-by: Tapio Reisinger <tr@erp-bt.de>
This commit is contained in:
Fabian Lupa 2018-03-17 12:55:43 +01:00
parent 422d158307
commit 8186964ef0
2 changed files with 70 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/zcx_abapgit_exception.clas.abap
View File

@ -26,26 +26,26 @@ CLASS zcx_abapgit_exception DEFINITION
"! @parameter iv_msgv3 | Message variable 3 "! @parameter iv_msgv3 | Message variable 3
"! @parameter iv_msgv4 | Message variable 4 "! @parameter iv_msgv4 | Message variable 4
"! @raising zcx_abapgit_exception | Exception "! @raising zcx_abapgit_exception | Exception
raise_t100 IMPORTING VALUE(iv_msgid) TYPE syst_msgid DEFAULT sy-msgid raise_t100 IMPORTING VALUE(iv_msgid) TYPE symsgid DEFAULT sy-msgid
VALUE(iv_msgno) TYPE syst_msgno DEFAULT sy-msgno VALUE(iv_msgno) TYPE symsgno DEFAULT sy-msgno
VALUE(iv_msgv1) TYPE syst_msgv DEFAULT sy-msgv1 VALUE(iv_msgv1) TYPE symsgv DEFAULT sy-msgv1
VALUE(iv_msgv2) TYPE syst_msgv DEFAULT sy-msgv2 VALUE(iv_msgv2) TYPE symsgv DEFAULT sy-msgv2
VALUE(iv_msgv3) TYPE syst_msgv DEFAULT sy-msgv3 VALUE(iv_msgv3) TYPE symsgv DEFAULT sy-msgv3
VALUE(iv_msgv4) TYPE syst_msgv DEFAULT sy-msgv4 VALUE(iv_msgv4) TYPE symsgv DEFAULT sy-msgv4
RAISING zcx_abapgit_exception . RAISING zcx_abapgit_exception .
METHODS: METHODS:
constructor IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL constructor IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL
previous LIKE previous OPTIONAL previous LIKE previous OPTIONAL
msgv1 TYPE syst_msgv OPTIONAL msgv1 TYPE symsgv OPTIONAL
msgv2 TYPE syst_msgv OPTIONAL msgv2 TYPE symsgv OPTIONAL
msgv3 TYPE syst_msgv OPTIONAL msgv3 TYPE symsgv OPTIONAL
msgv4 TYPE syst_msgv OPTIONAL. msgv4 TYPE symsgv OPTIONAL.
DATA: DATA:
subrc TYPE syst_subrc READ-ONLY, subrc TYPE sysubrc READ-ONLY,
msgv1 TYPE syst_msgv READ-ONLY, msgv1 TYPE symsgv READ-ONLY,
msgv2 TYPE syst_msgv READ-ONLY, msgv2 TYPE symsgv READ-ONLY,
msgv3 TYPE syst_msgv READ-ONLY, msgv3 TYPE symsgv READ-ONLY,
msgv4 TYPE syst_msgv READ-ONLY. msgv4 TYPE symsgv READ-ONLY.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: CONSTANTS:
@ -54,7 +54,7 @@ ENDCLASS.
CLASS ZCX_ABAPGIT_EXCEPTION IMPLEMENTATION. CLASS zcx_abapgit_exception IMPLEMENTATION.
METHOD constructor ##ADT_SUPPRESS_GENERATION. METHOD constructor ##ADT_SUPPRESS_GENERATION.
super->constructor( previous = previous ). super->constructor( previous = previous ).

108
src/zcx_abapgit_exception.clas.testclasses.abap
View File

@ -15,12 +15,12 @@ CLASS ltcl_test DEFINITION
PRIVATE SECTION. PRIVATE SECTION.
TYPES: TYPES:
BEGIN OF gty_t100_message, BEGIN OF gty_t100_message,
msgid TYPE syst_msgid, msgid TYPE symsgid,
msgno TYPE syst_msgno, msgno TYPE symsgno,
msgv1 TYPE syst_msgv, msgv1 TYPE symsgv,
msgv2 TYPE syst_msgv, msgv2 TYPE symsgv,
msgv3 TYPE syst_msgv, msgv3 TYPE symsgv,
msgv4 TYPE syst_msgv, msgv4 TYPE symsgv,
END OF gty_t100_message. END OF gty_t100_message.
CLASS-METHODS: CLASS-METHODS:
get_exc_text IMPORTING ix_ex TYPE REF TO cx_root get_exc_text IMPORTING ix_ex TYPE REF TO cx_root
@ -91,68 +91,68 @@ CLASS ltcl_test IMPLEMENTATION.
METHOD test_t100_text. METHOD test_t100_text.
CONSTANTS: BEGIN OF lc_msg1, CONSTANTS: BEGIN OF lc_msg1,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '001', msgno TYPE symsgno VALUE '001',
msgv1 TYPE syst_msgv VALUE IS INITIAL, msgv1 TYPE symsgv VALUE IS INITIAL,
msgv2 TYPE syst_msgv VALUE IS INITIAL, msgv2 TYPE symsgv VALUE IS INITIAL,
msgv3 TYPE syst_msgv VALUE IS INITIAL, msgv3 TYPE symsgv VALUE IS INITIAL,
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg1, END OF lc_msg1,
BEGIN OF lc_msg2, BEGIN OF lc_msg2,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '001', msgno TYPE symsgno VALUE '001',
msgv1 TYPE syst_msgv VALUE 'Variable 1', msgv1 TYPE symsgv VALUE 'Variable 1',
msgv2 TYPE syst_msgv VALUE IS INITIAL, msgv2 TYPE symsgv VALUE IS INITIAL,
msgv3 TYPE syst_msgv VALUE IS INITIAL, msgv3 TYPE symsgv VALUE IS INITIAL,
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg2, END OF lc_msg2,
BEGIN OF lc_msg3, BEGIN OF lc_msg3,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '001', msgno TYPE symsgno VALUE '001',
msgv1 TYPE syst_msgv VALUE 'Variable 1', msgv1 TYPE symsgv VALUE 'Variable 1',
msgv2 TYPE syst_msgv VALUE 'Variable 2', msgv2 TYPE symsgv VALUE 'Variable 2',
msgv3 TYPE syst_msgv VALUE IS INITIAL, msgv3 TYPE symsgv VALUE IS INITIAL,
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg3, END OF lc_msg3,
BEGIN OF lc_msg4, BEGIN OF lc_msg4,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '001', msgno TYPE symsgno VALUE '001',
msgv1 TYPE syst_msgv VALUE 'Variable 1', msgv1 TYPE symsgv VALUE 'Variable 1',
msgv2 TYPE syst_msgv VALUE 'Variable 2', msgv2 TYPE symsgv VALUE 'Variable 2',
msgv3 TYPE syst_msgv VALUE'Variable 3', msgv3 TYPE symsgv VALUE'Variable 3',
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg4, END OF lc_msg4,
BEGIN OF lc_msg5, BEGIN OF lc_msg5,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '001', msgno TYPE symsgno VALUE '001',
msgv1 TYPE syst_msgv VALUE 'Variable 1', msgv1 TYPE symsgv VALUE 'Variable 1',
msgv2 TYPE syst_msgv VALUE 'Variable 2', msgv2 TYPE symsgv VALUE 'Variable 2',
msgv3 TYPE syst_msgv VALUE 'Variable 3', msgv3 TYPE symsgv VALUE 'Variable 3',
msgv4 TYPE syst_msgv VALUE 'Variable 4', msgv4 TYPE symsgv VALUE 'Variable 4',
END OF lc_msg5, END OF lc_msg5,
BEGIN OF lc_msg6, BEGIN OF lc_msg6,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '003', msgno TYPE symsgno VALUE '003',
msgv1 TYPE syst_msgv VALUE 'Variable 1', msgv1 TYPE symsgv VALUE 'Variable 1',
msgv2 TYPE syst_msgv VALUE 'Variable 2', msgv2 TYPE symsgv VALUE 'Variable 2',
msgv3 TYPE syst_msgv VALUE 'Variable 3', msgv3 TYPE symsgv VALUE 'Variable 3',
msgv4 TYPE syst_msgv VALUE 'Variable 4', msgv4 TYPE symsgv VALUE 'Variable 4',
END OF lc_msg6, END OF lc_msg6,
BEGIN OF lc_msg7, BEGIN OF lc_msg7,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '003', msgno TYPE symsgno VALUE '003',
msgv1 TYPE syst_msgv VALUE IS INITIAL, msgv1 TYPE symsgv VALUE IS INITIAL,
msgv2 TYPE syst_msgv VALUE IS INITIAL, msgv2 TYPE symsgv VALUE IS INITIAL,
msgv3 TYPE syst_msgv VALUE IS INITIAL, msgv3 TYPE symsgv VALUE IS INITIAL,
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg7, END OF lc_msg7,
BEGIN OF lc_msg8, BEGIN OF lc_msg8,
msgid TYPE syst_msgid VALUE '00', msgid TYPE symsgid VALUE '00',
msgno TYPE syst_msgno VALUE '002', msgno TYPE symsgno VALUE '002',
msgv1 TYPE syst_msgv VALUE IS INITIAL, msgv1 TYPE symsgv VALUE IS INITIAL,
msgv2 TYPE syst_msgv VALUE IS INITIAL, msgv2 TYPE symsgv VALUE IS INITIAL,
msgv3 TYPE syst_msgv VALUE IS INITIAL, msgv3 TYPE symsgv VALUE IS INITIAL,
msgv4 TYPE syst_msgv VALUE IS INITIAL, msgv4 TYPE symsgv VALUE IS INITIAL,
END OF lc_msg8. END OF lc_msg8.
DATA: lx_ex TYPE REF TO zcx_abapgit_exception, DATA: lx_ex TYPE REF TO zcx_abapgit_exception,
lv_text TYPE string. lv_text TYPE string.