Example of a Report with a Logical Database
This example shows a typical report where the logical database F1S is assigned to its properties.
NODES: spfli, sflight, sbook.
DATA: weight TYPE p LENGTH 8 DECIMALS 4,
total_weight TYPE p LENGTH 8 DECIMALS 4.
carrid-sign = 'I'.
carrid-option = 'EQ'.
carrid-low = 'AA'.
carrid-high = 'LH'.
APPEND carrid TO carrid.
WRITE 'Luggage weight of flights'.
GET spfli FIELDS carrid connid cityfrom cityto.
WRITE: / 'Carrid:', spfli-carrid,
/ 'From: ', spfli-cityfrom,
'To: ', spfli-cityto.
GET sflight FIELDS fldate.
WRITE: / 'Date:', sflight-fldate.
GET sbook FIELDS luggweight.
weight = weight + sbook-luggweight.
GET sflight LATE FIELDS carrid .
WRITE: / 'Luggage weight =', weight.
total_weight = total_weight + weight.
weight = 0.
WRITE: / 'Sum of luggage weights =', total_weight.
7.40 | 7.54