隐藏字段技术

 隐藏字段技术

REPORT Z_NEIL_0412_TEST .

TABLES SPFLI.
TABLES SFLIGHT.

 

START-OF-SELECTION.
SKIP.

*表头
ULINE AT /(91).
WRITE: / SY-VLINE,(15) '航线承运人', SY-VLINE,(15) '航班连接'.
ULINE AT /(91).

*OUTPUT TABLE
SELECT * FROM SPFLI.
WRITE: / SY-VLINE,(15) SPFLI-CARRID,SY-VLINE,(15) SPFLI-CONNID .

*隐藏关键字
  HIDE: SPFLI-CARRID,SPFLI-CONNID.
  ULINE AT /(91).
ENDSELECT.

AT LINE-SELECTION.
*只输出第一页
IF SY-LSIND = 1.
*根据隐藏字段读取并打印从表
  SELECT * FROM SFLIGHT
  WHERE CARRID = SPFLI-CARRID.
    WRITE: / SFLIGHT-CARRID, SY-VLINE, SFLIGHT-CONNID, SY-VLINE,
SFLIGHT-FLDATE.
  ENDSELECT.
ENDIF.