列表和屏幕相互调用之从屏幕输入条件，列表输出数据

1、创建一个主屏幕100，设置文本元素和按钮等

2、代码实现部分

REPORT  ytest021.

*screen返回码
DATA:ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm,


*与屏幕上定义的字段名相同
scarrid(20) TYPE c.

*用到航班表
TABLES spfli.


CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
  LEAVE PROGRAM.
ENDMODULE.                 " EXIT  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  IF save_ok = 'OKSCH'.
*回到初始屏幕和列表模式
    LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0 .
    "LEAVE TO SCREEN 0.

*根据screen返回的scarrid读取数据表，并输出

    SELECT * INTO spfli
      FROM spfli WHERE carrid = scarrid.
      WRITE: / spfli-carrid,spfli-connid,spfli-cityfrom,spfli-cityto.
    ENDSELECT.

  ENDIF.

ENDMODULE.   

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