topic Re: BDC - New Thread in Application Development and Automation Discussions

BDC - New Thread

Former Member — Thu, 19 Apr 2007 05:21:17 GMT

Hi All,

In one particular T.Code, it consist of 4 screens in that T.Code, but i need to record only 3 screens and last screen as to display in the report. how to solve this problem. if any one having the code for this type of program please send me.

Please give me ans, it is very urgent i need to deleviery today.

I am waiting for u r ans.

Many Thanks

Naren

Re: BDC - New Thread

Former Member — Thu, 19 Apr 2007 05:41:27 GMT

Hi Narender,

This program having at least 8 screen but u asked how call reports in a bdc.

REPORT YV22 NO STANDARD PAGE HEADING LINE-SIZE 255.

INCLUDE BDCRECX1.

START-OF-SELECTION.

PERFORM OPEN_GROUP.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0100'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'RF02K-REF_LIFNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'RF02K-LIFNR'

'78'.

PERFORM BDC_FIELD USING 'RF02K-BUKRS'

'0001'.

PERFORM BDC_FIELD USING 'RF02K-EKORG'

'0001'.

PERFORM BDC_FIELD USING 'RF02K-KTOKK'

'0001'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0110'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-PSTLZ'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFA1-ANRED'

'Mr.'.

PERFORM BDC_FIELD USING 'LFA1-NAME1'

'RAFI.V'.

PERFORM BDC_FIELD USING 'LFA1-SORTL'

'V'.

PERFORM BDC_FIELD USING 'LFA1-ORT01'

'DELHI'.

PERFORM BDC_FIELD USING 'LFA1-PSTLZ'

'456123'.

PERFORM BDC_FIELD USING 'LFA1-LAND1'

'IN'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0120'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-KUNNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'LFA1-KUNNR'

''.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFBK-BANKN(01)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFBK-BANKS(01)'

'IN'.

PERFORM BDC_FIELD USING 'LFBK-BANKL(01)'

'HSBC'.

PERFORM BDC_FIELD USING 'LFBK-BANKN(01)'

'123456'.

PERFORM BDC_DYNPRO USING 'SAPLBANK' '0100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/E'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'BNKA-BANKA'.

PERFORM BDC_DYNPRO USING 'SAPLBANK' '0100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/E'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'BNKA-BANKA'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.

PERFORM BDC_FIELD USING 'LFBK-BANKL(01)'

'sbi'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0210'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB1-FDGRV'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFB1-AKONT'

'31000'.

PERFORM BDC_FIELD USING 'LFB1-FDGRV'

'A1'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0215'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB1-ZTERM'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=RW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0210'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB1-AKONT'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=RW'.

PERFORM BDC_FIELD USING 'LFB1-AKONT'

'31000'.

PERFORM BDC_FIELD USING 'LFB1-FDGRV'

'A1'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFBK-BANKS(01)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=RW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0120'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-KUNNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=RW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0110'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-SPRAS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFA1-ANRED'

'Mr.'.

PERFORM BDC_FIELD USING 'LFA1-NAME1'

'RAFI.V'.

PERFORM BDC_FIELD USING 'LFA1-SORTL'

'V'.

PERFORM BDC_FIELD USING 'LFA1-ORT01'

'DELHI'.

PERFORM BDC_FIELD USING 'LFA1-PSTLZ'

'456123'.

PERFORM BDC_FIELD USING 'LFA1-LAND1'

'IN'.

PERFORM BDC_FIELD USING 'LFA1-SPRAS'

'E'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0120'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-KUNNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFBK-BANKS(01)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0210'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB1-AKONT'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFB1-AKONT'

'31000'.

PERFORM BDC_FIELD USING 'LFB1-FDGRV'

'A1'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0215'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB1-ZTERM'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0220'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFB5-MAHNA'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0310'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFM1-WAERS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=VW'.

PERFORM BDC_FIELD USING 'LFM1-WAERS'

'INR'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0320'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'RF02K-LIFNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=UPDA'.

PERFORM BDC_TRANSACTION USING 'XK01'.

PERFORM CLOSE_GROUP.

