Eine Anweisung "" ist nicht vorgesehen

Eine Anweisung "" ist nicht vorgesehen

Hallo zusammen,

ich tauche in die ABAP-Welt und habe direkt ein Problem.
Ein Beispiel aus dem Buch "Schrödinger programmiert" bringe mich schon am meine Grenzen. Der Fehler lautet:

Eine Anweisung "GO_PICTURE" ist nicht vorgesehen. Bitte überprüfen Sie die Schreibweise.

und es ist bei dem unten hervorhehobener Zeile (grau markiert).

Wo ist der Fehler bitte?

REPORT zsch_03_durchblick.
* TABLES-Struktur für Dynpro-Daten
TABLES: zsch03project.
* Parameter für das Projekt
PARAMETERS: pa_proj TYPE zsch03project-projekte OBLIGATORY.
* Die Variable zum Befüllen
* Variante 1
DATA: gs_project TYPE zsch03project.
* Controls

DATA: go_container TYPE REF TO cl_gui_custom_container.
*Variante1
go_picture TYPE REF TO cl_gui_picture.

START-OF-SELECTION.
* Das mächtige WRITE zaubert eine Zeile in die Liste
WRITE: / 'Durchblick 3.0'.
* Variante 1: Einzelsatz lesen*1
SELECT SINGLE * FROM zsch03project INTO gs_project
WHERE projekte = 'pa_proj'.
* Jetzt auch mit logischer Kontrolle
IF sy-subrc = 0.
* ... und in der Liste ausgeben
WRITE: / gs_project.

ELSE.
* Variante 1: der arme Anwender
WRITE: / 'Och schade, nichts gefunden für Projekt = ', pa_proj.
* Variante 2: der arme Anwender
WRITE: / | Och schade, nichts gefunden für Projekt = { pa_proj }|.
ENDIF.

* Hier springt die Laufzeitumgebung rein
AT LINE-SELECTION.
* Daten in die TABLES-Struktur
zsch03project = gs_project.
* Dynpro aufrufen
CALL SCREEN 9100.


*&---------------------------------------------------------------------*
*& Module CREATE_CONTROLS OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE CREATE_CONTROLS OUTPUT.
*Control instaniieren
IF go_container IS NOT BOUND.
*Container
CREATE OBJECT go_container
EXPORTING
Container_name = 'Bild'.
*Bild
*Variante 1
CREATE OBJECT go_picture
EXPORTING
parent = go_container.
**Variante 2
* DATA(go_picture) = NEW cl_gui_picture( go_container ).

*Bild laden
CALL METHOD go_picture->load_picture_from_url
EXPORTING
url = gs_project-bild.

ENDIF.
ENDMODULE.


Danke und beste Grüße

Re: Eine Anweisung "" ist nicht vorgesehen

Ein Beispiel aus dem Buch "Schrödinger programmiert"

https://de.wikipedia.org/wiki/Schr%C3%B6dingers_Katze