Sample code for a custom field added to LIS Communication structure for Del

Question

We appended a new custome field into extraction structure of the LO Cookpit datasource 2LIS_02_ITM through RSA6.  And then run CMOD to write the exit code to populate the value and it works fine.  But after we read Roberto's Weblog:
/people/sap.user72/blog/2005/02/14/logistic-cockpit--when-you-need-more--first-option-enhance-it
Find the enhancement we did can't make the Delta mechanism works if only this new field gets changed in a record, and the change cannot be reflected on BW.  I know we can run SMOD on the enhancement LEINS001 to write the code for LIS Communication structure customer exit.  But we have never writen such a code for LIS Communication Structure enhancement and also don't know on how to make the Delta mechanism works in the code.  We would be very appreciated if some expert here can provide the sample code!
Thanks

Answer 1

hi AHP,
Have you tried Sanyam's code listed in this article you recommended?
Now our R3 team has added a custom field called ZZZ to EKKO table and I modify the code to suit our need and the code would be as following:
*& Include ZXM06U16 *
DATA: i_t_ekko LIKE ekko OCCURS 1 WITH HEADER LINE.
DATA: ebeln LIKE ekpo-ebeln,
it_ekko TYPE TABLE OF ekko WITH HEADER LINE,
old_val(50) TYPE c. "For storing the value from the Field Symbol
FIELD-SYMBOLS <fs> TYPE ANY TABLE.
CASE zeitp.
WHEN 'MA'. "When creating a purchase order
MOVE '(SAPLEINS)T_EKKO[]' TO old_val.
ASSIGN (old_val) TO <fs>.
i_t_ekko[] = <fs>.
LOOP AT xmcekko.
ebeln = xmcekko-ebeln.
IF xmcekko-supkz = '1'. "Old Value ?
SELECT SINGLE * FROM ekko INTO it_ekko WHERE ebeln = ebeln.
xmcekko-ZZZ = it_ekko-ZZZ.
ELSE. "New Value ?
READ TABLE i_t_ekko WITH KEY ebeln = ebeln.
xmcekko-ZZZ = i_t_ekko-ZZZ.
ENDIF.
MODIFY xmcekko.
ENDLOOP.
EndCase.
The compile of the above code works fine and we activated everywhere including project level. Then we set debug points in this code, and run RSA3 on 2LIS_02_ITM, but find the extraction program never reaches this code or call this user exit function EXIT_SAPLEINS_001 of this enhancement LEINS001. Any reason?
Thanks
Kevin
Message was edited by: Kevin Smith