Programmverständnis III - komplexeres Bsp.

Programmverständnis III - komplexeres Bsp.

Hallo,

habe mir mal wieder ein kleines Beispiel rausgesucht und versucht nachzuvollziehen - vielleicht könnt ihr mal aus Expertensicht sagen, was sich hier so in den Zeilen alles tut, damit ich vergleichen kann - laufen tut das Programm soweit schon.


START-OF-SELECTION.
PERFORM read_flights.

END-OF-SELECTION.
PERFORM display_flights.
set PF-Status 'S_BASE'.
set titlebar 'T_BASE'.
clear wa_sflight-fldate.

AT SELECTION-SCREEN .
AUTHORITY-CHECK OBJECT 'S_CARRID'
ID 'CARRID' FIELD pa_car
ID 'ACTVT' FIELD '03'.
CHECK sy-subrc NE 0.
MESSAGE e045 WITH pa_car.

AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'BOOK'.
CHECK NOT wa_sflight-fldate IS INITIAL.
PERFORM read_bookings USING wa_sflight-carrid
wa_sflight-connid
wa_sflight-fldate
not_cancelled
CHANGING it_sbook.
SORT it_sbook BY carrid connid fldate bookid.
PERFORM display_bookings.
SET PF-STATUS 'S_BOOK'.
SET TITLEBAR 'T_BOOK'.
CLEAR: wa_sflight-fldate.
ENDCASE.

FORM read_flights.
SELECT * FROM sflight INTO TABLE it_sflight
WHERE carrid = pa_car
AND connid IN so_con.
ENDFORM.


FORM display_flights.
LOOP AT it_sflight INTO wa_sflight.
WRITE: / wa_sflight-carrid,
wa_sflight-connid,
wa_sflight-fldate,
wa_sflight-price CURRENCY wa_sflight-currency,
wa_sflight-seatsmax,
wa_sflight-seatsocc.

HIDE: wa_sflight-carrid,
wa_sflight-connid,
wa_sflight-fldate.




ENDLOOP.
ENDFORM.

FORM read_bookings USING p_carrid TYPE sbook-carrid
p_connid TYPE sbook-connid
p_fldate TYPE sbook-fldate
p_cancelled TYPE sbook-cancelled
CHANGING p_it_sbook LIKE it_sbook.
SELECT * FROM sbook INTO CORRESPONDING FIELDS OF TABLE p_it_sbook
WHERE carrid = p_carrid
AND connid = p_connid
AND fldate = p_fldate
AND cancelled = p_cancelled.




ENDFORM. " read_bookings

FORM display_bookings.
LOOP AT it_sbook INTO wa_sbook.
WRITE: / wa_sbook-bookid,
wa_sbook-customid,
wa_sbook-custtype,
wa_sbook-luggweight UNIT wa_sbook-wunit,
wa_sbook-wunit,
wa_sbook-class,
wa_sbook-order_date,
wa_sbook-cancelled.
ENDLOOP.
ENDFORM.


Danke für eure Tips

ja chrisu, das mach ich ja auch, nur als absoluter Neuling sind die Hilfetexte auch nicht so einfach zu verstehen, und einiges könnt ihr hier echt super darlegen bzw. erläutern.

Danke nochmals

Ja ich befinde mich zur Zeit in einer Umschulung, greife aber zusätzlich noch auf Material von einer Universität zurück. - und das ist anders aufgebaut als unsere Schulungsunterlagen.

Nunja und unser Tutor von der Umschulung hat so schon zuviel zutun ;(