Create IDOC Based on an Event Being Triggered

Question

I have a BOR object that when changed - triggers event 'Change'
I would like to code the event linkage such that an IDoc is created everytime the event is raised.
Has anyone done this before?
The message type I am using is a standard one and is associated with the same BOR object.
Which function module should I use in the event linkage for that 'change' event?
The IDoc doesnt have an outbound function module.
Please indicate steps or point me to related weblogs/threads
Thanks

Answer 1

hi!!!!!!!!!!!!!!
this is the sample code which may help u,
*BAsic type ZMARA
*Extension ZMARA
*Message type ZMatmas
REPORT  zi_material_idoc
        NO STANDARD PAGE HEADING
        MESSAGE-ID b1.
TABLES: z1maram, z1mara_desc, z1marcm.
                    TYPE DECLARATION
TYPES: BEGIN OF ty_data,
        matnr TYPE matnr,
        ernam TYPE ernam,
        ersda TYPE ersda,
        mtart TYPE mtart,
        mbrsh TYPE mbrsh,
        spras TYPE spras,
        maktx TYPE maktx,
        werks TYPE werks_d,
        lgort TYPE lgort_d,
       END OF ty_data.
DATA: w_data TYPE ty_data,
      w_edidd TYPE edidd,
      i_edidd TYPE STANDARD TABLE OF edidd,
      w_edidc TYPE edidc,
      i_edidc TYPE STANDARD TABLE OF edidc.
                     SELECTION SCREEN                               *
PARAMETERS: p_matnr TYPE matnr.
                   AT SELECTION SCREEN
*Validate Material
AT SELECTION-SCREEN ON p_matnr.
  PERFORM check_matnr.
                   START-OF-SELECTION
*Start of selection
START-OF-SELECTION.
  PERFORM get_data_from_selection.
                    END-OF-SELECTION
*End of selection
END-OF-SELECTION.
  IF NOT i_edidd IS INITIAL.
    PERFORM generate_idoc.
  ENDIF.
*&      Form  check_matnr
      text
FORM check_matnr .
  DATA l_matnr TYPE matnr.
  IF NOT p_matnr IS INITIAL.
    SELECT SINGLE matnr FROM mara INTO l_matnr
                        WHERE matnr = p_matnr.
    IF sy-subrc NE 0 OR l_matnr IS INITIAL.
      MESSAGE e000 WITH text-004.
    ENDIF.
  ENDIF.
ENDFORM.                    " check_matnr
*&      Form  get_data_from_selection
      text
FORM get_data_from_selection .
  SELECT SINGLE a~matnr
                a~ernam
                a~ersda
                a~mtart
                a~mbrsh
                b~spras
                b~maktx
                c~werks
                c~lgort
                INTO w_data
                FROM mara AS a
                INNER JOIN makt AS b
                ON amatnr = bmatnr
                INNER JOIN mard AS c
                ON amatnr = cmatnr
                WHERE a~matnr = p_matnr AND
                      b~spras = 'EN'.
  IF sy-subrc = 0.
    MOVE: w_data-matnr TO z1maram-matnr,
          w_data-ernam TO z1maram-ernam,
          w_data-ersda TO z1maram-ersda,
          w_data-mtart TO z1maram-mtart,
          w_data-mbrsh TO z1maram-mbrsh,
          w_data-spras TO z1mara_desc-spras,
          w_data-maktx TO z1mara_desc-maktx,
          w_data-werks TO z1marcm-werks,
          w_data-lgort TO z1marcm-lgort.
Populate Parent Segment
    w_edidd-segnam = 'Z1MARAM'.
    w_edidd-sdata = z1maram.
    APPEND w_edidd TO i_edidd.
    CLEAR w_edidd.
Populate Extn Segment
    w_edidd-segnam = 'Z1MARCM'.
    w_edidd-sdata = z1marcm.
    APPEND w_edidd TO i_edidd.
    CLEAR w_edidd.
Populate Child Segment
    w_edidd-segnam = 'Z1MARA_DESC'.
    w_edidd-sdata = z1mara_desc.
    APPEND w_edidd TO i_edidd.
    CLEAR w_edidd.
  ENDIF.
ENDFORM.                    " get_data_from_selection
*&      Form  generate_idoc
      text
FORM generate_idoc .
Populate Control Record
  w_edidc-direct = '1'.
  w_edidc-rcvpor = 'A000000021'.
  w_edidc-rcvprt = 'LS'.
  w_edidc-rcvprn = 'ZMATMAS'.
  w_edidc-sndprt = 'LS'.
  w_edidc-sndprn = 'LOG950R3'.
  w_edidc-mestyp = 'ZMATMAS'.
  w_edidc-idoctp = 'ZMARA'.
  w_edidc-cimtyp = 'ZMARA'.
Data Distribution
  CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
    EXPORTING
      master_idoc_control            = w_edidc
    TABLES
      communication_idoc_control     = i_edidc
      master_idoc_data               = i_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.
    CLEAR w_edidc.
    READ TABLE i_edidc INTO w_edidc INDEX 1.
    IF sy-subrc = 0.
      WRITE:/ w_edidc-docnum.
    ENDIF.
  ENDIF.
ENDFORM.                    " generate_idoc
this link may help u,
http://help.sap.com/saphelp_nw04/helpdata/en/0b/2a6702507d11d18ee90000e8366fc2/content.htm
reward if useful.