upload from excel for transtion

Former Member · ‎05-15-2006

hi

Message was edited by: soorya m

former_member181962 · ‎05-15-2006

Hi Soorya,

I'll try to give you a skeleton of the program.

1) Upload the excel file using any one of GUI_UPLOAD or ALSM_EXCEL_TO_INTERNAL_TABLE into an internal table.

2) Create a recording in SHDB transaction for IL01 and generate a program from the recording.

3) Modify the generated program according to your requirement.

4) Use BDC session or Call transaction method to finally update your records in the IL01 transaction.

Regards,

Ravi

Former Member · ‎05-15-2006

hi ravi,

plz if u can give any brief coding will be useful

regards,

soorya

Former Member · ‎05-15-2006

hi friends,

is there any STANDARD program for this kind spec

where we can modify coding to our requirements

thanks

regards,

soorya

former_member188685 · ‎06-01-2006

Hi soorya,

check this..

http://www.sapdevelopment.co.uk/file/file_upexcel.htm

Regards

vijay

Former Member · ‎06-01-2006

hi Soorya,

Check this out

REPORT ZFI_ROYALTY_REPORT_NEW MESSAGE-ID ZMES.

TABLES : ZRYLT.

Internal Table Declarations

DATA: BEGIN OF ITAB OCCURS 0,

FIELD1(50) TYPE C,

FIELD2(50) TYPE C,

FIELD3(50) TYPE C,

FIELD4(50) TYPE C,

FIELD5(50) TYPE C,

FIELD6(50) TYPE C,

FIELD7(50) TYPE C,

FIELD8(50) TYPE C,

FIELD9(50) TYPE C,

FIELD10(50) TYPE C,

FIELD11(50) TYPE C,

FIELD12(50) TYPE C,

FIELD13(50) TYPE C,

FIELD14(50) TYPE C,

FIELD15(50) TYPE C,

FIELD16(50) TYPE C,

FIELD17(50) TYPE C,

FIELD18(50) TYPE C,

FIELD19(50) TYPE C,

FIELD20(50) TYPE C,

FIELD21(50) TYPE C,

FIELD22(50) TYPE C,

FIELD23(50) TYPE C,

FIELD24(50) TYPE C,

FIELD25(50) TYPE C,

FIELD26(50) TYPE C,

FIELD27(50) TYPE C,

FIELD28(50) TYPE C,

FIELD29(50) TYPE C,

FIELD30(50) TYPE C,

FIELD31(50) TYPE C,

FIELD32(50) TYPE C,

FIELD33(50) TYPE C,

FIELD34(50) TYPE C,

FIELD35(50) TYPE C,

FIELD36(50) TYPE C,

FIELD37(50) TYPE C,

FIELD38(50) TYPE C,

FIELD39(50) TYPE C,

FIELD40(50) TYPE C,

FIELD41(50) TYPE C,

FIELD42(50) TYPE C,

FIELD43(50) TYPE C,

FIELD44(50) TYPE C,

FIELD45(50) TYPE C,

FIELD46(50) TYPE C,

FIELD47(50) TYPE C,

FIELD48(50) TYPE C,

FIELD49(50) TYPE C,

FIELD50(50) TYPE C,

FIELD51(50) TYPE C,

FIELD52(50) TYPE C,

FIELD53(50) TYPE C,

FIELD54(50) TYPE C,

FIELD55(50) TYPE C,

END OF ITAB.

DATA : BEGIN OF ITAB2 OCCURS 0,

FIELD1(50) TYPE C,

FIELD2(50) TYPE C,

END OF ITAB2.

DATA : BEGIN OF ITAB3 OCCURS 0,

FIELD1 TYPE ZRYLT-LIFNR,

FIELD2 TYPE ZRYLT-ZCONR,

END OF ITAB3.

DATA : BEGIN OF IT_FINAL OCCURS 0,

FLD1 TYPE ZRYLT-MATNR,

FLD2 TYPE ZRYLT-ZCHAS,

FLD3 TYPE ZRYLT-LIFNR,

FLD4 TYPE ZRYLT-ZCONR,

FLD5(10) TYPE C,

FLD6 TYPE ZRYLT-ZDAT1,

FLD7 TYPE ZRYLT-PRCTR,

FLD8 TYPE ZRYLT-ZITMR,

FLD9 TYPE ZRYLT-MANDT,

END OF IT_FINAL.

DATA : V_FILENAME TYPE STRING.

DATA : IT_TAB TYPE FILETABLE,

V_RC TYPE I.

DATA : WA_TAB TYPE LINE OF FILETABLE.

DATA : V_PRCTR LIKE ZRYLT-PRCTR,

K_PRCTR LIKE ZRYLT-PRCTR,

V_ZITMR LIKE ZRYLT-ZITMR.

DATA : CNT TYPE I VALUE 1.

Selection Screen

SELECTION-SCREEN BEGIN OF BLOCK M WITH FRAME.

PARAMETERS : P_DATE TYPE ZRYLT-ZDAT1 OBLIGATORY,

P_PRCTR TYPE ZRYLT-PRCTR OBLIGATORY,

