Data Interfaces

Solution for Chapter 4
*&---------------------------------------------------------------------*
*& Report RS415041 *
*& *
*&---------------------------------------------------------------------*
REPORT RS4155041.
PARAMETERS: DISCOUNT(3) TYPE N.
*
* OLE-specific include file
*
INCLUDE OLE2INCL.
*
* Data definitions of OLE objects with type ole2_object
*
DATA: EXCEL TYPE OLE2_OBJECT.
DATA: BOOKS TYPE OLE2_OBJECT.
DATA: BOOK TYPE OLE2_OBJECT.
DATA: CELL TYPE OLE2_OBJECT.
*
* Definition of loop counter
*
DATA: I TYPE I VALUE '5'.
*
* Internal table CUSTOMER with structure of SCUSTOM table
*
DATA: BEGIN OF CUSTOMER OCCURS 0.
INCLUDE STRUCTURE SCUSTOM.
DATA: END OF CUSTOMER.
*
* Call function with program parameter DISCOUNT
* All customers with discount rates greater than or equal to discount
* are returned to the internal table CUSTOMER
*
CALL FUNCTION 'TRAIN415_RFC_NORMAL_WITHITAB'
EXPORTING
IDISC = DISCOUNT
TABLES
CUSTOM = CUSTOMER
EXCEPTIONS
INVALID_DISCOUNT = 1.
IF SY-SUBRC 0.
WRITE: / TEXT-005 .
EXIT.
ENDIF.
*
* Create object EXCEL of OLE class 'EXCEL.APPLICATION'
*
CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.
CALL METHOD OF EXCEL 'WORKBOOKS' = BOOKS.
CALL METHOD OF BOOKS 'ADD' = BOOK.
*