<!--StartFragment -->
REPORT Z_DT0119.
DATA: OK_CODE LIKE SY-UCOMM,
save_ok LIKE SY-UCOMM,
mode(10) TYPE c.
TABLES DEMO_CONN. // 注意这里声明一个 数据字典 结构的方法
// 这个结构 用来传递 abap程序 和 sap gui的数据。
// P334讲了两种传数据的方法。感觉上本例子用的是第二种方法。即,用数据字典中的结构来
// 传递。
START-OF-SELECTION.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'. // 设置 gui status
SET TITLEBAR '100TITLE'. // 设置 gui title
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'DISP'.
mode = 'display'.
WHEN 'CLAR'.
mode = 'clear'.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module DISPLAY_DATA OUTPUT
*&---------------------------------------------------------------------*
MODULE DISPLAY_DATA OUTPUT.
if mode = 'display'.
SELECT SINGLE * FROM SPFLI INTO CORRESPONDING FIELDS OF DEMO_CONN
WHERE carrid = DEMO_CONN-carrid //DEMO_CONN-carrid 和DEMO_CONN-connid的值 是
AND connid = DEMO_CONN-connid. // 上一次从 屏幕 传递到 abap 程序的。
elseif mode = 'clear'.
clear DEMO_CONN.
endif.
clear mode.
ENDMODULE. " DISPLAY_DATA OUTPUT
结合QPT002中 program Z_DT0119理解