Raise durch Message Raising ersetzen

Code: Alles auswählen.

Code:

CALL FUNCTION 'TRINT_ORDER_CHOICE'
             EXPORTING
                  wi_order_type          = cu_order_type
                  wi_task_type           = cu_task_type
                  wi_category            = cu_category
                  wi_cli_dep             = space
             IMPORTING
                  we_order               = <status>-order_nbr
                  we_task                = <status>-corr_nbr
             TABLES
                  wt_e071                = cu_e071_tab
                  wt_e071k               = corr_keytab
             EXCEPTIONS
                  no_correction_selected = 1
                  display_mode           = 2
                  object_append_error    = 3
                  recursive_call         = 4
                  OTHERS                 = 5.
        IF sy-subrc NE 0.
* restore saved keytab entries and corr_objtab
          LOOP AT cu_corr_keytab_safe INTO corr_keytab.
            APPEND corr_keytab.
          ENDLOOP.
          e071 = e071_safe. vim_corr_objtab[] = cu_corr_objtab.
          IF sy-subrc NE 1.
            MESSAGE ID     sy-msgid
                    TYPE   'I'
                    NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2  sy-msgv3 sy-msgv4.
          ENDIF.
          RAISE saving_correction_failed.
        ENDIF.                         "sy-subrc ne 0