Skip to Content
0
Former Member
Mar 25, 2009 at 06:40 AM

BDC is not working in background for Transaction COR6N

107 Views

Hi ,

We have written the BDC program for transaction COR6N. BDC works perfectly in foreground but it's not working for background option.

SELECT SINGLE AUFPL INTO W_AUFPL FROM AFKO

WHERE AUFNR = W_AUFNR.

SELECT AUFPL VORNR INTO TABLE IT_PHASE FROM AFVC

WHERE AUFPL = W_AUFPL

AND PHFLG = 'X'.

LOOP AT IT_PHASE.

WA_BDCDATA-PROGRAM = 'SAPLCORU_S'.

WA_BDCDATA-DYNPRO = '0100'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'AFRUD-AUFNR'.

WA_BDCDATA-FVAL = W_AUFNR.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'AFRUD-VORNR'.

WA_BDCDATA-FVAL = IT_PHASE-VORNR.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'BDC_OKCODE'.

WA_BDCDATA-FVAL = '/00'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-PROGRAM = 'SAPLCORU_S'.

WA_BDCDATA-DYNPRO = '0100'.

WA_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'AFRUD-LMNGA'.

WA_BDCDATA-FVAL = w_qty. "'60'.

APPEND WA_BDCDATA TO BDCDATA.

  • CLEAR WA_BDCDATA.

  • WA_BDCDATA-FNAM = 'AFRUD-BUDAT'.

  • WA_BDCDATA-FVAL = w_date. "'31.12.2008'.

  • APPEND WA_BDCDATA TO BDCDATA.

CLEAR WA_BDCDATA.

WA_BDCDATA-FNAM = 'BDC_OKCODE'.

WA_BDCDATA-FVAL = '=BU'.

APPEND WA_BDCDATA TO BDCDATA.

clear X_OPTIONS.

X_OPTIONS-DISMODE = 'N'. ' works perfectly for 'A'

X_OPTIONS-UPDMODE = 'S'.

X_OPTIONS-CATTMODE = ' '.

X_OPTIONS-DEFSIZE = ' '.

X_OPTIONS-RACOMMIT = ' '.

X_OPTIONS-NOBINPT = 'X'.

X_OPTIONS-NOBIEND = ' '.

CALL TRANSACTION 'COR6N' USING BDCDATA OPTIONS FROM X_OPTIONS

MESSAGES INTO ITAB.

  • MODE 'N' MESSAGES INTO ITAB UPDATE 'S'.

  • WAIT UP TO 3 SECONDS.

COMMIT WORK AND WAIT.

CLEAR:BDCDATA[],WA_BDCDATA.