topic Re: bdc in Application Development and Automation Discussions

bdc

Former Member — Wed, 02 May 2007 07:27:49 GMT

im creating se38 through bdc.and i ve to upload from a file that has a format wherein all the events are populated.so that when the user opens se38 all the events are alredy populated on the report screen.so i have uploaded that file in an internal table.now i have to loop at that internal table.im concatinating 'RSTXP-TDLINE(' v_cnt ') ' where v_cnt( type N) should start from 10.but even if i declare it in data the value starts from 0.why this is happening?

Re: bdc

Former Member — Wed, 02 May 2007 07:31:00 GMT

Hi Rashmi..

Welcome to SDN!!

If u could paste some code of yours , prob can be pinpointed.

Re: bdc

Former Member — Wed, 02 May 2007 07:33:02 GMT

What is the length of v_cnt , is it greater than 1

data : v_cnt(2) type n value '10'.

Re: bdc

Former Member — Wed, 02 May 2007 07:38:56 GMT

&----

*& Report Z9RNP_BDC_MODIFIED *

*& *

&----

*& *

&----

REPORT Z9RNP_BDC_MODIFIED no standard page heading line-size 120

message-id z9rashmip .

&----

*& Report Z9RNP_BDC_SE38 *

*& *

&----

*& *

&----

*name:rashmi purohit

*descp:to create transaction se38 using BDC.

*created on:17/04/2007.

&----

DATA DECLARATION FOR INTERNAL TABLES

&----

data: IT_bdcdata type table of bdcdata .

messages of call transaction

DATA: IT_MESSTAB like BDCMSGCOLL occurs 0 with header line.

&----

DATA DECLARATION FOR WORK AREAS

&----

DATA:WA_BDCDATA TYPE BDCDATA.

&----

SELECTION-SCREEN DEFINITION

&----

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001.

parameters: p_prog(30) type c.

parameters: p_title(70) type c.

parameters: p_ptype like TRDIR-SUBC.

parameters: p_status like trdir-RSTAT.

SELECTION-SCREEN END OF BLOCK BL1.

&----

MAIN LOGIC

&----

start-of-selection.

Perform Populate_BDC Using : 'X' 'SAPLWBABAP' '0100',

' ' 'BDC_CURSOR' 'RS38M-PROGRAMM',

' ' 'BDC_OKCODE' '=NEW',

' ' 'RS38M-PROGRAMM' p_prog,

' ' 'RS38M-FUNC_EDIT' 'X',

'X' 'SAPLSEDTATTR' '0200',

' ' 'BDC_CURSOR' 'TRDIR-SUBC',

' ' 'BDC_OKCODE' '=CONT',

' ' 'RS38M-REPTI' p_title,

' ' 'TRDIR-SUBC' p_ptype,

' ' 'TRDIR-RSTAT' p_status,

' ' 'TRDIR-FIXPT' 'X',

' ' 'TRDIR-UCCHECK' 'X',

'X' 'SAPLSTRD' '0100',

' ' 'BDC_CURSOR' 'KO007-L_DEVCLASS',

' ' 'BDC_OKCODE' '=TEMP',

' ' 'KO007-L_DEVCLASS' '$TMP',

' ' 'KO007-L_AUTHOR' 'TRAINEE'.

*--============================================================

types : Begin of i_datatable,

line type string,

End of i_datatable .

data: it_datatable type standard table of i_datatable with header line.

Data v_cnt type N.

DATA:v_fldnm(50).

v_cnt = 10.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = 'C:\Documents and Settings\rpurohit\My Documents\bdc.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '

*IMPORTING

FILELENGTH =
HEADER =

tables

data_tab = it_datatable

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.

Loop at it_datatable.

v_cnt = v_cnt + 1.

Clear v_fldnm.

Concatenate 'RSTXP-TDLINE(' v_cnt ') '

Into v_fldnm.

perform populate_bdc using : 'X' 'SAPLS38E' '0400',

' ' 'BDC_OKCODE' '=ED_ENTER',

' ' 'BDC_CURSOR' v_fldnm,

' ' 'RSTXP-TDFIRST' ' 1',

' ' v_fldnm it_datatable-line.

If v_cnt = 19.

Clear v_cnt.

v_cnt = 0.

v_cnt = v_cnt + 1.

perform populate_bdc using : 'X' 'SAPLS38E' '0400',

' ' 'BDC_OKCODE' '=ED_NEXT_PAGE',

' ' 'BDC_CURSOR' v_fldnm,

' ' 'RSTXP-TDFIRST' ' 18',

' ' v_fldnm it_datatable-line.

ENdif.

EndLoop.

*--============================================================