Refactor: scimessages CHECK 97 (#879)

larshp · Nov 15, 2019 · 1c4f375 · 1c4f375
1 parent f56a2f4
commit 1c4f375
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 14 deletions.
diff --git a/src/checks/zcl_aoc_check_97.clas.abap b/src/checks/zcl_aoc_check_97.clas.abap
@@ -9,8 +9,8 @@ CLASS zcl_aoc_check_97 DEFINITION
 
     METHODS run
         REDEFINITION .
-    METHODS get_message_text
-        REDEFINITION .
+  PROTECTED SECTION.
+  PRIVATE SECTION.
 ENDCLASS.
 
 
@@ -31,19 +31,10 @@ CLASS ZCL_AOC_CHECK_97 IMPLEMENTATION.
     add_obj_type( 'PROG' ).
     add_obj_type( 'FUGR' ).
 
-  ENDMETHOD.
-
-
-  METHOD get_message_text.
+    insert_scimessage(
+        iv_code = '001'
+        iv_text = 'Text of Field &1 doesn''t refer to the dictionary.'(m01) ).
 
-    CASE p_code.
-      WHEN '001'.
-        p_text = 'Text of Field &1 doesn''t refer to the dictionary.'. "#EC NOTEXT
-      WHEN OTHERS.
-        super->get_message_text( EXPORTING p_test = p_test
-                                           p_code = p_code
-                                 IMPORTING p_text = p_text ).
-    ENDCASE.
   ENDMETHOD.
 
 

diff --git a/src/checks/zcl_aoc_check_97.clas.xml b/src/checks/zcl_aoc_check_97.clas.xml
@@ -11,6 +11,14 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <TPOOL>
+    <item>
+     <ID>I</ID>
+     <KEY>M01</KEY>
+     <ENTRY>Text of Field &amp;1 doesn&apos;t refer to the dictionary.</ENTRY>
+     <LENGTH>98</LENGTH>
+    </item>
+   </TPOOL>
   </asx:values>
  </asx:abap>
 </abapGit>