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

1、创建屏幕100、添加字典字段窗口、和退出按钮

2、代码实现部分:

REPORT  ytest022.
TABLES : spfli.

*输出列表,隐含需要输出至screen的字段
START-OF-SELECTION.
  SELECT FROM spfli INTO spfli.
    WRITE : / spfli-carrid, (15)spfli-connid,
    (15spfli-countryto, (15)spfli-cityfrom,
    (15spfli-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.

posted @ 2013-09-22 15:21  学习笔记NO.1  阅读(235)  评论(0编辑  收藏  举报