Ausnahme-Klasse mit RESUME zum Zeitpunkt AT SELECTION-SCREEN

[Dian3368]

Irgendwas an meinem Coding funktioniert einfach nicht

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT  zea_tmpca001.
2. DATA:
3.   h_string    TYPE string,
4.   ref_exc     TYPE REF TO zcx_mvk.
5. *
6. PARAMETER: pa_test TYPE xtest DEFAULT 'X'.
7. *
8. AT SELECTION-SCREEN.
9. *
10.   TRY.
11. *
12. *--* Prüfung 1 *-------------------------------------------------------*
13. *
14.       PERFORM do_check USING    1.
15. *
16. *--* Prüfung 2 *-------------------------------------------------------*
17. *
18.       PERFORM do_check USING    2.
19. *
20. *--* Prüfung 3 *-------------------------------------------------------*
21. *
22.       PERFORM do_check USING    3.
23. *
24.     CATCH BEFORE UNWIND zcx_mvk INTO ref_exc.
25.       MESSAGE ref_exc TYPE 'W'.
26.       IF ref_exc->is_resumable = 'X'.
27.         RESUME.
28.       ENDIF.
29.   ENDTRY.
30. *
31. START-OF-SELECTION.
32. *
33.   WRITE: / sy-subrc.
34. *
35. *&---------------------------------------------------------------------*
36. *&      Form  DO_CHECK
37. *&---------------------------------------------------------------------*
38. *
39. FORM do_check  USING    pi_zahl TYPE i
40.                RAISING  resumable(zcx_mvk).
41. *
42.   TRY.
43.     CASE pi_zahl.
44.       WHEN 1.
45.         h_string = 'Meldung Prüfung 1'.
46.       WHEN 2.
47.         h_string = 'Prüfung 2 angestoßen'.
48.       WHEN 3.
49.         h_string = 'jetzt kommt Prüfung 3'.
50.     ENDCASE.
51. *
52.     RAISE RESUMABLE EXCEPTION TYPE zcx_mvk
53.       EXPORTING
54.         textid   = zcx_mvk=>msgtext
55.         h_string = h_string.
56.   ENDTRY.
57. *
58. ENDFORM.                    " DO_CHECK

GeSHi ©

Wenn ich es ausführe bekomme ich die erste Meldung als Warning wie es sein soll, aber dann sofort die Ausnahme CX_SY_ILLEGAL_HANDLER, obwohl im Feld ref_exc->is_resumable ein 'X' steht. Laut Dump ist die IF-Abfrage schon der Auslöser. Was mache ich falsch?

[Dian3368]

Keine Experten hier?

[Giuliano508]

Hallo zusammen,
da ich gerade über dasselbe Problem gestolpert bin, schreibe ich hier noch mal die Lösung für die nachfolgenden Generationen hin

Das Problem liegt hier an dem Message Statement, scheinbar wird damit schon die Terminierung des Behandlers eingeleitet und ein RESUME ist nicht mehr möglich. Ich habe das jetzt so gelöst, dass ich mir die Nachrichten merke und diese dann nach dem TRY-Block ausgebe.

Vielleicht hilft das ja nochmal wem.

Viele Grüße
Sascha

[Dian3368]

Super!
Das war wirklich des Rätsels Lösung - Vielen Dank für den Hinweis!