Provide the leave to list processing < programname>.

Call <programname>.

Rewords some points.

Rgds,

P.Naganjana Reddy

Re: BDC - New Thread

Former Member — Thu, 19 Apr 2007 09:02:45 GMT

Hi Naganjana Reddy,

Thanks for sending code, but my requriement is different.

sorry to ask u once again.

Let take one tcode ex YV01 in this T.Code it consiste of 4 screens say 100,200,300,400.

i want to recorde only screens 100,200,300.

and from that 300 we are geting some data, after that screen 400has to display in the report in that user is saving the data that data is updating to database. scree 300 of the data is passing to 400.

please give the ans.

Thanks and Regards

naren

Re: BDC - New Thread

Former Member — Thu, 19 Apr 2007 09:58:14 GMT

Hi,

Go thru this link.

http://sap-img.com/bdc.htm

Thanks

Sunil

Re: BDC - New Thread

Former Member — Fri, 20 Apr 2007 05:43:28 GMT

hai

i got bdc recording to cn21.

<b>flate file format</b>

the flate file is created in the application server

IAD1000PS044000001902739 Basic Engineering 20.04.20072XBasic Engineering NPRX-AIF1 * 0100 PRODT

<b>try this example</b>

report ZKV_CN21_1

no standard page heading line-size 255.

include bdcrecx1.

parameters: dataset(132) lower case default

'C:\Documents and Settings\Administrato'

& 'r\Desktop\file1.txt'.

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: PROFIDNZPL

PROFID_001(007),

data element: PS_AUFART

PS_AUFART_002(004),

data element: WERKS_D

WERKS_003(004),

data element: CO_DISPO

DISPO_004(003),

data element: AUFREFNR

REFNR_005(012),

data element: AUFTEXT

KTEXT_006(040),

data element: CO_GLTRP

GLTRP_007(010),

data element: TERMKZ

TERKZ_008(001),

data element: AUKBED

AUKBED_009(001),

data element: AUFTEXT

KTEXT_010(040),

data element: PS_PSP_PRO

PRONR_011(024),

data element: VAGRP

PLGRP_012(003),

data element: FKBER

FUNC_AREA_013(016),

data element: SCOPE_CV

SCOPE_014(005),

end of record.

End generated data section ***

start-of-selection.

perform open_dataset using dataset.

perform open_group.

do.

read dataset dataset into record.

if sy-subrc <> 0. exit. endif.

perform bdc_dynpro using 'SAPLCOKO' '2000'.

perform bdc_field using 'BDC_CURSOR'

'RC62C-REFNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'CAUFVD-PROFID'

record-PROFID_001.

perform bdc_field using 'AUFPAR-PS_AUFART'

record-PS_AUFART_002.

perform bdc_field using 'CAUFVD-WERKS'

record-WERKS_003.

perform bdc_field using 'CAUFVD-DISPO'

record-DISPO_004.

perform bdc_field using 'RC62C-REFNR'

record-REFNR_005.

perform bdc_dynpro using 'SAPLCOKO' '2100'.

perform bdc_field using 'BDC_CURSOR'

'CAUFVD-KTEXT'.

perform bdc_field using 'BDC_OKCODE'

'=ZUOR'.

perform bdc_field using 'CAUFVD-KTEXT'

record-KTEXT_006.

perform bdc_field using 'CAUFVD-GLTRP'

record-GLTRP_007.

perform bdc_field using 'CAUFVD-TERKZ'

record-TERKZ_008.

perform bdc_field using 'CAUFVD-AUKBED'

record-AUKBED_009.

perform bdc_dynpro using 'SAPLCOKO' '2100'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_field using 'CAUFVD-KTEXT'

record-KTEXT_010.

perform bdc_field using 'BDC_CURSOR'

'CAUFVD-PRONR'.

perform bdc_field using 'CAUFVD-PRONR'

record-PRONR_011.

perform bdc_field using 'CAUFVD-PLGRP'

record-PLGRP_012.

perform bdc_field using 'CAUFVD-FUNC_AREA'

record-FUNC_AREA_013.

perform bdc_field using 'CAUFVD-SCOPE'

record-SCOPE_014.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

perform bdc_transaction using 'CN21'.

enddo.

perform close_group.

perform close_dataset using dataset.

Re: BDC - New Thread

Former Member — Sat, 21 Apr 2007 07:41:55 GMT

After your BDC script for screen 100 200 300, read the related data out from DB of screen 400, and show them in your report.

Re: BDC - New Thread

Former Member — Sat, 21 Apr 2007 10:23:15 GMT

Hi Narender,

I think you need to record for three screens. Run the bdc in error screen mode.

it should display the report after executing three screens.

Regards

Venkata chalapathi

Message was edited by:

venkata chalapathi

Re: BDC - New Thread

Former Member — Mon, 23 Apr 2007 13:47:55 GMT

Hi ,

This is vijay i have seen ur answer in forum. i am having one doubt can u solve this one . iam uploading data for CA01 for ROUTING . but the thing is

one is for one material with one group counter it is working fine.

but the thing is one material with different group counters it is not woring properly.

i have 110 material under this 3 group counters are there but the thing is after completion of 3rd counter again in the same way it going for 1200 screen from 1400 screen to create another counter instead of saving after completion of 3rd counter can u help me.

************************************************************************

REPORT zca01bdc

NO STANDARD PAGE HEADING LINE-SIZE 255.

INCLUDE bdcrecx1.

----

Internal tables

----

Internal table to store upload data

TYPES: BEGIN OF t_data,

matnr(18), "Material Number

werks(4), "Plant

plnnr(8), "Group

plnal(2), "Group Center

ktext(40), "Task List Description

verwe(3), "Usage

statu(3), "Status

losvn(13), "From Lot Size

losbs(13), "To Lot Size

arbpl(8), "Work Center

ltxa1(40), "Description

bmsch(13), "Base Quantity

vgw01(9), "Operation Data Activity 1

vgw02(9), "Operation Data Activity 1

vgw03(9), "Operation Data Activity 1

END OF t_data.

DATA: i_data TYPE TABLE OF t_data,

wa_data TYPE t_data.

----

Variables

----

DATA: v_repid LIKE sy-repid.

----

Constants

----

CONSTANTS : c_x TYPE c VALUE 'X',

c_asc(10) TYPE c VALUE 'ASC',

c_dot TYPE c VALUE '.',

c_slash TYPE c VALUE '/'.

----

Select-Options and Parameters *

----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS:p_file LIKE rlgrap-filename.

SELECTION-SCREEN END OF BLOCK b1.

----

Initalization Event - Initialize Selection Screen *

----

INITIALIZATION.

v_repid = sy-repid.

----

AT Selectoin-Screen Events - validate user input *

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

Get the filename on the presentation server

PERFORM get_file.

----

START-OF-SELECTION *

----

START-OF-SELECTION.

Refresh and Clear the variables and Internal tables

PERFORM initialize_itab.

Get file contents into internal table

PERFORM upload_file.

Create session

PERFORM open_group.

Insert records into bdcdata and call the Transaction

PERFORM create_routing.

Close session

PERFORM close_group.

&----

*& Form get_file

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_file .

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = v_repid

dynpro_number = syst-dynnr

IMPORTING

file_name = p_file.

ENDFORM. " get_file

&----

*& Form initialize_itab

&----

text

----

--> p1 text
<-- p2 text

----

FORM initialize_itab .

CLEAR: wa_data.

REFRESH: i_data[].

ENDFORM. " initialize_itab

&----

*& Form create_routing

&----

text

----

--> p1 text
<-- p2 text

----

FORM create_routing.

DATA: l_count(2) TYPE n,

l_field(20) TYPE c.

LOOP AT i_data INTO wa_data.

ON CHANGE OF wa_data-matnr.

PERFORM bdc_dynpro USING 'SAPLCPDI' '1010'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RC271-PLNNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'RC27M-MATNR'

'102'.

wa_data-matnr.

PERFORM bdc_field USING 'RC27M-WERKS'

'1000'.

wa_data-werks.

