Classical Report - Program 4

 Report with Inner join Condition of Two Tables

TABLES: SPFLI, SFLIGHT.

TYPES: BEGIN OF ST,
         CARRID    TYPE SPFLI-CARRID,
         CONNID    TYPE SPFLI-CONNID,
         COUNTRYFR TYPE SPFLI-COUNTRYFR,
         CITYFROM  TYPE SPFLI-CITYFROM,
         FLDATE    TYPE SFLIGHT-FLDATE,
         PRICE     TYPE SFLIGHT-PRICE,
         CURRENCY  TYPE SFLIGHT-CURRENCY,
       END OF ST.

DATA: WA TYPE ST.
DATA: ITAB TYPE STANDARD TABLE OF ST.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: FLIGHTS FOR SPFLI-CARRID,
                DATE FOR SFLIGHT-FLDATE.

SELECTION-SCREEN END OF BLOCK B1.


SELECT A~CARRID A~CONNID A~COUNTRYFR A~CITYFROM
       B~FLDATE B~PRICE B~CURRENCY
       INTO TABLE ITAB
       FROM SPFLI AS A INNER JOIN SFLIGHT AS B
       ON B~CARRID = A~CARRID
       WHERE A~CARRID IN FLIGHTS
         AND B~FLDATE IN DATE .
IF SY-SUBRC EQ 0.

  LOOP AT ITAB INTO WA.
    WRITE: / WA-CARRID, SY-VLINE,
             WA-CONNID,SY-VLINE,
             WA-COUNTRYFR,SY-VLINE,
             WA-CITYFROM,SY-VLINE,
             WA-FLDATE,SY-VLINE,
             WA-PRICE,SY-VLINE,
             WA-CURRENCY,SY-VLINE.
  ENDLOOP.
  ULINE.

ELSEif SY-SUBRC NE 0.
  SKIP.
  ULINE.
  WRITE : '|', 'DATA NOT FOUND FOR GIVEN CRITERIA' COLOR 7 INVERSE ON , 130 '|'.
ENDIF.