P_FILE(90) TYPE C OBLIGATORY.

SELECTION-SCREEN END OF BLOCK M.

AT SELECTION-SCREEN.

SELECT SINGLE PRCTR FROM CEPCT INTO K_PRCTR WHERE PRCTR = P_PRCTR.

IF SY-SUBRC <> 0.

MESSAGE E000(ZMES) WITH 'ENTER A VALID PRCTR'.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

Get File

PERFORM GET_FILE.

START-OF-SELECTION.

Get PRCTR

PERFORM GET_PRCTR.

Upload and Get Data

PERFORM GET_DATA.

Process Data

PERFORM PROCESS_DATA.

END-OF-SELECTION.

Write Data

PERFORM WRITE_DATA.

Display Data

PERFORM DISPLAY_DATA.

&----

*& Form GET_FILE

&----

FORM GET_FILE.

REFRESH IT_TAB.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

DEFAULT_FILENAME = 'C:\PDP1.txt'

CHANGING

FILE_TABLE = IT_TAB

RC = V_RC

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

OTHERS = 4

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

READ TABLE IT_TAB INDEX 1 INTO WA_TAB.

P_FILE = WA_TAB-FILENAME.

ENDIF.

ENDFORM. " GET_FILE

&----

*& Form GET_PRCTR

&----

FORM GET_PRCTR.

SELECT PRCTR

KTEXT

FROM CEPCT

INTO (V_PRCTR,V_ZITMR)

WHERE PRCTR = P_PRCTR.

ENDSELECT.

IF SY-SUBRC <> 0.

WRITE : ' ENTER VALID PROFIT CENTER '.

ENDIF.

ENDFORM. " GET_PRCTR

&----

*& Form GET_DATA

&----

FORM GET_DATA.

V_FILENAME = P_FILE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = V_FILENAME

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = '|'

TABLES

DATA_TAB = ITAB

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.

IF NOT ITAB[] IS INITIAL.

LOOP AT ITAB FROM 7.

ITAB2-FIELD1 = ITAB-FIELD1.

ITAB2-FIELD2 = ITAB-FIELD2.

APPEND : ITAB2.

CLEAR : ITAB2.

ENDLOOP.

DO 27 TIMES.

CASE CNT.

WHEN '1'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD6.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD6.

WHEN '2'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD7.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD7.

WHEN '3'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD8.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD8.

WHEN '4'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD9.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD9.

WHEN '5'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD10.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD10.

WHEN '6'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD11.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD11.

WHEN '7'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD12.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD12.

WHEN '8'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD13.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD13.

WHEN '9'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD14.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD14.

WHEN '10'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD15.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD15.

WHEN '11'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD16.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD16.

WHEN '12'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD17.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD17.

WHEN '13'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD18.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD18.

WHEN '14'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD19.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD19.

WHEN '15'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD20.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD20.

WHEN '16'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD21.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD21.

WHEN '17'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD22.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD22.

WHEN '18'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD23.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD23.

WHEN '19'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD24.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD24.

WHEN '20'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD25.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD25.

WHEN '21'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD26.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD26.

WHEN '22'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD27.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD27.

WHEN '23'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD28.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD28.

WHEN '24'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD29.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD29.

WHEN '25'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD30.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD30.

WHEN '26'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD31.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD31.

WHEN '27'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD32.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD32.

WHEN '28'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD33.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD33.

WHEN '29'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD34.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD34.

WHEN '30'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD35.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD35.

WHEN '31'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD36.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD36.

WHEN '32'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD37.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD37.

WHEN '33'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD38.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD38.

WHEN '34'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD39.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD39.

WHEN '35'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD40.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD40.

WHEN '36'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD41.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD41.

WHEN '37'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD42.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD42.

WHEN '38'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD43.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD43.

WHEN '39'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD44.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD44.

WHEN '40'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD45.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD45.

WHEN '41'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD46.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD46.

WHEN '42'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD47.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD47.

WHEN '43'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD48.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD48.

WHEN '44'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD49.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD49.

WHEN '45'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD50.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD50.

WHEN '46'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD51.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD51.

WHEN '47'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD52.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD52.

WHEN '48'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD53.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD53.

WHEN '49'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD54.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD54.

WHEN '50'.

READ TABLE ITAB INDEX 4.

ITAB3-FIELD1 = ITAB-FIELD55.

READ TABLE ITAB INDEX 5.

ITAB3-FIELD2 = ITAB-FIELD55.

ENDCASE.

APPEND ITAB3.

CLEAR ITAB3.

CNT = CNT + 1.

ENDDO.

ENDIF.

ENDFORM. " GET_DATA

&----

*& Form PROCESS_DATA

&----

FORM PROCESS_DATA.

LOOP AT ITAB FROM 7.

IF NOT ITAB-FIELD1 IS INITIAL.

IT_FINAL-FLD1 = ITAB-FIELD1.

IT_FINAL-FLD2 = ITAB-FIELD2.

IT_FINAL-FLD6 = P_DATE.

IT_FINAL-FLD7 = V_PRCTR.

