*&---------------------------------------------------------------------*
*& Report Z_CPT6_4 *
*& *
*&---------------------------------------------------------------------*
*& 逻辑数据库 *
*& *
*&---------------------------------------------------------------------*
REPORT Z_CPT6_4 .
NODES:spfli,sflight,sbook.
DATA:weight TYPE i.
START-OF-SELECTION.
WRITE 'GET Event Testing'.
GET spfli.
SKIP.
WRITE: / 'From:',spfli-cityfrom,
'To:',spfli-cityto.
GET sflight.
SKIP.
WRITE: / 'Carrid:',sflight-carrid,
'Connid:',sflight-connid.
ULINE.
GET sflight LATE.
WRITE: / 'Total luggage weight=',weight.
ULINE.
WEIGHT = 0.
GET sbook.
WRITE: / 'Fldate:',sflight-fldate,
'Bookid:',sbook-bookid,
'Luggweight:',sbook-luggweight.