PERFORM bdc_field USING 'RC271-PLNNR'

'20000005'.

wa_data-plnnr.

PERFORM bdc_field USING 'RC271-STTAG'

'19.04.2007'.

ENDON.

PERFORM bdc_dynpro USING 'SAPLCPDA' '1200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'PLKOD-PLNAL'

'1'.

wa_data-plnal.

PERFORM bdc_field USING 'PLKOD-KTEXT'

'BKT-TIRES'.

wa_data-ktext.

PERFORM bdc_field USING 'PLKOD-WERKS'

'1000'.

wa_data-werks.

PERFORM bdc_field USING 'BDC_CURSOR'

'PLKOD-STATU'.

PERFORM bdc_field USING 'PLKOD-VERWE'

'1'.

wa_data-verwe.

PERFORM bdc_field USING 'PLKOD-STATU'

'4'.

wa_data-statu.

PERFORM bdc_field USING 'PLKOD-LOSBS'

'99.999.999'.

PERFORM bdc_field USING 'PLKOD-PLNME'

'EA'.

PERFORM bdc_dynpro USING 'SAPLCPDA' '1200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=VOUE'.

PERFORM bdc_field USING 'PLKOD-KTEXT'

'BKT-TIRES'.

wa_data-ktext.

PERFORM bdc_field USING 'PLKOD-WERKS'

'1000'.

wa_data-werks.

PERFORM bdc_field USING 'BDC_CURSOR'

'PLKOD-STATU'.

PERFORM bdc_field USING 'PLKOD-VERWE'

'1'.

wa_data-verwe.

PERFORM bdc_field USING 'PLKOD-STATU'

'4'.

wa_data-statu.

PERFORM bdc_field USING 'PLKOD-LOSBS'

'99.999.999'.

PERFORM bdc_field USING 'PLKOD-PLNME'

'EA'.

PERFORM bdc_dynpro USING 'SAPLCPDI' '1400'.

PERFORM bdc_field USING 'BDC_CURSOR'

'PLPOD-VGW03(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'PLPOD-ARBPL(01)'

'wmixr270'.

wa_data-arbpl.

PERFORM bdc_field USING 'PLPOD-LTXA1(01)'

'BKT'.

wa_data-ltxa1.

PERFORM bdc_field USING 'PLPOD-BMSCH(01)'

'10'.

wa_data-bmsch.

PERFORM bdc_field USING 'PLPOD-VGW01(01)'

'10'.

wa_data-vgw01.

PERFORM bdc_field USING 'PLPOD-VGW02(01)'

'20'.

wa_data-vgw02.

PERFORM bdc_field USING 'PLPOD-VGW03(01)'

'30'.

wa_data-vgw03.

PERFORM bdc_dynpro USING 'SAPLCPDI' '1400'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RC27X-ENTRY_ACT'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

PERFORM bdc_field USING 'RC27X-ENTRY_ACT'

'1'.

PERFORM bdc_dynpro USING 'SAPLCPDA' '1200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

PERFORM bdc_field USING 'PLKOD-KTEXT'

'BKT-TIRES'.

wa_data-ktext.

PERFORM bdc_field USING 'PLKOD-WERKS'

'1000'.

wa_data-werks.

PERFORM bdc_field USING 'BDC_CURSOR'

'PLKOD-STATU'.

PERFORM bdc_field USING 'PLKOD-VERWE'

'1'.

wa_data-verwe.

PERFORM bdc_field USING 'PLKOD-STATU'

'4'.

wa_data-statu.

PERFORM bdc_field USING 'PLKOD-LOSBS'

'99.999.999'.

PERFORM bdc_field USING 'PLKOD-PLNME'

'EA'.

PERFORM bdc_dynpro USING 'SAPLCPDI' '1200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RC27X-ENTRY_ACT'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ANLG'.

PERFORM bdc_field USING 'RC27X-ENTRY_ACT'

'1'.

*perform bdc_dynpro using 'SAPLCPDA' '1200'.

*perform bdc_field using 'BDC_OKCODE'

'/00'.

