how to use ME_DIRECT_INPUT_SOURCE_LIST functional module.

[Former Member]

Hi ,

I am using the Fm "ME_DIRECT_INPUT_SOURCE_LIST" to update a Source List for the TCODE : ME01.

I have passed the parameters :

I_MATNR

I_WERKS

and T_EORD.

And even sy-subrc is ZERO after Fm execution, the Source list is not getting Updated. I used "COMMIT statement too.

Please Help me out to solve this problem.

Regards,

[Former Member]

REPORT zpwtest .

PARAMETERS : p_matnr TYPE eord-matnr ,

p_werks TYPE eord-werks ,

p_lifnr TYPE eord-lifnr ,

p_ekorg TYPE eord-ekorg .

START-OF-SELECTION .

PERFORM create_source_list USING p_matnr

p_werks

p_lifnr

p_ekorg

'X'

'1' .

&----

---

*& Form create_source_list

&----

---

• text

----

---

• -->P_MATNR text

• -->P_WERKS text

• -->P_LIFNR text

• -->P_EKORG text

• -->P_FESKZ text

• -->P_AUTET text

----

---

FORM create_source_list USING p_matnr TYPE eord-matnr

p_werks TYPE eord-werks

p_lifnr TYPE eord-lifnr

p_ekorg TYPE eord-ekorg

p_feskz TYPE rm06w-feskz

p_autet TYPE eord-autet .

DATA : lt_eord TYPE TABLE OF eordu ,

lwa_eord TYPE eordu .

CLEAR lwa_eord .

lwa_eord-MATNR = p_matnr .

lwa_eord-WERKS = p_werks .

lwa_eord-vdatu = sy-datum .

lwa_eord-bdatu = '99991201' .

lwa_eord-lifnr = p_lifnr .

lwa_eord-ekorg = p_ekorg .

lwa_eord-autet = p_autet .

lwa_eord-kz = 'I' . "I for insert

APPEND lwa_eord TO lt_eord .

CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST' .

CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'

EXPORTING

i_matnr = p_matnr

i_werks = p_werks

TABLES

t_eord = lt_eord

EXCEPTIONS

plant_missing = 1

material_missing = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'ME_POST_SOURCE_LIST_NEW'

EXPORTING

i_matnr = p_matnr.

ENDFORM. " create_source_list

[Pawan_Kesari]

REPORT zpwtest .

PARAMETERS : p_matnr TYPE eord-matnr ,

p_werks TYPE eord-werks ,

p_lifnr TYPE eord-lifnr ,

p_ekorg TYPE eord-ekorg .

START-OF-SELECTION .

PERFORM create_source_list USING p_matnr

p_werks

p_lifnr

p_ekorg

'X'

'1' .

&----

---

*& Form create_source_list

&----

---

• text

----

---

• -->P_MATNR text

• -->P_WERKS text

• -->P_LIFNR text

• -->P_EKORG text

• -->P_FESKZ text

• -->P_AUTET text

----

---

FORM create_source_list USING p_matnr TYPE eord-matnr

p_werks TYPE eord-werks

p_lifnr TYPE eord-lifnr

p_ekorg TYPE eord-ekorg

p_feskz TYPE rm06w-feskz

p_autet TYPE eord-autet .

DATA : lt_eord TYPE TABLE OF eordu ,

lwa_eord TYPE eordu .

CLEAR lwa_eord .

lwa_eord-MATNR = p_matnr .

lwa_eord-WERKS = p_werks .

lwa_eord-vdatu = sy-datum .

lwa_eord-bdatu = '99991201' .

lwa_eord-lifnr = p_lifnr .

lwa_eord-ekorg = p_ekorg .

lwa_eord-autet = p_autet .

lwa_eord-kz = 'I' . "I for insert

APPEND lwa_eord TO lt_eord .

CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST' .

CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'

EXPORTING

i_matnr = p_matnr

i_werks = p_werks

TABLES

t_eord = lt_eord

EXCEPTIONS

plant_missing = 1

material_missing = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'ME_POST_SOURCE_LIST_NEW'

EXPORTING

i_matnr = p_matnr.

ENDFORM. " create_source_list

[former_member669968]

I have same issue. Were you able to solve it. Even with this code EORD is not getting updated

[Former Member]

The logic of Pawan Kesari is valid if you add COMMIT WORK AND WAIT at the end.