e-Mail date error

[Former Member]

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.

[Former Member]

Try declaring the date as like SY-DATUM.

Thanks,

Santosh

[Former Member]

Does MAILREC-REC_DATE = SY-DATUM. not do this??

[Former Member]

We are trying to pass CHAR type and sy-datum is DATS.

It will if the data type matches. In your case, there is data type mismatch.

Thanks,

Santosh

Message was edited by:

SKJ

[Former Member]

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