E-Mail date error

Question

Hi All,
I am using the below code to send an email, however when I look in the SOST transaction the date is coming out as 30.70. 200. Has anyone experienced this before and if so how to resolve.
Thanks for your help,
Colm
    DATA: MAILDATA TYPE SODOCCHGI1.
    DATA: MAILTXT  TYPE TABLE OF SOLISTI1 WITH HEADER LINE.
    DATA: MAILREC  TYPE TABLE OF SOMLREC90 WITH HEADER LINE.
    DATA: LV_SUBJECT TYPE C LENGTH 40.
    DATA: LV_CUSTOMER TYPE C LENGTH 27,
          LV_DATE TYPE C LENGTH 24,
          LV_DUEDATE TYPE C LENGTH 35,
          LV_COMPLAINT TYPE C LENGTH 40,
          LV_TIME TYPE C LENGTH 35,
          LV_QMNUM TYPE VIQMEL-QMNUM,
          LV_KUNUM TYPE VIQMEL-KUNUM,
          LV_ERDAT TYPE C LENGTH 10,
LV_LTRMN TYPE C LENGTH 10,
          LV_LTRUR TYPE C LENGTH 10.
    CLEAR:    MAILDATA, MAILTXT,  MAILREC.
    REFRESH:  MAILTXT, MAILREC.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = I_VIQMEL-QMNUM
      IMPORTING
        OUTPUT = LV_QMNUM.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = I_VIQMEL-KUNUM
      IMPORTING
        OUTPUT = LV_KUNUM.
    CONCATENATE I_VIQMEL-ERDAT+6(2) '.' I_VIQMEL-ERDAT+4(2) '.'
    I_VIQMEL-ERDAT(4)
    INTO LV_ERDAT.
    CONCATENATE I_VIQMEL-LTRMN+6(2) '.' I_VIQMEL-LTRMN+4(2) '.'
    I_VIQMEL-LTRMN(4)
    INTO LV_LTRMN.
    CONCATENATE I_VIQMEL-LTRUR(2) ':' I_VIQMEL-LTRUR(2) ':'
    I_VIQMEL-LTRUR(2)
    INTO LV_LTRUR.
    CONCATENATE
        'AGRI CUSTOMER COMPLAINT No:' LV_QMNUM INTO LV_SUBJECT SEPARATED
        BY SPACE.
    CONCATENATE 'Complaint Number:' LV_QMNUM INTO LV_COMPLAINT SEPARATED
    BY SPACE.
    CONCATENATE 'Customer Number:' LV_KUNUM INTO LV_CUSTOMER SEPARATED
    BY SPACE.
    CONCATENATE 'Date Raised:' LV_ERDAT INTO LV_DATE SEPARATED BY SPACE.
    CONCATENATE
           'Date to be resolved by:' LV_LTRMN INTO LV_DUEDATE SEPARATED
           BY SPACE.
    CONCATENATE 'Time to be resolved by:' LV_LTRUR INTO LV_TIME
    SEPARATED BY SPACE.
    MAILDATA-OBJ_NAME = 'Agri Customer Complaint'.
    MAILDATA-OBJ_DESCR = LV_SUBJECT.
    MAILDATA-OBJ_LANGU = SY-LANGU.
    MAILTXT-LINE = LV_COMPLAINT.
    APPEND MAILTXT.
    MAILTXT-LINE = LV_CUSTOMER.
    APPEND MAILTXT.
    MAILTXT-LINE = LV_DATE.
    APPEND MAILTXT.
    MAILTXT-LINE = LV_DUEDATE.
    APPEND MAILTXT.
    MAILTXT-LINE = LV_TIME.
    APPEND MAILTXT.
    MAILREC-RECEIVER = LT_ADSMTP-E_MAIL.
    MAILREC-REC_TYPE  = 'U'.
    MAILREC-REC_DATE = SY-DATUM.
    APPEND MAILREC.
    CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
      EXPORTING
        DOCUMENT_DATA              = MAILDATA
        DOCUMENT_TYPE              = 'RAW'
        PUT_IN_OUTBOX              = 'X'
      TABLES
        OBJECT_HEADER              = MAILTXT
        OBJECT_CONTENT             = MAILTXT
        RECEIVERS                  = MAILREC
      EXCEPTIONS
        TOO_MANY_RECEIVERS         = 1
        DOCUMENT_NOT_SENT          = 2
        DOCUMENT_TYPE_NOT_EXIST    = 3
        OPERATION_NO_AUTHORIZATION = 4
        PARAMETER_ERROR            = 5
        X_ERROR                    = 6
        ENQUEUE_ERROR              = 7
        OTHERS                     = 8.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    SUBMIT RSCONN01 WITH MODE = 'INT' AND RETURN.

Answer 1

I solved this. Insted of defining
DATA: MAILREC  TYPE TABLE OF SOMLREC90 WITH HEADER LINE.
i should have defined it as:
DATA: MAILREC  TYPE TABLE OF SOMLRECI1 WITH HEADER LINE.
Thanks for your help