10.7 Codebeispiel zu CASE 
Als Nächstes sehen wir uns ein Codebeispiel zur CASE-Anweisung genauer an.
1 *&---------------------------------------------*
2 *& Report Z_TEILNEHMERLISTE10_CASE *
3 *& *
4 *&---------------------------------------------*
5 *& *
6 *& *
7 *&---------------------------------------------*
8
9 REPORT z_teilnehmerliste10_case.
10
11 * Workarea deklarieren
12 DATA: wa_zteilnehmer02 TYPE zteilnehmer02.
13
14 * Zeichenketten deklarieren
15 DATA: tz_pc_grundlagen TYPE i,
16 tz_netzwerktechnik TYPE i,
17 tz_sonst TYPE i.
18
19 * Vollständigen Tabelleninhalt ausgeben
20 SELECT * FROM zteilnehmer02 INTO wa_zteilnehmer02
21 ORDER BY PRIMARY KEY.
22 WRITE: / wa_zteilnehmer02-tnummer,
23 wa_zteilnehmer02-tname,
24 wa_zteilnehmer02-tgeburtsdatum,
25 wa_zteilnehmer02-tgeschlecht,
26 wa_zteilnehmer02-tkurspreis,
27 wa_zteilnehmer02-twaehrung,
28 wa_zteilnehmer02-zzkfztyp,
29 wa_zteilnehmer02-zzkurstitel.
30 ENDSELECT.
31
32 * Alle Sätze der Tabelle lesen, Anzahl der
Kursteilnehmer aufteilen mit CASE
33 SELECT * FROM zteilnehmer02 INTO wa_zteilnehmer02.
34 CASE wa_zteilnehmer02-zzkurstitel.
35 WHEN 'Netzwerktechnik'.
36 tz_netzwerktechnik = tz_netzwerktechnik + 1.
37 WHEN 'PC-Grundlagen'.
38 tz_pc_grundlagen = tz_pc_grundlagen + 1.
39 WHEN OTHERS.
40 tz_sonst = tz_sonst + 1.
41 ENDCASE.
42 ENDSELECT.
43 SKIP.
44 WRITE: / 'Verteilung der Personen auf die Kurse:',
45 / tz_netzwerktechnik, 'Netzwerktechnik',
46 / tz_pc_grundlagen, 'PC-Grundlagen',
47 / tz_sonst, 'sonstige Kurse'.
48
49 * Wieder benötigte Zähler initialisieren
50 CLEAR: tz_netzwerktechnik.
51
52 * sy-subrc der SELECT-Anweisung mit
CASE auswerten
53 SELECT * FROM zteilnehmer02 INTO wa_zteilnehmer02
54 WHERE zzkurstitel = 'Netzwerktechnik'.
55 tz_netzwerktechnik = tz_netzwerktechnik + 1.
56 ENDSELECT.
57 SKIP.
58 CASE sy-subrc.
59 WHEN 0.
60 * Okay-Fall
61 WRITE: / tz_netzwerktechnik, 'Teilnehmer für
den Kurs Netzwerktechnik gefunden'.
62 WHEN 4.
63 * Fehlerfall
64 WRITE: / 'keine Teilnehmer für den Kurs
Netzwerktechnik gefunden'.
65 WHEN OTHERS.
66 * Kann nicht sein, anderer sy-subrc von der
Anweisung nicht geliefert
67 ENDCASE.
Listing 10.4 Report Z_TEILNEHMERLISTE10_CASE
Anmerkungen zum Quellcode
Die ersten Codezeilen entsprechen weitgehend dem Beispiel aus Listing 10.3.
Zeile 33 bis 42
Alle Sätze der Teilnehmertabelle werden gelesen. Je nach Feldinhalt des Kurstitels werden die Zähler für die verschiedenen Kurse »Netzwerktechnik«, »PC-Grundlagen« und für sonstige Kurse hochgezählt.
Zeile 44 bis 47
Nach der SELECT-Schleife werden die Gruppensummen ausgegeben. Dabei gilt wieder das Prinzip, in der Schleife die Summen hochzuzählen und nach der Schleife die Summen auszugeben.
Zeile 50
Das Feld für die Gruppensumme der Teilnehmer am Kurs »Netzwerktechnik« wird im nächsten Abschnitt noch einmal gefüllt und muss deshalb initialisiert werden.
Zeile 53 bis 56
In der Tabelle werden alle Sätze gelesen, die die Bedingung erfüllen, dass im Feld für den Kurstitel »Netzwerktechnik« enthalten ist. Der Inhalt der Tabelle wird so manipuliert, dass einmal Treffer erzielt werden und in einem anderen Programmlauf keine Treffer erzielt werden können.
Zeile 58 bis 67
Unmittelbar nach der SELECT-Anweisung wird der Returncode dieser Anweisung über die CASE-Struktur ausgewertet. Die Auswertung des Returncodes muss immer unmittelbar nach dem Kommando erfolgen, dessen Returncode überprüft werden soll. Steht zwischen der CASE-Struktur ab Zeile 58 und dem Kommando ENDSELECT in Zeile 56, für das der Returncode ausgewertet werden soll, ein anderes Kommando, das seinerseits auch einen Returncode liefert, entsteht ein Problem – Sie sollten dann mit der CASE-Struktur den »falschen« Returncode abfragen. Am sichersten ist es, wenn dazwischen überhaupt keine andere Anweisung mehr steht oder – wie in unserem Beispiel – eine Anweisung, die SY-SUBRC nicht füllt. Das Kommando SKIP gehört in diesem Fall glücklicherweise zu dieser Gruppe.
Die CASE-Struktur im Beispiel unterscheidet den Okay-Fall und einen Fehlerfall. Hat der SY-SUBRC den Inhalt 0, hat das Lesen in der Tabelle Treffersätze erzielt. Für diese Treffersätze werden die Anweisungen im ersten Anweisungsblock verarbeitet. Der Anweisungsblock besteht im Beispiel nur aus einer Anweisung, könnte aber später auch ein Unterprogrammaufruf oder Ähnliches sein und die »normale« Verarbeitung abbilden.
In der CASE-Struktur wird als Fehlerfall berücksichtigt, dass SY-SUBRC den Inhalt 4 hat. Die SELECT-Anweisung liefert diesen Returncode zurück, wenn beim Lesen der Tabelleneinträge kein Treffer erzielt werden konnte. In unserem Beispiel gibt es keinen Satz, bei dem im Feld für die Kursbezeichnung »Netzwerktechnik« steht; entsprechende Tabelleneinträge wurden vor dem Programmstart gelöscht.
Folglich wird der Anweisungsblock für SY-SUBRC mit dem Inhalt 4 durchlaufen. In diesem Beispiel besteht die Fehlerbehandlung nur in einer anderen Listausgabe; in der Praxis kann die Fehlerbehandlung ähnlich umfangreich wie die »normale« Verarbeitung sein.
Ausgabe des Quellcodes
Im oberen Teil beider Listbilder sehen Sie den Tabelleninhalt wieder vollständig aufgelistet. In Abbildung 10.7 sind zwei Teilnehmer für den Kurs »Netzwerktechnik« vorhanden; deshalb endet die dritte SELECT-Anweisung mit dem Returncode 0, und die »normale« Verarbeitung wird durchlaufen, die die letzte Zeile in der Liste erstellt.
Abbildung 10.7 Listbild zum CASE-Beispiel – mit Returncode 0 der dritten SELECT-Anweisung
Beim zweiten Listbild in Abbildung 10.8 sehen Sie, dass keine Teilnehmer mehr für den Kurs »Netzwerktechnik« in der Tabelle vorhanden sind. Die dritte SELECT-Anweisung endet deshalb mit dem Returncode 4, und der Anweisungsblock für diesen Fehlerfall wird prozessiert. In der letzten Zeile erfolgt die Ausgabe, dass keine passenden Teilnehmer gefunden wurden.
Abbildung 10.8 Listbild zum CASE-Beispiel – mit Returncode 4 der dritten SELECT-Anweisung
Einstieg in ABAP
