Export Idoc as XSD from ABAP

Question

Hi all,
could anybody tell me how it is possible to export an idoc from a sap system as xsd.
I know that transaction WE60 -> Export XSD does exactly the same, so could anybody tell me, how to perform this task with abap coding ?
Thanks in advance!
BR

Answer 1

**  IF seddocustr-bassel = 'X'.
**    IF NOT seddocustr-idoctyp IS INITIAL.
**      idoctyp = seddocustr-idoctyp.
      idoctyp = p_idoctp.
      control-is_cim = ' '.
      CALL FUNCTION 'SDIXML_IDOC_TO_SCHEMA'
        EXPORTING
          mestyp          = mestyp
          idoctyp         = idoctyp
          control         = control
        IMPORTING
          elements        = elements
        CHANGING
          idocdescr       = idoctypdescr
          document        = document
        EXCEPTIONS
          idoc_not_exists = 1
          OTHERS          = 2.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        EXIT.
      ENDIF.
**    ELSE.
**      MESSAGE s346(ea).
**      EXIT.
**    ENDIF.
**  ELSEIF seddocustr-cimsel = 'X'.
**    IF NOT seddocustr-cimtyp IS INITIAL.
**      idoctyp = seddocustr-cimtyp.
**      control-is_cim = 'X'.
*      CALL FUNCTION 'SDIXML_IDOC_TO_SCHEMA'
*        EXPORTING
*          mestyp          = mestyp
*          idoctyp         = idoctyp
*          control         = control
*        IMPORTING
*          elements        = elements
*        CHANGING
*          idocdescr       = idoctypdescr
*          document        = document
*        EXCEPTIONS
*          idoc_not_exists = 1
*          OTHERS          = 2.
*      IF sy-subrc <> 0.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*        EXIT.
*      ENDIF.
*    ELSE.
*      MESSAGE s346(ea).
*      EXIT.
*    ENDIF.
*  ELSE. " es muß eins der beiden ausgewählt worden sein
*  ENDIF.
Continued.