Re: Data migration

Former Member — Thu, 12 Apr 2007 11:15:30 GMT

Hi Line,

Sorry I thought that i send it to u . Now iam sending Just go thru it.

REPORT zbdc_f65 NO STANDARD PAGE HEADING.

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

INCLUDES

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

INCLUDE <icon>.

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

DATA DECLARATIONS

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

DATA t_ctuprms LIKE ctu_params.

DATA: BEGIN OF t_anlb OCCURS 0,

afabe LIKE anlb-afabe,

xloev LIKE anlb-xloev,

END OF t_anlb.

DATA: BEGIN OF t_itab OCCURS 0,

newko1 LIKE rf05v-newko,

newko2 LIKE rf05v-newko,

wrbtr(13),

billno(20),

billdt(10),

kostl LIKE cobl-kostl,

END OF t_itab.

DATA: BEGIN OF t_itab1 OCCURS 0,

newko1 LIKE rf05v-newko,

newko2 LIKE rf05v-newko,

wrbtr(13),

txt(20),

ltxt(50),

kostl1 LIKE cobl-kostl,

kostl2 LIKE cobl-kostl,

END OF t_itab1.

DATA: BEGIN OF t_itab2 OCCURS 0,

newko1 LIKE rf05v-newko,

newko2 LIKE rf05v-newko,

wrbtr(13),

bill_no(20),

kostl LIKE cobl-kostl,

END OF t_itab2.

start of chg0003***************

DATA: BEGIN OF t_itab3 OCCURS 0,

newko1 LIKE rf05v-newko,

newko2 LIKE rf05v-newko,

wrbtr(13),

bill_no(20),

kostl LIKE cobl-kostl,

END OF t_itab3.

*****************end of chg0003*************

DATA: BEGIN OF bdcdata OCCURS 0.

INCLUDE STRUCTURE bdcdata.

DATA: END OF bdcdata.

DATA: w_flname LIKE ibipparms-path,

w_lin TYPE i,

w_tabix LIKE sy-tabix.

DATA: t_excel LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE .

DATA: t_msgtab TYPE TABLE OF bdcmsgcoll WITH HEADER LINE.

DATA: BEGIN OF t_messages OCCURS 0,

index TYPE i,

vendor(18),

account(18),

msgtyp(1),

message(120),

END OF t_messages.

DATA: w_index TYPE i VALUE 1.

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

SELECTION SCREEN

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

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME.

PARAMETERS:

p_bukrs(004) DEFAULT 'PY00' ,

p_bldat TYPE bldat DEFAULT sy-datum ,

p_budat TYPE budat DEFAULT sy-datum .

SELECTION-SCREEN END OF BLOCK a1.

SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME.

PARAMETERS:

p_blart(002) DEFAULT 'KR',

p_waers TYPE waers DEFAULT 'INR' .

SELECTION-SCREEN END OF BLOCK a2.

SELECTION-SCREEN BEGIN OF BLOCK a3 WITH FRAME .

PARAMETERS:

p_newbs TYPE newbs DEFAULT '31' ,

p_newbs1 TYPE newbs DEFAULT '40' .

p_newko TYPE newko DEFAULT '1650000000' .

SELECTION-SCREEN END OF BLOCK a3.

SELECTION-SCREEN BEGIN OF BLOCK a6 WITH FRAME.

PARAMETER: p_txt(100) .

SELECTION-SCREEN END OF BLOCK a6.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME .

SELECTION-SCREEN : PUSHBUTTON 33(45) text-a02 USER-COMMAND down .

SELECTION-SCREEN : SKIP 1 .

PARAMETERS : p_flname LIKE rlgrap-filename OBLIGATORY DEFAULT

'C:\F65_Legasy.XLS'.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK a5 WITH FRAME.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) text-001 FOR FIELD rb_fg.

PARAMETERS rb_fg RADIOBUTTON GROUP g1.