*perform bdc_field using 'PLKOD-PLNAL'

'2'.

*perform bdc_field using 'PLKOD-KTEXT'

'BKT-TIRES'.

*perform bdc_field using 'PLKOD-WERKS'

'1000'.

*perform bdc_field using 'BDC_CURSOR'

'PLKOD-STATU'.

*perform bdc_field using 'PLKOD-VERWE'

'2'.

*perform bdc_field using 'PLKOD-STATU'

'4'.

*perform bdc_field using 'PLKOD-LOSBS'

'99.999.999'.

*perform bdc_field using 'PLKOD-PLNME'

'KG'.

*perform bdc_dynpro using 'SAPLCPDA' '1200'.

*perform bdc_field using 'BDC_OKCODE'

'=VOUE'.

*perform bdc_field using 'PLKOD-KTEXT'

'BKT-TIRES'.

*perform bdc_field using 'PLKOD-WERKS'

'1000'.

*perform bdc_field using 'BDC_CURSOR'

'PLKOD-STATU'.

*perform bdc_field using 'PLKOD-VERWE'

'2'.

*perform bdc_field using 'PLKOD-STATU'

'4'.

*perform bdc_field using 'PLKOD-LOSBS'

'99.999.999'.

*perform bdc_field using 'PLKOD-PLNME'

'KG'.

*perform bdc_dynpro using 'SAPLCPDI' '1400'.

*perform bdc_field using 'BDC_CURSOR'

'PLPOD-VGW03(01)'.

*perform bdc_field using 'BDC_OKCODE'

'/00'.

*perform bdc_field using 'PLPOD-ARBPL(01)'

'wmixr270'.

*perform bdc_field using 'PLPOD-LTXA1(01)'

'BKT2'.

*perform bdc_field using 'PLPOD-BMSCH(01)'

'20'.

*perform bdc_field using 'PLPOD-VGW01(01)'

'11'.

*perform bdc_field using 'PLPOD-VGW02(01)'

'21'.

*perform bdc_field using 'PLPOD-VGW03(01)'

'31'.

AT END OF matnr.

PERFORM bdc_dynpro USING 'SAPLCPDI' '1400'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RC27X-ENTRY_ACT'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BU'.

PERFORM bdc_field USING 'RC27X-ENTRY_ACT'

'1'.

PERFORM bdc_transaction USING 'CA01'.

CLEAR: wa_data, l_count.

ENDAT.

ENDLOOP.

ENDFORM. " create_workcenter

&----

*& Form upload_file

&----

text

----

--> p1 text
<-- p2 text

----

FORM upload_file .

DATA wa_excel TYPE alsmex_tabline.

DATA it_excel LIKE TABLE OF wa_excel.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_file

i_begin_col = 1

i_begin_row = 1

i_end_col = 18

i_end_row = 10000

TABLES

intern = it_excel

EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3

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_excel INTO wa_excel.

CASE wa_excel-col.

WHEN 1.

wa_data-matnr = wa_excel-value.

WHEN 2.

wa_data-werks = wa_excel-value.

WHEN 3.

wa_data-plnnr = wa_excel-value.

WHEN 4.

wa_data-plnal = wa_excel-value.

WHEN 5.

wa_data-ktext = wa_excel-value.

WHEN 6.

wa_data-verwe = wa_excel-value.

WHEN 7.

wa_data-statu = wa_excel-value.

WHEN 8.

wa_data-arbpl = wa_excel-value.

WHEN 9.

wa_data-ltxa1 = wa_excel-value.

WHEN 10.

wa_data-bmsch = wa_excel-value.

WHEN 11.

wa_data-vgw01 = wa_excel-value.

WHEN 12.

wa_data-vgw02 = wa_excel-value.

WHEN 13.

wa_data-vgw03 = wa_excel-value.

ENDCASE.

AT END OF row.

APPEND wa_data TO i_data.

ENDAT.

ENDLOOP.

ENDFORM. " upload_file

can u solve this please if ur from bangalore this is vijay once we met one interview in bangalore in reliance webworld regardin exam for capgemini through psidata systems

Regards

vijay