列表和屏幕的相互调用之从列表调用屏幕

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.

转载于:https://www.cnblogs.com/caizjian/p/3333157.html