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.