Übung Schrödinger: 11 Ausnahmen (ABAP) - Versionsgeschichte

Matt am 13. April 2018 um 21:52 Uhr

2018-04-13T21:52:56Z

← Nächstältere Version		Version vom 13. April 2018, 23:52 Uhr
Zeile 1:		Zeile 1:
	~~Nachfolgend finden sich drei Listings aus den Übungsaufgaben zum Thema Ausnahmen aus Kapitel 11 des Buchs "Schrödinger programmiert ABAP".~~

	~~== Arten von Ausnahmen ==~~

	Ausnahmen können auf drei wegen erzeugt werden:		Ausnahmen können auf drei wegen erzeugt werden:
	# EXCEPTIONS-Parameter abfangen mit SY-SUBRC		# EXCEPTIONS-Parameter abfangen mit SY-SUBRC
	# CATCH SYSTEM-EXCEPTIONS (Obsolet)		# CATCH SYSTEM-EXCEPTIONS (Obsolet)
	# TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse		# TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse

			Nachfolgend finden sich drei Listings aus den Übungsaufgaben zum Thema Ausnahmen aus Kapitel 11 des Buchs "Schrödinger programmiert ABAP".

	== EXCEPTIONS mit SUBRC ==		== EXCEPTIONS mit SUBRC ==
Zeile 40:		Zeile 38:
	</syntaxhighlight>		</syntaxhighlight>

	== ~~TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse~~ ==		== Ausnahmeklassen in SAP ==

	~~Es stehen folgende Klassen ganz Oben in~~ der ~~Hierarchie zur Verfügung~~.		In SAP steht an oberster Stelle der Ausnahmeklassen die CX_ROOT. Diese hat drei Unterklassen.<br>
	~~Darin wird die in diesem~~ Listing verwendete Ausnahmeklasse ZCX_MATT_TERMINTREUE ~~unterhalb~~ von CX_STATIC-CHECK ~~erstellt~~:		Die im nachfolgenden Listing verwendete Ausnahmeklasse ZCX_MATT_TERMINTREUE ist eine Unterklasse von CX_STATIC-CHECK:

	# CX_ROOT		# CX_ROOT
Zeile 50:		Zeile 48:
	## CX_STATIC_CHECK		## CX_STATIC_CHECK
	### ZCX_MATT_TERMINTREUE		### ZCX_MATT_TERMINTREUE

			== TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse ==

	Die Klasse ZCX_MATT_TERMINTREUE wird mit Nachrichtenklasse erstellt, alle übrigen Einstellungen entsprechen den Vorgabewerten.		Die Klasse ZCX_MATT_TERMINTREUE wird mit Nachrichtenklasse erstellt, alle übrigen Einstellungen entsprechen den Vorgabewerten.

Matt am 13. April 2018 um 21:49 Uhr

2018-04-13T21:49:11Z

@@ Zeile 4: / Zeile 4: @@
 Ausnahmen können auf drei wegen erzeugt werden:
-# EXCEPTIONS-Parameter abgefangen mit SY-SUBRC
+# EXCEPTIONS-Parameter abfangen mit SY-SUBRC
 # CATCH SYSTEM-EXCEPTIONS (Obsolet)
-# Ausnahmeklasse
+# TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse
 == EXCEPTIONS mit SUBRC ==
@@ Zeile 40: / Zeile 40: @@
 </syntaxhighlight>
-== Ausnahmeklassen ==
+== TRY-CATCH-Ausnahmebehandlung mit Ausnahmeklasse ==
 <syntaxhighlight lang="abap">
 </syntaxhighlight>

Matt: Die Seite wurde neu angelegt: „Nachfolgend finden sich drei Listings aus den Übungsaufgaben zum Thema Ausnahmen aus Kapitel 11 des Buchs "Schrödinger programmiert ABAP". == Arten von Ausn…“

2018-04-13T21:01:31Z

Die Seite wurde neu angelegt: „Nachfolgend finden sich drei Listings aus den Übungsaufgaben zum Thema Ausnahmen aus Kapitel 11 des Buchs "Schrödinger programmiert ABAP". == Arten von Ausn…“

Neue Seite

Nachfolgend finden sich drei Listings aus den Übungsaufgaben zum Thema Ausnahmen aus Kapitel 11 des Buchs "Schrödinger programmiert ABAP".

== Arten von Ausnahmen ==

Ausnahmen können auf drei wegen erzeugt werden:
# EXCEPTIONS-Parameter abgefangen mit SY-SUBRC
# CATCH SYSTEM-EXCEPTIONS (Obsolet)
# Ausnahmeklasse

== EXCEPTIONS mit SUBRC ==

<syntaxhighlight lang="abap">
REPORT zsch_matt_exc.

DATA: gd_icon TYPE string VALUE 'ICON_GREEN_LIGHT',
gd_result TYPE string.

START-OF-SELECTION.

CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = gd_icon
IMPORTING
result = gd_result
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.

CASE sy-subrc.
WHEN 0.
WRITE: / 'Icon gefunden:', gd_result.
WHEN 1.
WRITE: / 'Icon nicht gefunden.'.
WHEN 2.
WRITE: / 'Output-Feld zu klein.'.
WHEN OTHERS.
WRITE: / 'Es ist eine unbekannte Ausnahme aufgetreten.'.
ENDCASE.
</syntaxhighlight>

== Ausnahmeklassen ==

<syntaxhighlight lang="abap">
</syntaxhighlight>

== EXCEPTIONS-Übungsbeispiel mit Internetzugriff und Interfaces ==

Programm zum Aufruf einer API per HTTP, die eine Antwort in Form von JSON liefert.

Dabei werden die Exceptions der einzelnen Schritte jeweils abgefangen.

<syntaxhighlight lang="abap">
REPORT zsch_matt_exc_getit.

* Verbindungsdaten
DATA: gr_client TYPE REF TO if_http_client, "Client für Anfrage
gd_host TYPE string VALUE 'openlibrary.org', "Datenquelle
gd_service TYPE string VALUE '80', "HTTPS-Port
gd_path TYPE string VALUE '/api/books?bibkeys=ISBN:9781592293117&jscmd=data&format=json',
gd_errortext TYPE string, "Fehlertext der Anfrage
gd_timeout TYPE i, "Langläufer?
gd_subrc LIKE sy-subrc. "Fehler bei Anfrage

* Datenausgabe
DATA: gd_data TYPE string, "Die Daten vom Response
gt_fields TYPE tihttpnvp, "Felder aus dem Header
gs_field LIKE LINE OF gt_fields,
gt_data TYPE stringtab, "Zerhackte Ergebnisdaten
gs_data LIKE LINE OF gt_data.

* Hauptprogramm
START-OF-SELECTION.

* Client-Objekt für die Kommunikation instanzieren
CALL METHOD cl_http_client=>create
EXPORTING
host = gd_host
service = gd_service
scheme = cl_http_client=>schemetype_http
IMPORTING
client = gr_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
WRITE: / 'Initialisierung des Clients fehlgeschlagen, subrc = ',sy-subrc.
EXIT.
ENDIF.

* Request-Methode auf GET setzen
CALL METHOD gr_client->request->set_method(
if_http_request=>co_request_method_get ).

* Protokollversion HTTP/1.0 setzen
gr_client->request->set_version(
if_http_request=>co_protocol_version_1_0 ).

* Request-URI setzen
cl_http_utility=>set_request_uri(
request = gr_client->request
uri = gd_path ).

* Senden des Requests
CALL METHOD gr_client->send
EXPORTING
timeout = gd_timeout
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4.

* Fehlerbehandlung
IF sy-subrc <> 0.
CALL METHOD gr_client->get_last_error
IMPORTING
code = gd_subrc
message = gd_errortext.
WRITE: / 'Kommunikationsfehler beim send',
/ 'Fehlercode: ', gd_subrc, 'Fehlernachricht: ', gd_errortext.
EXIT.
ENDIF.

* Empfangen der Ergebnisse
CALL METHOD gr_client->receive
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4.
IF sy-subrc <> 0.
CALL METHOD gr_client->get_last_error
IMPORTING
code = gd_subrc
message = gd_errortext.
WRITE: / 'Kommunikationsfehler beim receive',
/ 'Fehlercode: ', gd_subrc, 'Fehlernachricht: ', gd_errortext.
EXIT.
ENDIF.

* Ausgabe der Daten
* Header-Daten der Übertragung
CALL METHOD gr_client->response->get_header_fields
CHANGING
fields = gt_fields.

* Ausgabe der Header Fields auf Standardliste
ULINE.
WRITE: / 'Header Fields'.
ULINE.
LOOP AT gt_fields INTO gs_field.
WRITE: / 'header_name', gs_field-name, 'header_value', gs_field-value.
ENDLOOP.

* Response-Daten ermitteln aus Response-Objekt
gd_data = gr_client->response->get_cdata( ).

ULINE.
WRITE: / 'Data'.
ULINE.
SPLIT gd_data AT '{' INTO TABLE gt_data.
LOOP AT gt_data INTO gs_data.
WRITE: / gs_data.
ENDLOOP.

* Schließen der Verbindung
CALL METHOD gr_client->close
EXCEPTIONS
http_invalid_state = 1
OTHERS = 2.
IF sy-subrc <> 0.
CALL METHOD gr_client->get_last_error
IMPORTING
code = gd_subrc
message = gd_errortext.
WRITE: / 'Kommunikationsfehler beim close',
/ 'Fehlercode: ', gd_subrc, 'Fehlernachricht: ', gd_errortext.
EXIT.
ENDIF.
</syntaxhighlight>

[[Category:ABAP]]