ABAP Example with NO STANDARD PAGE HEADING

..and TOP-OF-PAGE event.
I have added the following Text Symbols to my program:


And here is the code:
REPORT ZTMP_TEST_INNBOUND2 LINE-SIZE 120 LINE-COUNT 8 NO STANDARD PAGE HEADING.
 
TYPES:
 BEGIN OF CUST_STRU_TYPE,
  KUNNR LIKE KNA1-KUNNR,
  NAME1 LIKE KNA1-NAME1,
  STRAS LIKE KNA1-STRAS,
  ORT01 LIKE KNA1-ORT01,
  PSTLZ LIKE KNA1-PSTLZ,
 END OF CUST_STRU_TYPE.
 
DATA: 
 CUST_STRU TYPE CUST_STRU_TYPE,
 SYSTEM_DATE TYPE D,
  DATE_FORMATTED(10) TYPE C.
 
TOP-OF-PAGE.
 WRITE: 
  1(23) TEXT-001,
  25(85) DATE_FORMATTED, 
  TEXT-002, (1) SY-PAGNO.
 SKIP 1.
 WRITE: 
  /1(3) TEXT-003,
  4(10) TEXT-004,
  16(30) TEXT-005,
  48(22) TEXT-006,
  72(14) TEXT-007,
  88(6) TEXT-008.
 WRITE: 
  /1(3) TEXT-009,
  88(6) TEXT-010.
 WRITE: /1(120) SY-ULINE.
 
START-OF-SELECTION.
 
 SYSTEM_DATE = SY-DATUM. "YYYYMMDD
 DATE_FORMATTED+0(2) = SYSTEM_DATE+6(2).
 DATE_FORMATTED+2(1) = '.'.
 DATE_FORMATTED+3(2) = SYSTEM_DATE+4(2).
 DATE_FORMATTED+5(1) = '.'.
 DATE_FORMATTED+6(4) = SYSTEM_DATE+0(4).
 
 SELECT KUNNR NAME1 STRAS ORT01 PSTLZ FROM KNA1 INTO CUST_STRU.
  WRITE: 
   /1(2) SY-DBCNT, 
    4(10) CUST_STRU-KUNNR USING NO EDIT MASK, 
    16(30) CUST_STRU-NAME1,
    48(22) CUST_STRU-STRAS,
    72(14) CUST_STRU-ORT01,
    88(6) CUST_STRU-PSTLZ.
 ENDSELECT.

And the output will be: