ABAP Objects Basics Tutorial - Versionsgeschichte

Matt am 11. April 2018 um 09:39 Uhr

2018-04-11T09:39:06Z

← Nächstältere Version		Version vom 11. April 2018, 11:39 Uhr
Zeile 5:		Zeile 5:
	Die in dem Tutorial entwickelten Klassen stellen sich in einem UML Klassendiagramm wie folgt dar:		Die in dem Tutorial entwickelten Klassen stellen sich in einem UML Klassendiagramm wie folgt dar:

			[[Datei:ABAP Objects Basic Guided Tutorial UML Class Diagramm.png]]

Matt am 11. April 2018 um 09:36 Uhr

2018-04-11T09:36:20Z

← Nächstältere Version		Version vom 11. April 2018, 11:36 Uhr
Zeile 4:		Zeile 4:

	Die in dem Tutorial entwickelten Klassen stellen sich in einem UML Klassendiagramm wie folgt dar:		Die in dem Tutorial entwickelten Klassen stellen sich in einem UML Klassendiagramm wie folgt dar:




	== Klassen ==		== Klassen ==

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

	=== ZCL_VEHICLE_MO ===		=== ZCL_VEHICLE_MO ===

Matt am 11. April 2018 um 09:34 Uhr

2018-04-11T09:34:21Z

@@ Zeile 6: / Zeile 6: @@
 == Klassen ==
 <syntaxhighlight lang="abap">
@@ Zeile 150: / Zeile 149: @@
 </syntaxhighlight>
-=== ZCL_SHIP_MO - erbt von ZCL_VEHICLE_MO, definiert Ereignis ===
+=== ZCL_SHIP_MO - Definiert Ereignis ===
 <syntaxhighlight lang="abap">
@@ Zeile 234: / Zeile 233: @@
 </syntaxhighlight>
-Diese Klasse enhält die Methode START und führt die übrigen Klassen aus.
+=== ZCL_HELICOPTER_MO - Empfängt Ereignis ===
 <syntaxhighlight lang="abap">
@@ Zeile 279: / Zeile 333: @@
    ENDTRY.
 ENDMETHOD.
 </syntaxhighlight>
 [[Category:ABAP]]

Matt am 11. April 2018 um 09:22 Uhr

2018-04-11T09:22:53Z

@@ Zeile 99: / Zeile 99: @@
      MESSAGE msg TYPE 'I'.
    ENDMETHOD.
 ENDCLASS.
 </syntaxhighlight>

Matt: Die Seite wurde neu angelegt: „Nachfolgender Artikel enhält die Programmcodes, die aus dem ABAP Objects Basic Guided Tutorial von SAP (https://archive.sap.com/documents/docs/DOC-10394) ents…“

2018-04-11T09:18:55Z

Die Seite wurde neu angelegt: „Nachfolgender Artikel enhält die Programmcodes, die aus dem ABAP Objects Basic Guided Tutorial von SAP (https://archive.sap.com/documents/docs/DOC-10394) ents…“

Neue Seite

Nachfolgender Artikel enhält die Programmcodes, die aus dem ABAP Objects Basic Guided Tutorial von SAP (https://archive.sap.com/documents/docs/DOC-10394) entstanden sind.

== UML Klassendiagramm ==

Die in dem Tutorial entwickelten Klassen stellen sich in einem UML Klassendiagramm wie folgt dar:

== Zu entwickelnde Klassen ==

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

=== ZCL_VEHICLE_MO ===

<syntaxhighlight lang="abap">
*----------------------------------------------------------------------*
* CLASS ZCL_VEHICLE_MO DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class ZCL_VEHICLE_MO definition
public
create public .

public section.

interfaces ZIF_STATUS_MO .

aliases SHOW
for ZIF_STATUS_MO~SHOW .

methods CONSTRUCTOR .
methods SPEED_UP
importing
!STEP type I
raising
ZCX_OVERHEATING_MO .
methods STOP .
PROTECTED SECTION.

DATA speed TYPE i .
DATA max_speed TYPE i VALUE 50. "#EC NOTEXT . . . " .
PRIVATE SECTION.

DATA id TYPE i .
CLASS-DATA object_count TYPE i .
ENDCLASS.

CLASS ZCL_VEHICLE_MO IMPLEMENTATION.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_VEHICLE_MO->CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD constructor.
object_count = object_count + 1.
id = object_count.
ENDMETHOD. "CONSTRUCTOR

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_VEHICLE_MO->SPEED_UP
* +-------------------------------------------------------------------------------------------------+
* | [--->] STEP TYPE I
* | [!CX!] ZCX_OVERHEATING_MO
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD speed_up.
speed = speed + step.

IF speed > max_speed.
RAISE EXCEPTION TYPE zcx_overheating_mo.
ENDIF.

ENDMETHOD. "SPEED_UP

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_VEHICLE_MO->STOP
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD stop.
speed = 0.
ENDMETHOD. "stop

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_VEHICLE_MO->ZIF_STATUS_MO~SHOW
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD zif_status_mo~show.
DATA msg TYPE string.
msg = `Vehicle ` && |{ id }| &&
`, Speed = ` && |{ speed }| &&
`, Max-Speed = ` && |{ max_speed }| .
MESSAGE msg TYPE 'I'.
ENDMETHOD.
ENDCLASS.
</syntaxhighlight>

=== ZCL_APPLICATION_MO ===

Diese Klasse enhält die Methode START und führt die übrigen Klassen aus.

<syntaxhighlight lang="abap">
METHOD start.
DATA: lr_status TYPE REF TO zif_status_mo,
lt_status LIKE TABLE OF lr_status,
lr_truck TYPE REF TO zcl_truck_mo,
lr_ship TYPE REF TO zcl_ship_mo,
lr_heli TYPE REF TO zcl_helicopter_mo.

CREATE OBJECT:
lr_truck,
lr_ship EXPORTING name = 'Titanic',
lr_heli.

APPEND:
lr_truck TO lt_status,
lr_ship TO lt_status,
lr_heli TO lt_status.

SET HANDLER lr_heli->receive FOR ALL INSTANCES.

TRY.
lr_truck->speed_up( 30 ).
lr_ship->speed_up( 10 ).

LOOP AT lt_status INTO lr_status.
lr_status->show( ).
ENDLOOP.

DO 5 TIMES.
lr_ship->speed_up( 10 ).
ENDDO.

DO 5 TIMES.
lr_truck->speed_up( 30 ).
lr_truck->show( ).
ENDDO.
CATCH zcx_overheating_mo.
MESSAGE 'Truck overheated' TYPE 'I'.
EXIT.
ENDTRY.
ENDMETHOD.
</syntaxhighlight>

[[Category:ABAP]]