Fill Idoc

Question

We have a requirement where we need to Create a inbound IDOC Basic Type:WMMBID01 and Message Type: WMMBXY. can some one tell me the steps to create this idoc ?

Answer 1

hi
<b>The following code may help you</b>
REPORT  ZALE_USR.
CONSTANTS:   C_DOCTYP TYPE EDIDC-IDOCTP VALUE 'ZUSRDET01',Idoctype
           C_SEGNAM TYPE EDIDD-SEGNAM VALUE 'Z1USRDET01', segmenttype
             C_MESTYP TYPE EDIDC-MESTYP VALUE 'ZUSRDET'. message type
  DATA:      IT_ZUSR02 TYPE USR02 OCCURS 10,
             IT_EDIDC TYPE EDIDC OCCURS 0,
             IT_EDIDD TYPE EDIDD OCCURS 0,
             WA_ZUSR02 TYPE USR02,
             WA_EDIDC TYPE EDIDC,
             WA_EDIDD TYPE EDIDD,
             WA_Z1USRDET01 TYPE Z1USRDET01,
             V_OCCMAX TYPE IDOCSYN-OCCMAX,
             V_NBSEG TYPE I.
            CLEAR WA_ZUSR02.
            CLEAR WA_EDIDC.
            Save the message type and the basic IDoc type in the control segment.
            MOVE C_MESTYP TO WA_EDIDC-MESTYP.
            MOVE C_DOCTYP TO WA_EDIDC-IDOCTP.
            Retrieve the maximum number of segments in the basic IDoc type.
            SELECT MIN( OCCMAX )  FROM IDOCSYN  INTO V_OCCMAX  WHERE IDOCTYP EQ C_DOCTYP AND SEGTYP EQ C_SEGNAM.
            Save the whole USR02 table content in the IT_ZUSR02 internal table.
            SELECT * FROM USR02 INTO CORRESPONDING FIELDS OF TABLE IT_ZUSR02.
            Create a data segment for each line of IT_ZUSR02.
            LOOP AT IT_ZUSR02 INTO WA_ZUSR02 .
              MOVE-CORRESPONDING WA_ZUSR02  TO WA_Z1USRDET01.
              CLEAR WA_EDIDD.
              MOVE C_SEGNAM TO WA_EDIDD-SEGNAM.
              MOVE WA_Z1USRDET01 TO WA_EDIDD-SDATA.
              APPEND WA_EDIDD TO IT_EDIDD.
              CLEAR WA_ZUSR02.
             CLEAR WA_Z1USRDET01.
            ENDLOOP.
           Count the number of data segments.
              DESCRIBE TABLE IT_EDIDD LINES V_NBSEG.
           If the number of data segments exceeds the maximum allowed number,then display an error message.
              IF V_NBSEG GT V_OCCMAX.
              WRITE:/ 'ERROR'.
              ENDIF.
              CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
                EXPORTING
                  master_idoc_control                  = WA_EDIDC
                OBJ_TYPE                             = ''
                CHNUM                                = ''
                tables
                  communication_idoc_control           = IT_EDIDC
                  master_idoc_data                     = IT_EDIDD
               EXCEPTIONS
                 ERROR_IN_IDOC_CONTROL                = 1
                 ERROR_WRITING_IDOC_STATUS            = 2
                 ERROR_IN_IDOC_DATA                   = 3
                 SENDING_LOGICAL_SYSTEM_UNKNOWN       = 4
                 OTHERS                               = 5
              IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
              ENDIF.
<b>Reward points for helpful ans</b>
Regards
Aarti