SELECTION-SCREEN COMMENT 50(10) text-002 FOR FIELD rb_ven.

PARAMETERS rb_ven RADIOBUTTON GROUP g2 DEFAULT 'X' USER-COMMAND ucom.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) text-003 FOR FIELD rb_bg.

PARAMETERS rb_bg RADIOBUTTON GROUP g1.

SELECTION-SCREEN COMMENT 50(10) text-004 FOR FIELD rb_gl.

PARAMETERS rb_gl RADIOBUTTON GROUP g2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) text-005 FOR FIELD rb_er.

PARAMETERS: rb_er RADIOBUTTON GROUP g1.

SELECTION-SCREEN COMMENT 50(10) text-007 FOR FIELD rb_cs.

PARAMETERS rb_cs RADIOBUTTON GROUP g2.

SELECTION-SCREEN END OF LINE.

start of chg0003***************

SELECTION-SCREEN BEGIN OF LINE.

*SELECTION-SCREEN COMMENT 1(31) text-005 FOR FIELD rb_er.

*PARAMETERS: rb_er RADIOBUTTON GROUP g1.

SELECTION-SCREEN COMMENT 42(18) text-008 FOR FIELD rb_csp.

PARAMETERS: rb_csp RADIOBUTTON GROUP g2.

SELECTION-SCREEN END OF LINE.

*****************end of chg0003*************

SELECTION-SCREEN END OF BLOCK a5.

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

AT SELECTION SCREEN (F4 HELP)

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flname.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

FIELD_NAME = ' '

IMPORTING

file_name = w_flname.

p_flname = w_flname.

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

AT SELECTION SCREEN OUTPUT

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

AT SELECTION-SCREEN OUTPUT.

IF rb_ven = 'X'.

p_newbs = '31'.

p_newbs1 = '40'.

p_blart = 'KR'.

LOOP AT SCREEN.

IF screen-name = 'P_TXT'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF rb_gl = 'X'.

p_newbs = '40'.

p_newbs1 = '50'.

p_blart = 'BR'.

LOOP AT SCREEN.

IF screen-name = 'P_TXT'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF rb_cs = 'X'.

p_newbs = '40'.

p_newbs1 = '15'.

p_blart = 'CN'.

LOOP AT SCREEN.

IF screen-name = 'P_TXT'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

****************start of chg0003*************

ELSEIF rb_csp = 'X'.

p_newbs = '21'.

p_newbs1 = '15'.

p_blart = 'CN'.

LOOP AT SCREEN.

IF screen-name = 'P_TXT'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

***************end of chg0003*******************

ENDIF.

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

AT SELECTION SCREEN

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

AT SELECTION-SCREEN.

CASE sy-ucomm.

WHEN 'DOWN'.

PERFORM create_file.

ENDCASE.

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

TOP OF PAGE

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

TOP-OF-PAGE.

PERFORM write_heading.

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

START OF SELECTION

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

START-OF-SELECTION.

IF rb_ven = 'X' .

PERFORM fill_t_itab.

ELSEif rb_gl = 'X' .

PERFORM fill_t_itab1.

elseif rb_cs = 'X'.

perform fill_t_itab2.

****************start of chg0003******************

ELSEIF rb_csp = 'X'.

PERFORM fill_t_itab3.

****************end of chg0003********************

ENDIF.

PERFORM execute_bdc.

----

FORM execute_bdc *

----

Sub-routine to reverse document numbers by calling a BDC with *
transaction code FB08 *

----

FORM execute_bdc.

DATA: w_bill(18).

PERFORM fill_ctuprms.

CONCATENATE p_bldat6(2) p_bldat4(2) p_bldat+0(4)

INTO p_bldat.

CONCATENATE p_budat6(2) p_budat4(2) p_budat+0(4)

INTO p_budat.

IF rb_ven = 'X'.

LOOP AT t_itab.

REFRESH bdcdata.

CLEAR w_bill.

