SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +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_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 ).

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

@ -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.