第十课 屏幕控件使用

*  NO STANDARD PAGE HEADING
  LINE-COUNT 10(2) "行数 LINE-COUNT page_lines[(footer_lines)]
  LINE-SIZE 72. "大小

DATA:HEADER(30),
     SPFLI_TAB  TYPE TABLE OF SPFLI,
     SPFLI_LINE TYPE SPFLI.

INITIALIZATION.
  HEADER = 'DEMO'.

START-OF-SELECTION.
  SELECT *
    INTO TABLE SPFLI_TAB
    FROM SPFLI.

*  SELECT ZSTD_WMQ001~Z_CODE,
*         ZSCH_WMQ001~Z_SCHID,
*         ZSCH_WMQ001~Z_SNAME
*    INTO TABLE @DATA(SPFLI_TAB)
*    FROM ZSTD_WMQ001
*    INNER JOIN ZSCH_WMQ001 ON A~Z_SCHID = B~Z_SCHID
*    WHERE ZSTD_WMQ001~Z_CODE = 1001.

END-OF-SELECTION.
  SET PF-STATUS 'ZPF001'.

  DO 100 TIMES.
    APPEND SPFLI_LINE TO SPFLI_TAB.
  ENDDO.

  LOOP AT SPFLI_TAB ASSIGNING FIELD-SYMBOL(<FS_L_SPFLI>).
    WRITE:/ <FS_L_SPFLI>-CITYFROM COLOR = 5 HOTSPOT,
            <FS_L_SPFLI>-CITYTO,
            <FS_L_SPFLI>-CARRID,
            <FS_L_SPFLI>-CONNID.
  ENDLOOP.

TOP-OF-PAGE.
  WRITE:HEADER.
  SKIP.

END-OF-PAGE.
  ULINE."下划线
  WRITE:'end of page'.

AT USER-COMMAND.
  LEAVE PROGRAM."退出程序

AT LINE-SELECTION."点击选择
  MESSAGE: 'You clicked list' TYPE 'S'.