Feld unbekannt

Code: Alles auswählen.

REPORT  ZTEST.

TABLES: sflight, sbook.

DATA: BEGIN OF i_sflight OCCURS 0,
        carrid   TYPE sflight-carrid,
        connid   TYPE sflight-connid,
        fldate   TYPE sflight-fldate,
        price    TYPE sflight-price,
        currency TYPE sflight-currency,
      END OF i_sflight.

DATA: BEGIN OF i_sbook OCCURS 0,
        carrid   TYPE sbook-carrid,
        connid   TYPE sbook-connid,
        fldate   TYPE sbook-fldate,
        bookid   TYPE sbook-bookid,
        customid TYPE sbook-customid,
        custtype TYPE sbook-custtype,
        class    TYPE sbook-class,
        order_date TYPE sbook-order_date,
      END OF i_sbook.

RANGES: r_fldate FOR sflight-fldate.

PARAMETERS:     p_carrid LIKE sflight-carrid MEMORY ID car,
                p_connid LIKE sflight-connid MEMORY ID con.

START-OF-SELECTION.
  SELECT carrid connid fldate price currency FROM sflight
         INTO TABLE i_sflight
         WHERE carrid = p_carrid AND
               connid = p_connid.
  REFRESH r_fldate.
  r_fldate-sign = 'I'.
  r_fldate-option = 'EQ'.
  LOOP AT i_sflight.
    r_sflight-low = i_sflight-fldate.
    APPEND r_sflight.
  ENDLOOP.
  SELECT carrid connid fldate bookid customid custtype 
         class order_date 
         FROM sbook
         INTO TABLE i_sbook
         WHERE carrid = p_carrid AND
               connid = p_connid AND
               fldate IN r_fldate.
  LOOP AT i_sflight.
    FORMAT COLOR COL_GROUP INTENSIFIED OFF.
    WRITE: / i_sflight-carrid,
             i_sflight-connid,
             i_sflight-fldate,
             i_sflight-price CURRENCY i_sflight-currency,
             i_sflight-currency,
             AT sy-linsz ''.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
     LOOP AT i_sbook WHERE carrid = i_sflight-carrid AND
                          connid = i_sflight-connid AND
                          fldate = i_sflight-fldate.
      WRITE: /12 i_sbook-bookid NO-ZERO,
              26 i_sbook-customid NO-ZERO,
              39 i_sbook-custtype,
              42 i_sbook-class,
              45 i_sbook-order_date,
                 AT sy-linsz ''.
    ENDLOOP.
  ENDLOOP.