*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_write .
DATA n TYPE i VALUE 123.
****
FORMAT COLOR COL_HEADING INTENSIFIED ON."grayish blue
WRITE : / n.
WRITE spfli-fltime.
FIELD-SYMBOLS <cf> TYPE ANY.
ASSIGN 'NEW YORK' TO <cf>.
WRITE <cf>.
WRITE: '---->', spfli-distance.
WRITE: text-001, spfli-arrtime.
WRITE: 'Time:'(001), spfli-arrtime.
SKIP.
DATA: word(16) VALUE '0123456789ABCDEF',
col TYPE i VALUE 5,
len TYPE i VALUE 10.
WRITE AT / word. "new line
SKIP.
FORMAT COLOR COL_NORMAL INTENSIFIED