FORM date_conversion USING p_date
p_text.
DATA l_datfm TYPE usr01-datfm.
SELECT SINGLE datfm FROM usr01 INTO l_datfm
WHERE bname = sy-uname.
CASE l_datfm.
WHEN '1'.
CONCATENATE p_date+0(2) p_date+2(2) p_date+4(4)
INTO p_text SEPARATED BY '.'.
WHEN '2'.
CONCATENATE p_date+0(2) p_date+2(2) p_date+4(4)
INTO p_text SEPARATED BY '/'.
WHEN '3'.
CONCATENATE p_date+0(2) p_date+2(2) p_date+4(4)
INTO p_text SEPARATED BY '-'.
WHEN '4'.
CONCATENATE p_date+0(4) p_date+4(2) p_date+6(2)
INTO p_text SEPARATED BY '.'.
WHEN '5'.
CONCATENATE p_date+0(4) p_date+4(2) p_date+6(2)
INTO p_text SEPARATED BY '/'.
WHEN '6'.
CONCATENATE p_date+0(4) p_date+4(2) p_date+6(2)
INTO p_text SEPARATED BY '-'.
WHEN OTHERS.
ENDCASE.
ENDFORM. " date_conversion