Bsp. für die Verwendung von NODES und GET und logischen Datenbanken
*&---------------------------------------------------------------------*
*& Report ZTEST35
*&
*&---------------------------------------------------------------------*
*&
*& Demonstration of NODES und logischen Datenbanken
*&
*&---------------------------------------------------------------------*
REPORT ZTEST35.
"spfli Flugnummern: Fluggesellschaft und Flugnummern und Flugzeiten
"sflight Flüge: Fluggesellschaft und Flugnummer und Flugdatum Belegung
"sbook Flugbuchungungen: Fluggesellschaft und Flugnummer und Flugdatum
" und Kundeninfo
"Ausabe aller Flugnummern (Event spfli)
"Ausgabe aller Flüge (Event sflight)
"Ausgabe der Buchungen des Fluges (Event sbook)
"Ausgabe des Gesamtgewichts (Summe von sbook mit Event sflight late)
"Asscociate report to logical database F1S
"according SE36 for table SPFLI
"in attribute section of report
"REPORT ZGET_DEMO.
NODES: SPFLI, SFLIGHT, SBOOK.
DATA WEIGHT TYPE I VALUE 0.
START-OF-SELECTION.
WRITE 'Test Program for GET and GET LATE events demonstration'.
GET SPFLI.
ULINE. "HST
SKIP.
WRITE: / 'Carrid:', SPFLI-CARRID,
'Connid:', SPFLI-CONNID,
/ 'From: ', SPFLI-CITYFROM,
'To: ', SPFLI-CITYTO.
"ULINE. HST
GET SFLIGHT.
SKIP.
WRITE: / ' Date:', SFLIGHT-FLDATE.
GET SBOOK.
SKIP.
WRITE: / ' Booking:', Sbook-customid. "HST
WEIGHT = WEIGHT + SBOOK-LUGGWEIGHT.
GET SFLIGHT LATE.
WRITE: / ' Total luggage weight =', WEIGHT.
WEIGHT = 0.
JackPilot 