Abap/4制作报表（5）

来源：互联网发布：浙江每日互动网络编辑：程序博客网时间：2024/05/18 18:19

*&---------------------------------------------------------------------*
*& Report Z_CPT6_5                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&          逻辑数据库                         *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT Z_CPT6_5 .

NODES: spfli,sflight,sbook.

GET sflight.
    IF sflight-fldate <> '20040806'.
        REJECT."忽略处理
    ENDIF.

SKIP.

    WRITE: / 'Connid:',sflight-connid,
             'Carrid:',sflight-carrid,
             'Floate:',sflight-fldate.

ULINE.

GET sbook.
    IF sbook-bookid GT 00010002.
        REJECT 'SFLIGHT'. "跳到上级数据库中进行处理
    ENDIF.
    WRITE: / 'Bookid:',sbook-bookid.