IT_FINAL-FLD8 = V_ZITMR.

IT_FINAL-FLD9 = SY-MANDT.

CNT = 1.

LOOP AT ITAB3.

IT_FINAL-FLD3 = ITAB3-FIELD1.

IT_FINAL-FLD4 = ITAB3-FIELD2.

CASE CNT.

WHEN '1'.

IT_FINAL-FLD5 = ITAB-FIELD6.

WHEN '2'.

IT_FINAL-FLD5 = ITAB-FIELD7.

WHEN '3'.

IT_FINAL-FLD5 = ITAB-FIELD8.

WHEN '4'.

IT_FINAL-FLD5 = ITAB-FIELD9.

WHEN '5'.

IT_FINAL-FLD5 = ITAB-FIELD10.

WHEN '6'.

IT_FINAL-FLD5 = ITAB-FIELD11.

WHEN '7'.

IT_FINAL-FLD5 = ITAB-FIELD12.

WHEN '8'.

IT_FINAL-FLD5 = ITAB-FIELD13.

WHEN '9'.

IT_FINAL-FLD5 = ITAB-FIELD14.

WHEN '10'.

IT_FINAL-FLD5 = ITAB-FIELD15.

WHEN '11'.

IT_FINAL-FLD5 = ITAB-FIELD16.

WHEN '12'.

IT_FINAL-FLD5 = ITAB-FIELD17.

WHEN '13'.

IT_FINAL-FLD5 = ITAB-FIELD18.

WHEN '14'.

IT_FINAL-FLD5 = ITAB-FIELD19.

WHEN '15'.

IT_FINAL-FLD5 = ITAB-FIELD20.

WHEN '16'.

IT_FINAL-FLD5 = ITAB-FIELD21.

WHEN '17'.

IT_FINAL-FLD5 = ITAB-FIELD22.

WHEN '18'.

IT_FINAL-FLD5 = ITAB-FIELD23.

WHEN '19'.

IT_FINAL-FLD5 = ITAB-FIELD24.

WHEN '20'.

IT_FINAL-FLD5 = ITAB-FIELD25.

WHEN '21'.

IT_FINAL-FLD5 = ITAB-FIELD26.

WHEN '22'.

IT_FINAL-FLD5 = ITAB-FIELD27.

WHEN '23'.

IT_FINAL-FLD5 = ITAB-FIELD28.

WHEN '24'.

IT_FINAL-FLD5 = ITAB-FIELD29.

WHEN '25'.

IT_FINAL-FLD5 = ITAB-FIELD30.

WHEN '26'.

IT_FINAL-FLD5 = ITAB-FIELD31.

WHEN '27'.

IT_FINAL-FLD5 = ITAB-FIELD32.

WHEN '28'.

IT_FINAL-FLD5 = ITAB-FIELD33.

WHEN '29'.

IT_FINAL-FLD5 = ITAB-FIELD34.

ENDCASE.

APPEND IT_FINAL.

CNT = CNT + 1.

ENDLOOP.

CLEAR IT_FINAL.

ENDIF.

ENDLOOP.

ENDFORM. " PROCESS_DATA

&----

*& Form DISPLAY_DATA

&----

FORM DISPLAY_DATA.

WRITE 😕 'Client',

09 'Item',

25 'Model Name',

45 'Chasis',

55 'Input Date',

70 'Profit Centre',

85 'Profit Centre Description',

110 'Content',

135 'Fee'.

LOOP AT IT_FINAL.

IF NOT IT_FINAL-FLD5 IS INITIAL.

WRITE 😕 IT_FINAL-FLD9,

09 IT_FINAL-FLD3,

25 IT_FINAL-FLD1,

45 IT_FINAL-FLD2,

55 IT_FINAL-FLD6,

70 IT_FINAL-FLD7,

85 IT_FINAL-FLD8,

110 IT_FINAL-FLD4,

135 IT_FINAL-FLD5.

ENDIF.

ENDLOOP.

ENDFORM. " DISPLAY_DATA

&----

*& Form WRITE_DATA

&----

FORM WRITE_DATA.

LOOP AT IT_FINAL.
IF NOT IT_FINAL-FLD5 IS INITIAL.
ZRYLT-MANDT = IT_FINAL-FLD9.
ZRYLT-LIFNR = IT_FINAL-FLD3.
ZRYLT-MATNR = IT_FINAL-FLD1.
ZRYLT-ZCHAS = IT_FINAL-FLD2.
ZRYLT-ZDAT1 = IT_FINAL-FLD6.
ZRYLT-PRCTR = IT_FINAL-FLD7.
ZRYLT-ZITMR = IT_FINAL-FLD8.
ZRYLT-ZCONR = IT_FINAL-FLD4.
ZRYLT-ZRATE = IT_FINAL-FLD5.
MODIFY ZRYLT.
ENDIF.
ENDLOOP.

endform.

Regards,

Santosh

RKSK · ‎07-11-2007

Hi Surya i was just watching the thread posted by you as i m making BDC for IL01 see if you can help me by sending me the sequence of perform for the second screen