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