Skip to Content
0
Former Member
Dec 18, 2007 at 12:53 PM

BDC FOR TRANSACTION FB10

79 Views

Hello Gurus

I have written code for BDC for transaction FB10. i am using call transaction method. i am not able to udpate BKPF and BSEG table. I am getting sy-subrc 1001.

The code is bellow:

REPORT ZFB.

TABLES : BKPF, BSEG.

DATA : ITAB TYPE BDCDATA,

FTAB TYPE TABLE OF BDCDATA.

CLEAR : ITAB, FTAB.

ITAB-PROGRAM = 'SAPMF05A'.

ITAB-DYNPRO = '126'.

ITAB-DYNBEGIN = 'X'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BKPF-BUKRS'.

ITAB-FVAL = '1000'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BKPF-BUDAT'.

ITAB-FVAL = '20071218'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BKPF-BLART'.

ITAB-FVAL = 'AB'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BKPF-MONAT'.

ITAB-FVAL = '12'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'WAERS'.

ITAB-FVAL = 'EUR'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BLDAT'.

ITAB-FVAL = '20071218'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BDC-OKCODE'.

ITAB-FVAL = '=ENTER'.

APPEND ITAB TO FTAB.

ITAB-PROGRAM = 'SAPMF05A'.

ITAB-DYNPRO = '127'.

ITAB-DYNBEGIN = 'X'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'RF05A-NEWKO'.

ITAB-FVAL = '1001'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BSEG-WRBTR'.

ITAB-FVAL = '2000'.

APPEND ITAB TO FTAB.

ITAB-PROGRAM = 'SAPMF05A'.

ITAB-DYNPRO = '700'.

ITAB-DYNBEGIN = 'X'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'RF05A-NEWBS'.

ITAB-FVAL = '01'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'RF05A-NEWKO'.

ITAB-FVAL = '3471'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BDC-OKCODE'.

ITAB-FVAL = '=ENTER'.

APPEND ITAB TO FTAB.

ITAB-PROGRAM = 'SAPMF05A'.

ITAB-DYNPRO = '301'.

ITAB-DYNBEGIN = 'X'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BSEG-WRBTR'.

ITAB-FVAL = '2000'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BDC-OKCODE'.

ITAB-FVAL = '=ENTER'.

APPEND ITAB TO FTAB.

ITAB-PROGRAM = 'SAPLALINK_BARCODE'.

ITAB-DYNPRO = '100'.

ITAB-DYNBEGIN = 'X'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'TOAV0-ARC_DOC_ID'.

ITAB-FVAL = 'TESTBC0005'.

APPEND ITAB TO FTAB.

ITAB-FNAM = 'BDC-OKCODE'.

ITAB-FVAL = '=ENTER'.

APPEND ITAB TO FTAB.

CALL TRANSACTION 'FB10' USING FTAB MODE 'N' .

IF SY-SUBRC EQ 0.

Write : 'UPDATION SUCCESSFULL'.

ELSE.

WRITE : 'ERROR'.

ENDIF.

please let me know what is the error.

can any one tell me what is the code value for SAVE.

Thanks in advance.

Best Regds,

zubera