CONCATENATE t_itab-billno '-' t_itab-billdt INTO w_bill.

CONDENSE w_bill.

PERFORM fill_bdcdata USING :

'SAPLF040' '0100' 'X',

'BDC_OKCODE' '/00' ' ',

'BKPF-BLDAT' p_bldat ' ',

'BKPF-BLART' p_blart ' ',

'BKPF-BUKRS' p_bukrs ' ',

'BKPF-BUDAT' p_budat ' ',

'BKPF-WAERS' p_waers ' ',

'RF05V-NEWBS' p_newbs ' ',

'RF05V-NEWKO' t_itab-newko1 ' ',

'SAPLF040' '0302' 'X',

'BDC_OKCODE' '/00' ' ',

'BSEG-WRBTR' t_itab-wrbtr ' ',

'BSEG-ZUONR' w_bill ' ',

'BSEG-SGTXT' p_txt ' ',

'RF05V-NEWBS' p_newbs1 ' ',

'RF05V-NEWKO' t_itab-newko2 ' ',

'SAPLF040' '0300' 'X',

'BDC_OKCODE' '=BP' ' ',

'BSEG-WRBTR' '*' ' ',

'BSEG-ZUONR' w_bill ' ',

'BSEG-SGTXT' p_txt ' ',

'SAPLKACB' '0002' 'X',

'BDC_OKCODE' '=ENTE' ' ',

'COBL-GSBER' 'A000' ' ',

'COBL-KOSTL' t_itab-kostl ' '.

CALL TRANSACTION 'F-65' USING bdcdata OPTIONS FROM t_ctuprms

MESSAGES INTO t_msgtab.

CLEAR bdcdata.

REFRESH bdcdata.

PERFORM collect_messages.

ENDLOOP.

ELSEIF rb_gl = 'X'.

LOOP AT t_itab1.

PERFORM fill_bdcdata USING:

'SAPLF040' '0100' 'X',

'BDC_OKCODE' '/00' ' ',

'BKPF-BLDAT' p_bldat ' ',

'BKPF-BLART' p_blart ' ',

'BKPF-BUKRS' p_bukrs ' ',

'BKPF-BUDAT' p_budat ' ',

'BKPF-WAERS' p_waers ' ',

'RF05V-NEWBS' p_newbs ' ',

'RF05V-NEWKO' t_itab1-newko1 ' ',

'SAPLF040' '0300' 'X',

'BDC_OKCODE' '/00' ' ',

'BSEG-WRBTR' t_itab1-wrbtr ' ',

'BSEG-ZUONR' t_itab1-txt ' ',

'BSEG-SGTXT' t_itab1-ltxt ' ',

'RF05V-NEWBS' p_newbs1 ' ',

'RF05V-NEWKO' t_itab1-newko2 ' ',

'SAPLKACB' '0002' 'X',

'BDC_OKCODE' '=ENTE' ' ',

'COBL-GSBER' 'A000' ' ' ,

'COBL-KOSTL' t_itab1-kostl1 ' ',

'SAPLF040' '0300' 'X',

'BSEG-WRBTR' t_itab1-wrbtr ' ',

'SAPLKACB' '0002' 'X',

'BDC_OKCODE' '=ENTE' ' ',

'COBL-GSBER' 'A000' ' ' ,

'COBL-KOSTL' t_itab1-kostl2 ' ',

'SAPLF040' '0300' 'X',

'BDC_OKCODE' '=BP' ' ',

'BSEG-WRBTR' '*' ' ',

'BSEG-ZUONR' t_itab1-txt ' ',

'BSEG-SGTXT' p_txt ' ',

'SAPLKACB' '0002' 'X',

'BDC_OKCODE' '=ENTE' ' ',

'COBL-GSBER' 'A000' ' ' ,

'COBL-KOSTL' t_itab1-kostl2 ' '.

CALL TRANSACTION 'F-65' USING bdcdata OPTIONS FROM t_ctuprms

