之前以为逻辑数据库就仅仅是个选择界面那么简单,其实不是的,逻辑数据库还有很多名堂的。
逻辑数据常常要与 “START-OF-SELECTION"连合着一起使用。
NODES: spfli,sflight,sbook.
DATA:weight TYPE i.
START-OF-SELECTION.
WRITE: 'GET Eevent Testing'.
GET spfli. " 取spfli 里面的一行数据。
* SKIP.
WRITE: / 'From:',spfli-cityfrom,'To:',spfli-cityto.
GET sflight.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
WRITE: / 'Carrid:',sflight-carrid,'Connid:',sflight-connid.
* FORMAT COLOR OFF.
ULINE.
GET sflight LATE.
FORMAT COLOR COL_POSITIVE INVERSE ON.
WRITE: / 'Total luggage weight =',weight.
ULINE.
weight = 0.
GET sbook.
FORMAT COLOR COL_TOTAL INVERSE ON.
WRITE: / 'Fldate:',sflight-fldate,'Boolid:',sbook-bookid,'Luggweight:',
sbook-luggweight.
ldbname:逻辑数据库名称
callback:逻辑数据库的NODE对应的处理函数
selections:调用逻辑数据库的输入条件
相关帮助:
Structure of Logical Databases
Calling a Logical Database Using a Function Module
Independent Calls and the Database Program