topic Re: using BDC creating customer master...... in Application Development and Automation Discussions

using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 17:29:19 GMT

Hi Guru's,

using BDC i am planning to create customer master but i struck up on mid ...

could please help me out on this..

i had uploaded the flat file data using gui_upload and and those data moved into record fields individually...

but i am unable to cteate customer and it is went to short dump...

please correct me what i did mistakes in my program logic...

REPORT zarepas_bdc_customer_create1

NO STANDARD PAGE HEADING LINE-SIZE 255.

INCLUDE bdcrecx1.

*CHANGE AS PER EQUIREMENT UPLOAD THE FILE DATA

TYPES: BEGIN OF gty_itab1,

xyz(205),

END OF gty_itab1.

DATA: gt_itab1 TYPE STANDARD TABLE OF gty_itab1,

gwa_itab1 TYPE gty_itab1.

TYPES: BEGIN OF gty_itab2,

vkorg(4),

vtweg(2),

spart(2),

ktokd(4),

anred(15),

name1(35),

stras(35),

ort01(35),

ort02(35),

pstl2(10),

land1(3),

spras(2),

pstlz(10),

civve(1),

awahr(3),

waers(5),

kzazu(1),

vsbed(2),

antlf(1),

END OF gty_itab2.

DATA: gt_itab2 TYPE STANDARD TABLE OF gty_itab2,

gwa_itab2 TYPE gty_itab2.

PARAMETERS: p_files TYPE string.

PARAMETERS: dataset(132) LOWER CASE DEFAULT

'test_customer_read_file'.

DO NOT CHANGE - the generated data section - DO NOT CHANGE ***

If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
'* data element: ' followed with the data element
which describes the field.
If you don't have a data element use the
comment without a data element name
3.) The second line shows the fieldname of the
structure, the fieldname must consist of
a fieldname and optional the character '_' and
three numbers and the field length in brackets
4.) Each field must be type C.

Generated data section with specific formatting - DO NOT CHANGE ***

DATA: BEGIN OF record,

data element: VKORG

vkorg_001(004),

data element: VTWEG

vtweg_002(002),

data element: SPART

spart_003(002),

data element: KTOKD

ktokd_004(004),

data element: ANRED

anred_005(015),

data element: NAME1_GP

name1_006(035),

data element: STRAS_GP

stras_007(035),

data element: ORT01_GP

ort01_008(035),

data element: ORT02_GP

ort02_009(035),

data element: PSTL2

pstl2_010(010),

data element: LAND1_GP

land1_011(003),

data element: SPRAS

spras_012(002),

data element: PSTLZ

pstlz_013(010),

data element: CIVVE

civve_014(001),

data element: AWAHR

awahr_015(003),

data element: WAERS_V02D

waers_016(005),

data element: KZAZU_D

kzazu_017(001),

data element: VSBED

vsbed_018(002),

data element: ANTLF

antlf_019(001),

END OF record.

End generated data section ***

START-OF-SELECTION.

*using gui_upload we are upload the file data from presentation server to gt_itab1

CALL METHOD cl_gui_frontend_services=>gui_upload

EXPORTING

filename = p_files

filetype = 'ASC'

CHANGING

data_tab = gt_itab1

EXCEPTIONS

OTHERS = 8.

LOOP AT gt_itab1 INTO gwa_itab1.

IF gwa_itab1-xyz(1) = 'T'.

gwa_itab2 = gwa_itab1-xyz(205).

APPEND gwa_itab2 TO gt_itab2.

ENDIF.

ENDLOOP.

*here we are moving from internal structure to record fileds i BDC.

LOOP AT gt_itab2 INTO gwa_itab2 .

MOVE: gwa_itab2-vkorg TO record-vkorg_001,

gwa_itab2-vtweg TO record-vtweg_002,

gwa_itab2-spart TO record-spart_003,

gwa_itab2-ktokd TO record-ktokd_004,

gwa_itab2-anred TO record-anred_005,

gwa_itab2-name1 TO record-name1_006,

gwa_itab2-stras TO record-stras_007,

gwa_itab2-ort01 TO record-ort01_008,

gwa_itab2-ort02 TO record-ort02_009,

gwa_itab2-pstl2 TO record-pstl2_010,

gwa_itab2-land1 TO record-land1_011,

gwa_itab2-spras TO record-spras_012,

gwa_itab2-pstlz TO record-pstlz_013,

gwa_itab2-civve TO record-civve_014,

gwa_itab2-awahr TO record-awahr_015,

gwa_itab2-waers TO record-waers_016,