MESSAGES INTO t_msgtab.

CLEAR bdcdata.

REFRESH bdcdata.

PERFORM collect_messages.

ENDLOOP.

ELSEIF rb_cs = 'X'.

LOOP AT t_itab2.

PERFORM fill_bdcdata USING:

'SAPLF040' '0100' 'X',

'BDC_OKCODE' '/00' ' ',

'BKPF-BLDAT' p_bldat ' ',

'BKPF-BLART' p_blart ' ',

'BKPF-BUKRS' p_bukrs ' ',

'BKPF-BUDAT' p_budat ' ',

'BKPF-WAERS' p_waers ' ',

'RF05V-NEWBS' p_newbs ' ',

'RF05V-NEWKO' t_itab2-newko1 ' ',

'SAPLF040' '0300' 'X',

'BDC_OKCODE' '/00' ' ',

'BSEG-WRBTR' t_itab2-wrbtr ' ',

'BSEG-ZUONR' t_itab2-bill_no' ',

'BSEG-SGTXT' p_txt ' ',

'RF05V-NEWBS' p_newbs1 ' ',

'RF05V-NEWKO' t_itab2-newko2 ' ',

'SAPLKACB' '0002' 'X',

'BDC_OKCODE' '=ENTE' ' ',

'COBL-GSBER' 'A000' ' ',

'COBL-KOSTL' t_itab2-kostl ' ',

'SAPLF040' '0301' 'X',

'BDC_OKCODE' '=BP' ' ',

'BSEG-WRBTR' '*' ' ',

'BSEG-ZUONR' t_itab2-bill_no' ',

'BSEG-SGTXT' p_txt ' '.

CALL TRANSACTION 'F-65' USING bdcdata OPTIONS FROM t_ctuprms

MESSAGES INTO t_msgtab.

CLEAR bdcdata.

REFRESH bdcdata.

PERFORM collect_messages.

ENDLOOP.

****************start of chg0003**************

ELSEIF rb_csp = 'X'.

LOOP AT t_itab3.

PERFORM fill_bdcdata USING:

'SAPLF040' '0100' 'X',

'BDC_OKCODE' '/00' ' ',

'BKPF-BLDAT' p_bldat ' ',

'BKPF-BLART' p_blart ' ',

'BKPF-BUKRS' p_bukrs ' ',

'BKPF-BUDAT' p_budat ' ',

'BKPF-WAERS' p_waers ' ',

'RF05V-NEWBS' p_newbs ' ',

'RF05V-NEWKO' t_itab3-newko1 ' ',

'SAPLF040' '0302' 'X',

'BDC_OKCODE' '/00' ' ',

'BSEG-WRBTR' t_itab3-wrbtr ' ',

'BSEG-ZUONR' t_itab3-bill_no ' ',

'BSEG-SGTXT' p_txt ' ',

'RF05V-NEWBS' p_newbs1 ' ',

'RF05V-NEWKO' t_itab3-newko2 ' ',

* 'SAPLKACB' '0002' 'X',

* 'BDC_OKCODE' '=ENTE' ' ',

* 'COBL-GSBER' 'A000' ' ',

'COBL-KOSTL' t_itab3-kostl ' ',

'SAPLF040' '0301' 'X',

'BDC_OKCODE' '=BP' ' ',

'BSEG-WRBTR' '*' ' ',

'BSEG-ZUONR' t_itab3-bill_no' ',

'BSEG-SGTXT' p_txt ' '.

CALL TRANSACTION 'F-65' USING bdcdata OPTIONS FROM t_ctuprms

MESSAGES INTO t_msgtab.

CLEAR bdcdata.

REFRESH bdcdata.

PERFORM collect_messages.

ENDLOOP.

***************end of chg0003*********************

ENDIF.

PERFORM write_messages.

ENDFORM.

&----

*& Form FILL_BDCDATA

&----

SUB-ROUTINE TO FILL BCDDATA FOR EXECUTION OF BDC

