Data Interfaces

2.
*E Text-001: 'In file:'
*E Text-002: 'Format'
*E Text-003: 'bytes were downloaded'
WRITE: / TEXT-001, LOCLFILE, TEXT-002, TYPE,
REPORT RSFFF062.
LENGTH, TEXT-003.
* Internal table for local dataset defined as Dictionary structure
* or include report
DATA: BEGIN OF TAB OCCURS 20.
INCLUDE STRUCTURE SBC420C.
DATA: END OF TAB.
* STRUCTURE SBC420C:
* CARRID, CONNID, FLDATE, BOOKID, CUSTOMID.
* Alternative:
* INCLUDE RSFFF01L.
DATA: TYPE LIKE RLGRAP-FILETYPE VALUE 'ASC',
LENGTH(5).
* Create the selection screen
PARAMETERS:
* LOCLFILE LIKE RLGRAP-FILENAME DEFAULT '/tmp/BC420LOCXX', "UNIX
LOCLFILE LIKE RLGRAP-FILENAME DEFAULT 'C:BC420LOCXX.ABA'.
"NT/OS2
START-OF-SELECTION.