*&---------------------------------------------------------------------*
*& Report  ZORACLEDEMO - Matt Bartlett - www.mattbartlett.co.uk
*& 
*&---------------------------------------------------------------------*
*& www.mattbartlett.co.uk/connecting-sap-on-microsoft-sql-to-an-external-oracle-db/
*& 
*&---------------------------------------------------------------------*

REPORT  ZORACLEDEMO.

TYPES:  BEGIN       OF    type_jobs,
        name        TYPE  C LENGTH 30,
        job_title   TYPE  C LENGTH 50,
END OF  type_jobs.

DATA:   BEGIN       OF    wa_jobs,
        name        TYPE  C LENGTH 30,
        job_title   TYPE  C LENGTH 50,
END OF  wa_jobs.

DATA:   it_jobs     TYPE  STANDARD TABLE OF type_jobs,
        exc_ref     TYPE  REF TO cx_sy_native_sql_error,
        error_text  TYPE  string.

TRY.
    EXEC SQL .
        connect to 'XXXXX'
    ENDEXEC.
CATCH cx_sy_native_sql_error INTO exc_ref.
      error_text = exc_ref->get_text( ).
      MESSAGE error_text TYPE 'E'.
ENDTRY.

TRY.
    EXEC SQL PERFORMING append_wa.
        SELECT
        Name,
        JobTitle
        FROM jobs
        INTO   :wa_jobs
    ENDEXEC.
CATCH cx_sy_native_sql_error INTO exc_ref.
      error_text = exc_ref->get_text( ).
      MESSAGE error_text TYPE 'E'.
ENDTRY.

LOOP AT it_jobs INTO wa_jobs.
    write :/ wa_jobs-name,':',wa_jobs-job_title.
ENDLOOP.

FORM APPEND_WA.
  append wa_jobs to it_jobs.
endform.