----

-->P_0414 text *
-->P_0415 text *
-->P_0416 text *

----

FORM fill_bdcdata USING val1

val2

val3.

CLEAR bdcdata.

IF val3 = 'X'.

MOVE val1 TO bdcdata-program.

MOVE val2 TO bdcdata-dynpro.

MOVE val3 TO bdcdata-dynbegin.

ELSE.

MOVE val1 TO bdcdata-fnam.

MOVE val2 TO bdcdata-fval.

ENDIF.

APPEND bdcdata.

ENDFORM. " FILL_BDCDATA

&----

*& Form FILL_T_ITAB

&----

*SUB-ROUTINE TO FILL DATA FROM A SPECIFIED FILE TO T_ITAB INTERNAL TABLE

----

FORM fill_t_itab.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_flname

i_begin_col = 1

i_begin_row = 2

i_end_col = 6

i_end_row = 9999

TABLES

intern = t_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.

Filling Data into Internal Tables T_OUTTAB From Internal Table
t_excel.

CLEAR t_itab.

LOOP AT t_excel.

IF t_excel-col = 1 .

t_itab-newko1 = t_excel-value.

ELSEIF t_excel-col = 2 .

t_itab-newko2 = t_excel-value.

ELSEIF t_excel-col = 3 .

MOVE t_excel-value TO t_itab-wrbtr.

ELSEIF t_excel-col = 4 .

t_itab-billno = t_excel-value.

ELSEIF t_excel-col = 5 .

t_itab-billdt = t_excel-value.

ELSEIF t_excel-col = 6 .

t_itab-kostl = t_excel-value.

ENDIF .

AT END OF row.

CONDENSE: t_itab-newko1 , t_itab-newko2,

t_itab-wrbtr , t_itab-billno,

t_itab-billdt , t_itab-kostl.

APPEND t_itab.

CLEAR t_itab.

ENDAT .

ENDLOOP.

ENDFORM. " FILL_T_ITAB

&----

*& Form FILL_CTUPRMS

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_ctuprms.

CLEAR t_ctuprms.

IF rb_bg = 'X'.

t_ctuprms-dismode = 'N'.

ELSEIF rb_fg = 'X'.

t_ctuprms-dismode = 'A'.

ELSE.

t_ctuprms-dismode = 'E'.

ENDIF.

t_ctuprms-updmode = 'S'.

t_ctuprms-defsize = 'X'.

ENDFORM. " FILL_CTUPRMS

&----

*& Form COLLECT_MESSAGES

&----

text

----

--> p1 text
<-- p2 text

----

FORM collect_messages.

DATA: w_msg(100).

IF w_tabix <> 0 AND p_val = '2'.

LOOP AT t_msgtab.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

id = t_msgtab-msgid

lang = t_msgtab-msgspra

no = t_msgtab-msgnr

v1 = t_msgtab-msgv1

v2 = t_msgtab-msgv2

IMPORTING

msg = w_msg

EXCEPTIONS

OTHERS = 0.

CONDENSE w_msg.

CLEAR t_messages.

IF rb_ven = 'X'.

t_messages-vendor = t_itab-newko1.

t_messages-account = t_itab-newko2.

ELSEIF rb_gl = 'X'.

t_messages-vendor = t_itab1-newko1.

t_messages-account = t_itab1-newko2.

ENDIF.

t_messages-index = w_index.

t_messages-msgtyp = t_msgtab-msgtyp.

t_messages-message = w_msg.

APPEND t_messages.

ENDLOOP.

w_index = w_index + 1.

REFRESH t_msgtab.

ENDFORM. " COLLECT_MESSAGES

&----

*& Form WRITE_HEADING

&----

text

----

--> p1 text
<-- p2 text

----

FORM write_heading.

FORMAT COLOR 1.

ULINE 0(128).

IF rb_ven = 'X'.

WRITE:/1 sy-vline,

2 'Vendor',

12 '/',

