Add files via upload

Author: whothefluff

README.md

@@ -2,4 +2,8 @@
 
 Exceptions that implement the message interface and that take a message in the constructor
 
-The interface has a type so a message from an exception like this should be sent with "MESSAGE ..." (without the TYPE addition)
+The interface has a type so a message from an exception like this should be sent with "MESSAGE ..." (without the TYPE addition)
+
+Since ABAP 7.53 the addition USING MESSAGE can be used to throw an exception with the current message variables of sy structure, making creating an exception of this type by feeding it a ZCL_SY_MESSAGE object somewhat obsolete
+
+While it is technically possible to modify the value of the attribute "severity" of the new interface, the code was implemented assuming that the severity and the type will match

src/zcx_dynamic_check.clas.abap

@@ -6,7 +6,7 @@ class zcx_dynamic_check definition
 
   public section.
 
-    interfaces: if_t100_dyn_msg.
+    interfaces: if_abap_behv_message.
 
     "! <p class="shorttext synchronized" lang="EN">Creates an exception. Can use a t100 msg</p>
     "!
@@ -66,6 +66,15 @@ class zcx_dynamic_check implementation.
                                              attr3 = 'IF_T100_DYN_MSG~MSGV3'
                                              attr4 = 'IF_T100_DYN_MSG~MSGV4' ).
 
+      me->if_abap_behv_message~m_severity = cond #( when i_t100_message is instance of if_abap_behv_message
+                                                    then cast if_abap_behv_message( i_t100_message )->m_severity
+                                                    else switch #( sy-msgty
+                                                                   when 'E' then if_abap_behv_message=>severity-error
+                                                                   when 'I' then if_abap_behv_message=>severity-information
+                                                                   when 'W' then if_abap_behv_message=>severity-warning
+                                                                   when 'S' then if_abap_behv_message=>severity-success
+                                                                   else throw cx_sy_message_illegal_text( ) ) ).
+
     else.
 
       me->if_t100_message~t100key = if_t100_message=>default_textid.

src/zcx_no_check.clas.abap

@@ -6,7 +6,7 @@ class zcx_no_check definition
 
   public section.
 
-    interfaces: if_t100_dyn_msg.
+    interfaces: if_abap_behv_message.
 
     "! <p class="shorttext synchronized" lang="EN">Creates an exception. Can use a t100 msg</p>
     "!
@@ -66,6 +66,15 @@ class zcx_no_check implementation.
                                              attr3 = 'IF_T100_DYN_MSG~MSGV3'
                                              attr4 = 'IF_T100_DYN_MSG~MSGV4' ).
 
+      me->if_abap_behv_message~m_severity = cond #( when i_t100_message is instance of if_abap_behv_message
+                                                    then cast if_abap_behv_message( i_t100_message )->m_severity
+                                                    else switch #( sy-msgty
+                                                                   when 'E' then if_abap_behv_message=>severity-error
+                                                                   when 'I' then if_abap_behv_message=>severity-information
+                                                                   when 'W' then if_abap_behv_message=>severity-warning
+                                                                   when 'S' then if_abap_behv_message=>severity-success
+                                                                   else throw cx_sy_message_illegal_text( ) ) ).
+
     else.
 
       me->if_t100_message~t100key = if_t100_message=>default_textid.

src/zcx_static_check.clas.abap

@@ -6,7 +6,7 @@ class zcx_static_check definition
 
   public section.
 
-    interfaces: if_t100_dyn_msg.
+    interfaces: if_abap_behv_message.
 
     "! <p class="shorttext synchronized" lang="EN">Creates an exception. Can use a t100 msg</p>
     "!
@@ -66,6 +66,15 @@ class zcx_static_check implementation.
                                              attr3 = 'IF_T100_DYN_MSG~MSGV3'
                                              attr4 = 'IF_T100_DYN_MSG~MSGV4' ).
 
+      me->if_abap_behv_message~m_severity = cond #( when i_t100_message is instance of if_abap_behv_message
+                                                    then cast if_abap_behv_message( i_t100_message )->m_severity
+                                                    else switch #( sy-msgty
+                                                                   when 'E' then if_abap_behv_message=>severity-error
+                                                                   when 'I' then if_abap_behv_message=>severity-information
+                                                                   when 'W' then if_abap_behv_message=>severity-warning
+                                                                   when 'S' then if_abap_behv_message=>severity-success
+                                                                   else throw cx_sy_message_illegal_text( ) ) ).
+
     else.
 
       me->if_t100_message~t100key = if_t100_message=>default_textid.