gwa_itab2-kzazu TO record-kzazu_017,

gwa_itab2-vsbed TO record-vsbed_018,

gwa_itab2-antlf TO record-antlf_019.

PERFORM open_dataset USING dataset.

PERFORM open_group.

DO.

READ DATASET dataset INTO record.

IF sy-subrc <> 0. EXIT. ENDIF.

PERFORM bdc_dynpro USING 'SAPMF02D' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF02D-KTOKD'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'RF02D-VKORG'

record-vkorg_001.

PERFORM bdc_field USING 'RF02D-VTWEG'

record-vtweg_002.

PERFORM bdc_field USING 'RF02D-SPART'

record-spart_003.

PERFORM bdc_field USING 'RF02D-KTOKD'

record-ktokd_004.

PERFORM bdc_dynpro USING 'SAPMF02D' '0110'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNA1-SPRAS'.

PERFORM bdc_field USING 'BDC_OKCODE'

'VW'.

PERFORM bdc_field USING 'KNA1-ANRED'

record-anred_005.

PERFORM bdc_field USING 'KNA1-NAME1'

record-name1_006.

PERFORM bdc_field USING 'KNA1-STRAS'

record-stras_007.

PERFORM bdc_field USING 'KNA1-ORT01'

record-ort01_008.

PERFORM bdc_field USING 'KNA1-ORT02'

record-ort02_009.

PERFORM bdc_field USING 'KNA1-PSTL2'

record-pstl2_010.

PERFORM bdc_field USING 'KNA1-LAND1'

record-land1_011.

PERFORM bdc_field USING 'KNA1-SPRAS'

record-spras_012.

PERFORM bdc_field USING 'KNA1-PSTLZ'

record-pstlz_013.

PERFORM bdc_dynpro USING 'SAPMF02D' '0120'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNA1-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0125'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNA1-NIELS'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0130'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNBK-BANKS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0340'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF02D-KUNNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0370'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF02D-KUNNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_field USING 'KNA1-CIVVE'

record-civve_014.