16'Acct No',

29 sy-vline,

30 'Status',

39 sy-vline,

40 'Description',

128 sy-vline.

ELSEIF rb_gl = 'X'.

WRITE:/1 sy-vline,

2 'Account1',

12 '/',

16'Account2',

29 sy-vline,

30 'Status',

39 sy-vline,

40 'Description',

128 sy-vline.

ENDIF.

ULINE 0(128).

FORMAT COLOR OFF.

ENDFORM. " WRITE_HEADING

&----

*& Form WRITE_MESSAGES

&----

text

----

--> p1 text
<-- p2 text

----

FORM write_messages.

DATA: wa_msg LIKE t_messages.

LOOP AT t_messages.

wa_msg = t_messages.

WRITE:/1 sy-vline.

AT NEW vendor.

CONDENSE: wa_msg-vendor, wa_msg-account.

WRITE: 2 wa_msg-vendor , 12 '/' , 16 wa_msg-account .

ENDAT.

WRITE : 29 sy-vline.

IF wa_msg-msgtyp = 'S'.

WRITE: 30 icon_green_light.

ELSEIF wa_msg-msgtyp = 'E'.

WRITE: 30 icon_red_light.

ELSEIF wa_msg-msgtyp = 'W'.

WRITE: 30 icon_yellow_light.

ENDIF.

WRITE: 39 sy-vline,

wa_msg-message UNDER 'Description' , 128 sy-vline.

AT END OF vendor.

WRITE:/1 sy-vline.

ULINE 1(128).

ENDAT.

ENDLOOP.

ENDFORM. " WRITE_MESSAGES

&----

*& Form CREATE_FILE

&----

text

----

--> p1 text
<-- p2 text

----

FORM create_file.

DATA t_tmptab LIKE t_itab OCCURS 0 WITH HEADER LINE.

DATA t_tmptab1 LIKE t_itab1 OCCURS 0 WITH HEADER LINE.

IF rb_ven = 'X' .

t_tmptab-newko1 = 'Vendor' .

t_tmptab-newko2 = 'Account' .

t_tmptab-billno = 'Bill No.' .

t_tmptab-billdt = 'Bill Date'.

t_tmptab-kostl = 'Cost Cntr'.

t_tmptab-wrbtr = 'Amount' .

APPEND t_tmptab .

ELSEIF rb_gl = 'X' .

t_tmptab1-newko1 = 'Account1' .

t_tmptab1-newko2 = 'Account2' .

t_tmptab1-txt = 'Assignment' .

t_tmptab1-ltxt = 'Long Text'.

t_tmptab1-kostl1 = 'Cost Cntr1'.

t_tmptab1-kostl2 = 'Cost Cntr2'.

t_tmptab1-wrbtr = 'Amount' .

APPEND t_tmptab1 .

ELSEIF rb_cs = 'X' .

t_tmptab-newko1 = 'Account1' .

t_tmptab-newko2 = 'Customer' .

t_tmptab-billno = 'Assignment' .

t_tmptab-kostl = 'Cost Cntr'.

t_tmptab-wrbtr = 'Amount' .

APPEND t_tmptab .

*************start of chg0003**************

ELSEIF rb_csp = 'X' .

t_tmptab-newko1 = 'Account1' .

t_tmptab-newko2 = 'Customer' .

t_tmptab-billno = 'Assignment' .

t_tmptab-kostl = 'Cost Cntr'.

t_tmptab-wrbtr = 'Amount' .

APPEND t_tmptab .

************end of chg0003*****************

ENDIF.

if rb_gl = 'X' .

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

filename = p_flname

filetype = 'DAT'

TABLES

data_tab = t_tmptab1

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10.

else.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

filename = p_flname

filetype = 'DAT'

TABLES

data_tab = t_tmptab

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10.

endif.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " CREATE_FILE

&----

*& Form FILL_T_ITAB1

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_t_itab1.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_flname

i_begin_col = 1

