Data Interfaces

Solution 3 for Chapter 3
*&----------------------------------------------------------------
*
*& Report RS415033
*
*&
*
*&----------------------------------------------------------------
*
REPORT RS415033 .
PARAMETERS: CUSTID LIKE SCUSTOM-ID,
PHONE LIKE SCUSTOM-TELEPHONE,
DEST LIKE RFCDES-RFCDEST DEFAULT 'NONE',
TIME LIKE SY-UZEIT DEFAULT SY-UZEIT.
DATA: CUSTITAB LIKE CUST415 OCCURS 0 WITH HEADER LINE,
TAMESS LIKE T100 OCCURS 0 WITH HEADER LINE,
SYS LIKE SY-SYSID,
MESS(80).
CUSTITAB-TELEPHONE = PHONE.
CUSTITAB-ID = CUSTID.
APPEND CUSTITAB.
CALL FUNCTION 'TRAIN415_RFC_CALLTRANSACTION'
IN BACKGROUND TASK
DESTINATION DEST
EXPORTING
TABLES
TAMODE = 'N'
CUSTTAB = CUSTITAB.
CALL FUNCTION 'START_OF_BACKGROUNDTASK'
EXPORTING
EXCEPTIONS
STARTDATE = SY-DATUM
STARTTIME = TIME
OTHERS = 1.