REPORT
z_barry_test NO STANDARD PAGE HEADING .
DATA: date1 LIKE sy-datum,
date2(30).
date1 = sy-datum.
DO 400 TIMES.
ENDDO.
*&---------------------------------------------------------------------*
*&
Form
get_date2
*&---------------------------------------------------------------------*
FORM get_date2 USING value(date_in) LIKE sy-datum
CHANGING date_str.
DATA: yy(10),
mm(10),
dd(10).
DATA: len TYPE i.
*&
*&---------------------------------------------------------------------*
FORM get_date2 USING value(date_in) LIKE sy-datum
ENDFORM.