i_begin_row = 2

i_end_col = 7

i_end_row = 9999

TABLES

intern = t_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.

Filling Data into Internal Tables T_OUTTAB From Internal Table
t_excel.

CLEAR t_itab1.

LOOP AT t_excel.

IF t_excel-col = 1 .

t_itab1-newko1 = t_excel-value.

ELSEIF t_excel-col = 2 .

t_itab1-newko2 = t_excel-value.

ELSEIF t_excel-col = 3 .

MOVE t_excel-value TO t_itab1-wrbtr.

ELSEIF t_excel-col = 4 .

t_itab1-txt = t_excel-value.

ELSEIF t_excel-col = 5 .

t_itab1-ltxt = t_excel-value.

ELSEIF t_excel-col = 6 .

t_itab1-kostl1 = t_excel-value.

ELSEIF t_excel-col = 7 .

t_itab1-kostl2 = t_excel-value.

ENDIF.

AT END OF row.

CONDENSE: t_itab1-newko1 , t_itab1-newko2,

t_itab1-wrbtr , t_itab1-txt,

t_itab1-ltxt, t_itab1-kostl1, t_itab1-kostl2.

APPEND t_itab1.

CLEAR t_itab1.

ENDAT .

ENDLOOP.

ENDFORM. " FILL_T_ITAB1

&----

*& Form fill_t_itab2

&----

text

----

--> p1 text
<-- p2 text

----

form fill_t_itab2.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_flname

i_begin_col = 1

i_begin_row = 2

i_end_col = 6

i_end_row = 9999

TABLES

intern = t_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.

Filling Data into Internal Tables T_OUTTAB From Internal Table
t_excel.

CLEAR t_itab2.

LOOP AT t_excel.

IF t_excel-col = 1 .

t_itab2-newko1 = t_excel-value.

ELSEIF t_excel-col = 2 .

t_itab2-newko2 = t_excel-value.

ELSEIF t_excel-col = 3 .

MOVE t_excel-value TO t_itab2-wrbtr.

ELSEIF t_excel-col = 4 .

t_itab2-bill_no = t_excel-value.

ELSEIF t_excel-col = 6 .

t_itab2-kostl = t_excel-value.

ENDIF.

AT END OF row.

CONDENSE: t_itab2-newko1 , t_itab2-newko2,

t_itab2-wrbtr , t_itab2-bill_no,

t_itab2-kostl.

APPEND t_itab2.

CLEAR t_itab2.

ENDAT .

ENDLOOP.

endform. " fill_t_itab2

*******************start of chg**********************

&----

*& Form fill_t_itab3

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_t_itab3.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = p_flname

i_begin_col = 1

i_begin_row = 2

i_end_col = 4

i_end_row = 9999

TABLES

intern = t_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.

Filling Data into Internal Tables T_OUTTAB From Internal Table
t_excel.

CLEAR t_itab3.

LOOP AT t_excel.

IF t_excel-col = 1 .

t_itab3-newko1 = t_excel-value.

ELSEIF t_excel-col = 2 .

t_itab3-newko2 = t_excel-value.

ELSEIF t_excel-col = 3 .

MOVE t_excel-value TO t_itab3-wrbtr.

ELSEIF t_excel-col = 4 .

t_itab3-bill_no = t_excel-value.

ELSEIF t_excel-col = 6 .
t_itab2-kostl = t_excel-value.

ENDIF.

AT END OF row.

CONDENSE: t_itab3-newko1 , t_itab3-newko2,

t_itab3-wrbtr , t_itab3-bill_no.

APPEND t_itab3.

CLEAR t_itab3.

ENDAT .

ENDLOOP.

ENDFORM.

******************end of chg0003****************

Regards,

Shafi

topic Re: Data migration in Application Development and Automation Discussions

Data migration

Re: Data migration

Re: Data migration

Re: Data migration

Re: Data migration

Re: Data migration

Re: Data migration

Re: Data migration