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