Skip to Content
0
Former Member
Jun 02, 2008 at 06:50 AM

BDC

41 Views

Hi Gurus,When I try to execute the following BDC It is throwing an error that "Wrong value of the parameter FILETYPE". I am trying to upload data from presentation system.Here is the code:

report ZSO_BDC1

no standard page heading line-size 255.

include bdcrecx1.

data: begin of record occurs 1,

auart(4) type c,

vkorg(4) type c,

vtweg(2) type c,

spart(2) type c,

kunnr(10) type c,

kunnr3(10) type c,

mabnr(18) type c,

kwmeng(15) type c,

kunnr4(10) type c,

kunnr5(10) type c,

zterm2(4) type c,

inco5(3) type c,

inco6(28) type c,

kwmeng1(15) type c,

vrkme(4) type c,

kschl(4) type c,

kbetr(11) type c,

bedat(8) type c,

kunnr1(10) type c,

kunnr2(10) type c,

zterm1(4) type c,

inco3(3) type c,

inco4(28) type c,

end of record.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'D:\open_so.txt'

FILETYPE = 'asc'

HAS_FIELD_SEPARATOR = 'X'

  • HEADER_LENGTH = 0

  • READ_BY_LINE = 'X'

  • DAT_MODE = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • CHECK_BOM = ' '

  • VIRUS_SCAN_PROFILE =

  • NO_AUTH_CHECK = ' '

  • IMPORTING

  • FILELENGTH =

  • HEADER =

TABLES

DATA_TAB = RECORD

  • EXCEPTIONS

  • FILE_OPEN_ERROR = 1

  • FILE_READ_ERROR = 2

  • NO_BATCH = 3

  • GUI_REFUSE_FILETRANSFER = 4

  • INVALID_TYPE = 5

  • NO_AUTHORITY = 6

  • UNKNOWN_ERROR = 7

  • BAD_DATA_FORMAT = 8

  • HEADER_NOT_ALLOWED = 9

  • SEPARATOR_NOT_ALLOWED = 10

  • HEADER_TOO_LONG = 11

  • UNKNOWN_DP_ERROR = 12

  • ACCESS_DENIED = 13

  • DP_OUT_OF_MEMORY = 14

  • DISK_FULL = 15

  • DP_TIMEOUT = 16

  • OTHERS = 17

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

perform open_group.

loop at record.

perform bdc_dynpro using 'SAPMV45A' '0101'.

perform bdc_field using 'BDC_CURSOR'

'VBAK-VKGRP'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'VBAK-AUART'

'record-auart'.

perform bdc_field using 'VBAK-VKORG'

'record-vkorg'.

perform bdc_field using 'VBAK-VTWEG'

'record-vtweg'.

perform bdc_field using 'VBAK-SPART'

'record-spart'.

perform bdc_dynpro using 'SAPMSSY0' '0120'.

perform bdc_field using 'BDC_CURSOR'

'09/14'.

perform bdc_field using 'BDC_OKCODE'

'=PICK'.

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'KUAGV-KUNNR'

'record-kunnr'.

perform bdc_field using 'KUWEV-KUNNR'

'record-kunnr3'.

*perform bdc_field using 'RV45A-KETDAT'.

*perform bdc_field using 'RV45A-KPRGBZ'.

*perform bdc_field using 'VBKD-PRSDT'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-KWMENG(01)'.

perform bdc_field using 'RV45A-MABNR(01)'

'record-mabnr'.

perform bdc_field using 'RV45A-KWMENG(01)'

'record-kwmeng'.

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=ITEM'.

perform bdc_field using 'KUAGV-KUNNR'

'record-kunnr4'.

perform bdc_field using 'KUWEV-KUNNR'

'record-kunnr5'.

*perform bdc_field using 'RV45A-KETDAT'.

*perform bdc_field using 'RV45A-KPRGBZ'.

*perform bdc_field using 'VBKD-PRSDT'.

perform bdc_field using 'VBKD-ZTERM'

'record-zterm2'.

perform bdc_field using 'VBKD-INCO1'

'record-inco5'.

perform bdc_field using 'VBKD-INCO2'

'record-inco6'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-MABNR(01)'.

perform bdc_dynpro using 'SAPMV45A' '4003'.

perform bdc_field using 'BDC_OKCODE'

'=T\06'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-KWMENG'.

perform bdc_field using 'RV45A-KWMENG'

'record-kwmeng1'.

perform bdc_field using 'VBAP-VRKME'

'record-vrkme'.

*perform bdc_field using 'RV45A-ETDAT'

*perform bdc_field using 'RV45A-PRGBZ'

*perform bdc_field using 'VBKD-PRSDT'

perform bdc_dynpro using 'SAPMV45A' '5003'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'KOMV-KBETR(07)'.

perform bdc_field using 'KOMV-KSCHL(07)'

'record-kschl'.

perform bdc_field using 'KOMV-KBETR(07)'

'record-kbetr'.

perform bdc_dynpro using 'SAPMV45A' '5003'.

perform bdc_field using 'BDC_OKCODE'

'=T\05'.

perform bdc_field using 'BDC_CURSOR'

'KOMV-KSCHL(08)'.

perform bdc_dynpro using 'SAPLCNMS' '1300'.

perform bdc_field using 'BDC_OKCODE'

'/EESC'.

perform bdc_field using 'BDC_CURSOR'

'MLSTS-AUFNR'.

perform bdc_dynpro using 'SAPLV60F' '4001'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'FPLT-AFDAT(01)'.

perform bdc_field using 'FPLA-BEDAT'

'record-bedat'.

*perform bdc_field using 'FPLA-BEDAR'

.

*perform bdc_field using 'FPLT-AFDAT(01)'

perform bdc_dynpro using 'SAPLV60F' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=S\BACK'.

perform bdc_field using 'BDC_CURSOR'

'FPLA-BEDAT'.

*perform bdc_field using 'FPLA-BEDAT'

*perform bdc_field using 'FPLA-BEDAR'

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=SICH'.

perform bdc_field using 'KUAGV-KUNNR'

'record-kunnr1'.

perform bdc_field using 'KUWEV-KUNNR'

'record-kunnr2'.

*perform bdc_field using 'RV45A-KETDAT'

*perform bdc_field using 'RV45A-KPRGBZ'

*perform bdc_field using 'VBKD-PRSDT'

perform bdc_field using 'VBKD-ZTERM'

'record-zterm1'.

perform bdc_field using 'VBKD-INCO1'

'record-inco3'.

perform bdc_field using 'VBKD-INCO2'

'record-inco4'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-MABNR(02)'.

perform bdc_transaction using 'VA01'.

endloop.

perform close_group.

Thanks and Regards,

VIshwa.