PERFORM bdc_dynpro USING 'SAPMF02D' '0360'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNVK-NAMEV(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0310'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNVV-BZIRK'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_field USING 'KNVV-AWAHR'

record-awahr_015.

PERFORM bdc_field USING 'KNVV-WAERS'

record-waers_016.

PERFORM bdc_dynpro USING 'SAPMF02D' '0315'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNVV-VSBED'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_field USING 'KNVV-KZAZU'

record-kzazu_017.

PERFORM bdc_field USING 'KNVV-VSBED'

record-vsbed_018.

PERFORM bdc_field USING 'KNVV-ANTLF'

record-antlf_019.

PERFORM bdc_dynpro USING 'SAPMF02D' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNVV-PERFK'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '1350'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF02D-KUNNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_dynpro USING 'SAPMF02D' '0324'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KNVP-PARVW(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VW'.

PERFORM bdc_transaction USING 'XD01'.

ENDDO.

ENDLOOP.

PERFORM close_group.

PERFORM close_dataset USING dataset.

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 17:36:01 GMT

What error did you get in ST22 ?

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:00:30 GMT

Can we have the dump information

regards

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:07:06 GMT

please let me know if this info in not sufficieant....

Short text

File "test_customer_read_file" is already opened.

What happened?

Error in the ABAP Application Program

The current ABAP program "ZAREPAS_BDC_CUSTOMER_CREATE1" had to be terminated

because it has

come across a statement that unfortunately cannot be executed.

Error analysis

An exception occurred that is explained in detail below.

The exception, which is assigned to class 'CX_SY_FILE_OPEN', was not caught in

procedure "OPEN_DATASET" "(FORM)", nor was it propagated by a RAISING clause.

Since the caller of the procedure could not have anticipated that the

exception would occur, the current program is terminated.

The reason for the exception is:

The file with the name "test_customer_read_file" cannot be opened because it is

already open

Information on where terminated

Termination occurred in the ABAP program "ZAREPAS_BDC_CUSTOMER_CREATE1" - in

"OPEN_DATASET".

The main program was "ZAREPAS_BDC_CUSTOMER_CREATE1 ".

In the source code you have the termination point in line 110

of the (Include) program "BDCRECX1".

The termination is caused because exception "CX_SY_FILE_OPEN" occurred in

procedure "OPEN_DATASET" "(FORM)", but it was neither handled locally nor

declared

in the RAISING clause of its signature.

The procedure is in program "ZAREPAS_BDC_CUSTOMER_CREATE1 "; its source code

begins in line

109 of the (Include program "BDCRECX1 ".

96 ----

97 * at selection screen *

98 ----

99 AT SELECTION-SCREEN.

100 * group and user must be filled for create session

101 IF SESSION = 'X' AND

102 GROUP = SPACE OR USER = SPACE.

103 MESSAGE E613(MS).

104 ENDIF.

105

106 ----

107 * open dataset *

108 ----

109 FORM OPEN_DATASET USING P_DATASET.

>>>>> OPEN DATASET P_DATASET

111 FOR INPUT IN TEXT MODE

112 ENCODING DEFAULT.

113 IF SY-SUBRC <> 0.

114 WRITE: / TEXT-E00, SY-SUBRC.

115 STOP.

116 ENDIF.

117 ENDFORM.

118

119 ----

120 * close dataset *

121 ----

122 FORM CLOSE_DATASET USING P_DATASET.

123 CLOSE DATASET P_DATASET.

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:15:57 GMT

Hey

Before you run your program please close the upload file, i mean dont let open the file in your computer close the file and run the program.

If your file is in application server close the file and come out of it

Regards

Edited by: Chaitanya V Kumar Naru on Jun 18, 2008 8:30 PM

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:28:34 GMT

close the file in AL11 transcation(Not on your PC) before you run your program.

Regards,

Ravi

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:48:38 GMT

Hi Ravi&Chaithanya....

my file is in presentation srever and it is close before upload the data ...

then then the control comming out from the progam ...

wat i did is...

1st i recorded the BDC program...

in that same program i made changes as below...

PARAMETERS: p_files TYPE string.

TYPES: BEGIN OF gty_itab1,

xyz(205),

END OF gty_itab1.

DATA: gt_itab1 TYPE STANDARD TABLE OF gty_itab1,

gwa_itab1 TYPE gty_itab1.

TYPES: BEGIN OF gty_itab2,

vkorg(4),

vtweg(2),

spart(2),

ktokd(4),

anred(15),

name1(35),

stras(35),

ort01(35),

ort02(35),

pstl2(10),

land1(3),

spras(2),

pstlz(10),

civve(1),

awahr(3),

waers(5),

kzazu(1),

vsbed(2),

antlf(1),

END OF gty_itab2.

DATA: gt_itab2 TYPE STANDARD TABLE OF gty_itab2,

gwa_itab2 TYPE gty_itab2.

*here upload the file from presentation server...

CALL METHOD cl_gui_frontend_services=>gui_upload

EXPORTING

filename = p_files

filetype = 'ASC'

CHANGING

data_tab = gt_itab1

EXCEPTIONS

OTHERS = 8.

LOOP AT gt_itab1 INTO gwa_itab1.

IF gwa_itab1-xyz(1) = 'T'.

gwa_itab2 = gwa_itab1-xyz(205).

APPEND gwa_itab2 TO gt_itab2.

ENDIF.

ENDLOOP.

*here we are moving from internal structure to record fileds i BDC.

LOOP AT gt_itab2 INTO gwa_itab2 .

MOVE: gwa_itab2-vkorg TO record-vkorg_001,

gwa_itab2-vtweg TO record-vtweg_002,

gwa_itab2-spart TO record-spart_003,

gwa_itab2-ktokd TO record-ktokd_004,

gwa_itab2-anred TO record-anred_005,

gwa_itab2-name1 TO record-name1_006,

gwa_itab2-stras TO record-stras_007,

gwa_itab2-ort01 TO record-ort01_008,

gwa_itab2-ort02 TO record-ort02_009,

gwa_itab2-pstl2 TO record-pstl2_010,

gwa_itab2-land1 TO record-land1_011,

gwa_itab2-spras TO record-spras_012,

gwa_itab2-pstlz TO record-pstlz_013,

gwa_itab2-civve TO record-civve_014,

gwa_itab2-awahr TO record-awahr_015,

gwa_itab2-waers TO record-waers_016,

gwa_itab2-kzazu TO record-kzazu_017,

gwa_itab2-vsbed TO record-vsbed_018,

gwa_itab2-antlf TO record-antlf_019.

here i kept end loop in end of program

as per exisiting recorded program the is like below...

and the control also comming from here....

-->PERFORM open_dataset USING dataset.

PERFORM open_group.

DO.

READ DATASET dataset INTO record.

IF sy-subrc <> 0. EXIT. ENDIF.

Note : as per existing program one DATASET is there is that effecting for our file...(like below logic)

PARAMETERS: dataset(132) LOWER CASE DEFAULT

'test_customer_read_file'.--->is this file effecting for us...

please let me know my explation is not clear....

Hi Ravi and verified in the AL11 also..i traced our file name but i don't no how to chect the status of file is open or close...please guide me...(if it is a problam...)

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 18:50:37 GMT

chaithanya...i executed the same program as u said again i am getting the same error discription like below..

Runtime Errors DATASET_REOPEN

Except. CX_SY_FILE_OPEN

Date and Time 18.06.2008 13:29:54

Short text

File "test_customer_read_file" is already opened.

What happened?

Error in the ABAP Application Program

The current ABAP program "ZAREPAS_BDC_CUSTOMER_CREATE1" had to be terminated

because it has

come across a statement that unfortunately cannot be executed.

Error analysis

An exception occurred that is explained in detail below.

The exception, which is assigned to class 'CX_SY_FILE_OPEN', was not caught in

procedure "OPEN_DATASET" "(FORM)", nor was it propagated by a RAISING clause.

Since the caller of the procedure could not have anticipated that the

exception would occur, the current program is terminated.

The reason for the exception is:

The file with the name "test_customer_read_file" cannot be opened because it is

already open

Missing RAISING Clause in Interface

Program ZAREPAS_BDC_CUSTOMER_CREATE1

Include BDCRECX1

Row 109

Module type (FORM)

Module Name OPEN_DATASET

Trigger Location of Exception

Program ZAREPAS_BDC_CUSTOMER_CREATE1

Include BDCRECX1

Row 110

Module type (FORM)

Module Name OPEN_DATASET

Source Code Extract

Line SourceCde

105

106 ----

107 * open dataset *

108 ----

109 FORM OPEN_DATASET USING P_DATASET.

>>> OPEN DATASET P_DATASET

111 FOR INPUT IN TEXT MODE

112 ENCODING DEFAULT.

113 IF SY-SUBRC <> 0.

114 WRITE: / TEXT-E00, SY-SUBRC.

115 STOP.

116 ENDIF.

117 ENDFORM.

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:18:28 GMT

you are saying that your file is at presentation server instead of using the method try using FM GUI_UPLOAD

Regards

Edited by: Chaitanya V Kumar Naru on Jun 18, 2008 9:19 PM

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:25:37 GMT

At Open data set.

OPEN DATA SET <.....> IN TEXT MODE ENCODING DEFAULT.

regards

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:29:27 GMT

Hi Chaithanya..

exactly what u want me to do for resolving this issuee..

Thanks in advance

Srinivas...

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:32:16 GMT

Hi,

You are trying to upload the data from your Desktop.

In which case, you should use the function module GUI_UPLOAD and NOT OPEN DATASET/READ DATASET statements.

YOu should use OPen dataset / read dataset if you are uploading the data from Application server.

Regards,

Ravi Kanth Talagana

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:34:28 GMT

PERFORM open_dataset USING dataset.

PERFORM OPEN_DATASET IN TEXT MODE ENCODING DEFAULT.

I have no idea on methods i mean oops if you say that this is correct using open data set in oops then the above solution will work.

Regards

Edited by: Chaitanya V Kumar Naru on Jun 18, 2008 9:35 PM

Edited by: Chaitanya V Kumar Naru on Jun 18, 2008 9:36 PM

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:39:14 GMT

It's really not clear what you're trying to do with your dataset. You both try to upload it from the presentation server and the application server. If it really is on the presentation server, get rid of the open dataset.

Rob

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:44:14 GMT

yahh chaithanya that 100% correct for upload file using meathods...

thanks for your valuble time for spending to me.....:)

please let me know if anyone you is not clear with my question...

Thanks in advance and will give full points...

Srinivas....

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:46:04 GMT

Hi ROB...

the file is in [resentation server...

please let me know if you have any questions...

thanks in advance and will give full points...

Srinivas...

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:54:04 GMT

go thru this link

http://www.sapnet.ru/abap_docu/ABENUNICODE_DATASET.htm

from unicode enabled version you have to maintain the things which are given in the above link.

I have no other answers.......

Regards.....

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:56:14 GMT

once again thanks chaithanya for ur valuble time and support....:)

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 19:59:13 GMT

Like I said earlier - if it's on the presentation server, you don't need a READ DATASET. Remove that line.

Rob

Re: using BDC creating customer master......

Former Member — Wed, 18 Jun 2008 22:41:41 GMT

Hi ROB...

i removed and ran and i am etting same problem...

if any alternative process....

please let me know if my question is not clear...

thanks in advance...and will give full points...

Srinivas........