Another Simple SAP - ABAP Example..

..
Here is my code:
REPORT ZTMP_TEST_INNBOUND2 LINE-SIZE 120 LINE-COUNT 8.
 
" WRITE - Simple Customer List With List Headings
" (STANDARD HEADER)        
 
" List heading: List of Customer as of &1........
 
TYPES:
 BEGIN OF CUST_STRU_TYPE,
  KUNNR LIKE KNA1-KUNNR,
  NAME1 LIKE KNA1-NAME1,
  STRAS LIKE KNA1-STRAS,
 END OF CUST_STRU_TYPE.
 
DATA: 
 CUST_STRU TYPE CUST_STRU_TYPE,
 SYSTEM_DATE TYPE D.
 
SYSTEM_DATE = SY-DATUM. "YYYYMMDD
 
SY-TVAR1+0(2) = SYSTEM_DATE+6(2).
SY-TVAR1+2(1) = '.'.
SY-TVAR1+3(2) = SYSTEM_DATE+4(2).
SY-TVAR1+5(1) = '.'.
SY-TVAR1+6(4) = SYSTEM_DATE+0(4).
 
SELECT KUNNR NAME1 STRAS FROM KNA1 INTO CUST_STRU.
 WRITE: / SY-DBCNT,  CUST_STRU-KUNNR, 
            CUST_STRU-NAME1, CUST_STRU-STRAS.
ENDSELECT.

And the output will be: