Wednesday, April 9, 2014

ABAP - INTO CORRESPONDING FIELDS OF TABLE

PARAMETERS p_city TYPE spfli-cityfrom.

TYPES: BEGIN OF entry_tab_type,
         carrid TYPE spfli-carrid,
         connid   TYPE spfli-connid,
       END OF entry_tab_type.

TYPES: BEGIN OF result_tab_type,
         carrid   TYPE sflight-carrid,
         connid   TYPE sflight-connid,
         fldate TYPE sflight-fldate,
       END OF result_tab_type.

DATA: entry_tab  TYPE TABLE OF entry_tab_type,
      result_tab TYPE SORTED TABLE OF result_tab_type
                      WITH UNIQUE KEY carrid connid fldate.

SELECT carrid connid
       FROM spfli
       INTO CORRESPONDING FIELDS OF TABLE entry_tab
       WHERE cityfrom = p_city.

IF entry_tab IS NOT INITIAL.
  SELECT carrid connid fldate
         FROM sflight
         INTO CORRESPONDING FIELDS OF TABLE result_tab
         FOR ALL ENTRIES IN entry_tab
         WHERE carrid = entry_tab-carrid AND
               connid = entry_tab-connid.
ENDIF.

No comments:

Post a Comment