The BDC for transaction WPMA is simple but at the end of the transaction, my call transaction is not showing any messege. Pls can any one tell me ,what is that I am missing in my code. Pls note, , unlike other normal BDC's , no data is updated in data base table , rather an IDOC is generated, with some segments.
Pls see the code...and tell me if thee is anything wrong inh my code.
report ZMM_BDC_WPMA
no standard page heading line-size 255.
Data: wa_bonusbuy type zbonusbuy,
it_bonusbuy type standard table of zbonusbuy with header line,
it_t001w type standard table of t001w with header line.
DATA : IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
data: bdcdata like table of bdcdata with header line.
DATA: lv_mode(1) VALUE 'A'.
DATA : mtext(100) TYPE c,
mvar1 LIKE balm-msgv1,
w_msg(200) TYPE c.
*include bdcrecx1.
start-of-selection.
start-of-selection.
Select werks from t001w into corresponding fields of table it_t001w.
Delete adjacent duplicates from it_t001w comparing werks.
If not it_t001w[] is initial.
select store bbynr from zbonusbuy into corresponding fields of table it_bonusbuy for all
entries in it_t001w where store = it_t001w-werks.
If sy-subrc = 0.
Sort it_bonusbuy by store.
Endif.
Endif.
Break retaildev.
Break-point.
Refresh it_t001w.
Loop at it_bonusbuy.
Break retaildev.
*perform open_group.
perform bdc_dynpro using 'RWDPOSAN' '1000'.
perform bdc_field using 'BDC_CURSOR'
'SO_BBUY-LOW'.
perform bdc_field using 'BDC_OKCODE'
'=ONLI'.
perform bdc_field using 'PA_VKORG'
'hb00'.
perform bdc_field using 'PA_VTWEG'
'h2'.
perform bdc_field using 'SO_FISEL-LOW'
it_bonusbuy-store.
perform bdc_field using 'PA_BBUY'
'X'.
perform bdc_field using 'SO_BBUY-LOW'
it_bonusbuy-bbynr.
*perform close_group.
*clear ibdc.
*refresh ibdc.
Endloop.
CALL TRANSACTION 'WPMA' USING bdcdata
MODE lv_mode
UPDATE 'A'
MESSAGES INTO IT_BDCMSGCOLL.
Loop at IT_BDCMSGCOLL.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = IT_BDCMSGCOLL-msgid
LANG = sy-langu
NO = IT_BDCMSGCOLL-msgnr
V1 = IT_BDCMSGCOLL-msgv1
V2 = IT_BDCMSGCOLL-msgv2
V3 = IT_BDCMSGCOLL-msgv3
V4 = IT_BDCMSGCOLL-msgv4
IMPORTING
MSG = w_msg
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
.
IF SY-SUBRC <> 0.
ENDIF.
WRITE :/10 'Message: ', w_msg.
Endloop.
.
----
----
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "BDC_DYNPRO
----
----
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. "BDC_FIELD
Bluesky
