列表和屏幕的相互调用之从列表调用屏幕
1、创建屏幕100、添加字典字段窗口、和退出按钮
2、代码实现部分:
REPORT ytest022.
TABLES : spfli.
*输出列表,隐含需要输出至screen的字段
START-OF-SELECTION.
SELECT * FROM spfli INTO 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.
*调用screen,因screen变量与隐含变量相同,可以不做任何赋值
AT LINE-SELECTION.
CHECK NOT spfli-carrid IS INITIAL.
CALL SCREEN 100.
*与屏幕定义的退出事件对应,直接退出程序
INCLUDE ytest022_exiti01.