subroutine CHANGING local table / using reference

 REPORT zjoining_tables.

DATA: lt_scarr TYPE TABLE OF scarr,
      wa_scarr LIKE LINE OF lt_scarr,
      lt_spfli TYPE TABLE OF spfli,
      wa_spfli LIKE LINE OF lt_spfli.

SELECT *
  FROM scarr
  INTO  CORRESPONDING FIELDS OF TABLE lt_scarr.

IF lt_scarr IS NOT INITIAL.
  SELECT *
    FROM spfli
    INTO  CORRESPONDING FIELDS OF TABLE lt_spfli
    FOR ALL ENTRIES IN lt_scarr
    WHERE carrid = lt_scarr-carrid.


  PERFORM print_flight CHANGING lt_spfli lt_scarr.



ENDIF.

INCLUDE zjoining_tables_print_flighf01.