从列表调用屏幕

从列表调用屏幕

1：新建程序ztest001，se51建立相关的0100屏幕，把表spfli的carrid到airpto的字段拖到0100屏里面

对应的逻辑流：

PROCESS BEFORE OUTPUT.

* MODULE STATUS_0100.

*

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

module cancel at exit-command.

2．ztest001源码：

*用到的航班表

Tables spfli.

*输出列表，隐含需要输出的screen的字段

start-of-selection.

select * from spfli.

write: / spfli-carrid,(15) spfli-connid ,

        (15) spfli-countryto,(15) spfli-cityfrom ,

        (15) spfli-airpfrom .

HIDE:spfli-carrid,spfli-connid,spfli-countryfr,

       spfli-cityfrom,spfli-airpfrom,spfli-countryto,

       spfli-cityto,spfli-airpto.

       endselect.

*调用0100，显示单击某一行的时候，显示详细的信息。

at line-selection.

check not spfli-carrid is initial.

call screen 100.

module cancel input.

leave program.

endmodule.

module user_command_0100.

endmodule.

3．运行效果

双击某一行的时候就回出现100显示的信息