logical database 实例

最新推荐文章于 2022-01-04 15:05:46 发布

原创最新推荐文章于 2022-01-04 15:05:46 发布 · 743 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#database #date

01 ABAP 基础专栏收录该内容

93 篇文章

订阅专栏

本文详细介绍了如何使用特定程序来统计航班的行李重量，并计算所有航班的总重量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TABLES: spfli, sflight, sbook.

DATA: weight       TYPE p LENGTH 8 DECIMALS 4,
      total_weight TYPE p LENGTH 8 DECIMALS 4.

INITIALIZATION.
  carrid-sign = 'I'.
  carrid-option = 'EQ'.
  carrid-low = 'AA'.
  carrid-high = 'LH'.
  APPEND carrid TO carrid.

START-OF-SELECTION.
  WRITE 'Luggage weight of flights'.

GET spfli FIELDS carrid connid cityfrom cityto.
  SKIP.
  ULINE.
  WRITE: / 'Carrid:', spfli-carrid,
           'Connid:', spfli-connid,
         / 'From:  ', spfli-cityfrom,
           'To:    ', spfli-cityto.
  ULINE.

GET sflight FIELDS fldate.
  SKIP.
  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.

END-OF-SELECTION.
  ULINE.
  WRITE: / 'Sum of luggage weights =', total_weight.