Skip to Content
-2
Jun 01, 2020 at 10:16 PM

File data is not replicated in Call Tranaction method of BDC

64 Views

Good Morning,

when I am working Call transaction method in BDC. it is unable to load the file as in below program. attached file and error also, Thanks.bdc.txt (File|)

REPORT ZBDC1 NO STANDARD PAGE HEADING.
DATA V_TEXT TYPE STRING.
TYPES: BEGIN OF STR,
BANKS TYPE BNKA-BANKS,
BANKL TYPE BNKA-BANKL,
BANKA TYPE BNKA-BANKA,
END OF STR.
DATA: WA TYPE STR,
IT TYPE TABLE OF STR.
DATA: WA1 TYPE BDCDATA,
IT1 TYPE TABLE OF BDCDATA.
****UPLOAD THE DATA FROM FILE TO IT****
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = 'D:\BDC.TXT'
HAS_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = IT
*
.
IF SY-SUBRC EQ 0.
WRITE 'FILE UPLOADED SUCCESSFULLY'.
ENDIF.

LOOP AT IT INTO WA.

* ****FIRST SCREEN DETAILS******
WA1-PROGRAM = 'SAPMF02B'.
WA1-DYNPRO = '0100'.
WA1-DYNBEGIN = 'X'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BDC_CURSOR'.
WA1-FVAL = 'BNKA-BANKL'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BDC_OKCODE'.
WA1-FVAL = '/00'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BNKA-BANKS'.
WA1-FVAL = WA-BANKS.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BNKA-BANKL'.
WA1-FVAL = WA-BANKL.
APPEND WA1 TO IT1.
CLEAR WA1.

* ****** SECOND SCREEN DETAILS******
WA1-PROGRAM = 'SAPMF02B'.
WA1-DYNPRO = '0110'.
WA1-DYNBEGIN = 'X'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BDC_CURSOR'.
WA1-FVAL = 'BNKA-BANKA'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BDC_OKCODE'.
WA1-FVAL = '=UPDA'.
APPEND WA1 TO IT1.
CLEAR WA1.

WA1-FNAM = 'BNKA-BANKA'.
WA1-FVAL = WA-BANKA.
APPEND WA1 TO IT1.
CLEAR WA1.



* ********* BDC METHODS = CALL TX METHOD*****

CALL TRANSACTION 'FI01' USING IT1 MODE 'N'.

IF SY-SUBRC NE 0.

CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = SY-MSGID
LANG = SY-LANGU
NO = SY-MSGNO
V1 = SY-MSGV1
V2 = SY-MSGV2
V3 = SY-MSGV3
V4 = SY-MSGV4
IMPORTING
MSG = V_TEXT
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2
.
IF SY-SUBRC EQ 0.
WRITE: / V_TEXT COLOR 6 INVERSE.
ENDIF.
ULINE.
ENDIF.
REFRESH IT1.
ENDLOOP.

Attachments

error-in-bdc.png (7.5 kB)
bdc.txt (38 B)