SAP Data Migration

LogBook - Upload

2009-07-20T21:23:00.001-07:00

Here is the example of SAP Data Migration for Equipment Class and Equipment Charateristic.

report zpmxxx message-id zmcpm0001.

data: begin of w_input.
include structure diacl_log_entry.
data: end of w_input.
data: d_desc1(85) type c,
d_desc2(85) type c,
d_desc3(85) type c,
d_ref_obj like diohfw_nodes-ref_obj.

at selection-screen output.
loop at screen.

if screen-name = w_input-logid.
screen-input = 0.
modify screen.
endif.
endloop.

start-of-selection.
call screen 2000.

*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_2000 output.
set pf-status 'STATUS_2000'.
set titlebar 'TITLE_2000'.
w_input-logid = '%00000000001'.
loop at screen.
if screen-name = 'W_INPUT-LOGID'.
screen-input = 0.
modify screen.
endif.
endloop.
endmodule. " STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_2000 input.
case sy-ucomm.
when 'BACK' or 'EXIT' or 'CANCEL'.
leave program.
when '&SAVE'.
perform f_save_logbook.
endcase.
endmodule. " USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
*& Form F_SAVE_LOGBOOK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form f_save_logbook.
data: lw_jest like jest,
lw_jsto like jsto,
lw_diohfw like diohfw_nodes,
ld_nodeid like diohfw_nodes-nodeid,
ld_sort type i.
data: begin of lt_sort occurs 0,
sort like diohfw_nodes-sort,
end of lt_sort.
select single nodeid from diohfw_nodes into ld_nodeid where ref_obj = d_ref_obj.
if ld_nodeid is not initial.

perform f_check_overlap using ld_nodeid.

free w_input-logid.
call function 'NUMBER_GET_NEXT'
exporting
nr_range_nr = '01'
object = 'LBK_LGE'
importing
number = w_input-logid
exceptions
interval_not_found = 1
number_range_not_intern = 2
object_not_found = 3
quantity_is_0 = 4
quantity_is_not_1 = 5
interval_overflow = 6
buffer_overflow = 7
others = 8.
concatenate 'LG' w_input-logid into w_input-objnr.

call function 'ENQUEUE_EZ_LOGBOOK_LOGID'
exporting
logid = w_input-logid
exceptions
foreign_lock = 1
system_failure = 2
others = 3.
if sy-subrc = 1.
message e001 with 'Log ID is being processed'.
endif.
concatenate d_desc1 d_desc2 d_desc3 into w_input-zzpmdt00006 separated by space.
modify diacl_log_entry from w_input.
if sy-subrc = 0.
message s001 with 'Data saved'.
else.
message e011 with 'DIACL_LOG_ENTRY'.
stop.
endif.
call function 'DEQUEUE_EZ_LOGBOOK_LOGID'
exporting
logid = w_input-logid.

select sort from diohfw_nodes into table lt_sort where sup_nodeid = ld_nodeid.
sort lt_sort by sort descending.
read table lt_sort index 1.
if sy-subrc = 0.
ld_sort = lt_sort.
ld_sort = ld_sort + 1.
endif.
"insert into table
lw_diohfw-mandt = sy-mandt.
concatenate 'LGE' w_input-logid into lw_diohfw-nodeid.
lw_diohfw-sup_nodeid = ld_nodeid.
lw_diohfw-type = 'LGE'.
lw_diohfw-ref_obj = w_input-logid.
data: ld_timestamp(15) type c.
concatenate sy-datlo sy-timlo into ld_timestamp.
lw_diohfw-timestamp = ld_timestamp.
lw_diohfw-nlevel = 2.
lw_diohfw-sort = ld_sort.
insert diohfw_nodes from lw_diohfw.
if sy-subrc <> 0.
message e011 with 'DIOHFW_NODES'.
endif.

"insert system status
lw_jsto-mandt = sy-mandt.
lw_jsto-objnr = w_input-objnr.
lw_jsto-obtyp = 'LGE'.
lw_jsto-chgkz = 'X'.
lw_jsto-chgnr = 001.
insert jsto from lw_jsto.
if sy-subrc <> 0.
message e011 with 'JSTO'.
endif.

lw_jest-mandt = sy-mandt.
lw_jest-objnr = w_input-objnr.
lw_jest-stat = 'I8030'.
lw_jest-chgnr = 001.
insert jest from lw_jest.
if sy-subrc <> 0.
message e011 with 'JEST'.
endif.

clear w_input.
else.
message e010.
endif.
endform. " F_SAVE_LOGBOOK
*&---------------------------------------------------------------------*
*& Form F_CHECK_OVERLAP
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_W_INPUT text
*----------------------------------------------------------------------*
form f_check_overlap using fu_nodeid.
data: begin of lt_time occurs 0,
logid like diacl_log_entry-logid,
starttm like diacl_log_entry-starttm,
endtm like diacl_log_entry-endtm ,
startdt like diacl_log_entry-startdt,
enddt like diacl_log_entry-enddt,
starttz like diacl_log_entry-starttz,
endtz like diacl_log_entry-endtz,
end of lt_time.
data:
l_old_sstamp type diohfw_timestamp,
l_old_estamp type diohfw_timestamp,
l_new_sstamp type diohfw_timestamp,
l_new_estamp type diohfw_timestamp,
l_sreading_date type datum,
l_sreading_time type uzeit,
l_ereading_date type datum,
l_ereading_time type uzeit,
l_timezone type ttzz-tzone.
*
* data: ld_dat(8) type c.
* ld_dat = w_input-startdt.
*
* w_input-startdt+0(4) = ld_dat+4(4)."year
* w_input-startdt+4(2) = ld_dat+2(2)."month
* w_input-startdt+6(2) = ld_dat+0(2)."day
*
* ld_dat = w_input-enddt.
*
* w_input-enddt+0(4) = ld_dat+4(4)."year
* w_input-enddt+4(2) = ld_dat+2(2)."month
* w_input-enddt+6(2) = ld_dat+0(2)."day

select a~logid a~starttm a~endtm a~startdt a~enddt a~starttz a~endtz
from diacl_log_entry as a inner join diohfw_nodes as b on a~logid = b~ref_obj
into table lt_time
where sup_nodeid = fu_nodeid.

delete lt_time where starttm is initial and endtm is initial and startdt is initial and enddt is initial.

loop at lt_time.
if lt_time-starttz is initial.
lt_time-starttz = 'UTC+7'.
endif.
if lt_time-endtz is initial.
lt_time-endtz = 'UTC+7'.
endif.
* convert date/times into timstamps
call function 'TZ_SYSTEM_GET_TZONE'
importing
tzone_system = l_timezone.

* Compute start timestamp for the old values of Log entry
convert date lt_time-startdt time lt_time-starttm
into time stamp l_old_sstamp time zone lt_time-starttz.

if sy-subrc = 0.
convert time stamp l_old_sstamp time zone l_timezone
into date l_sreading_date time l_sreading_time.

convert date l_sreading_date time l_sreading_time
into time stamp l_old_sstamp time zone l_timezone.
endif.

* Compute end timestamp for the old values of Log entry
convert date lt_time-enddt time lt_time-endtm
into time stamp l_old_estamp time zone lt_time-endtz.

if sy-subrc = 0.
convert time stamp l_old_estamp time zone l_timezone
into date l_ereading_date time l_ereading_time.

convert date l_ereading_date time l_ereading_time
into time stamp l_old_estamp time zone l_timezone.
endif.

* Compute start timestamp for the new values of the log entry
convert date w_input-startdt time w_input-starttm
into time stamp l_new_sstamp time zone w_input-starttz.

if sy-subrc = 0.
convert time stamp l_new_sstamp time zone l_timezone
into date l_sreading_date time l_sreading_time.

convert date l_sreading_date time l_sreading_time
into time stamp l_new_sstamp time zone l_timezone.
endif.

* Compute end timestamp for the new values of the log entry
convert date w_input-enddt time w_input-endtm
into time stamp l_new_estamp time zone w_input-endtz.

if sy-subrc = 0.
convert time stamp l_new_estamp time zone l_timezone
into date l_ereading_date time l_ereading_time.

convert date l_ereading_date time l_ereading_time
into time stamp l_new_estamp time zone l_timezone.
endif.

* Check if start Timestamp is greater than end timestamp
if l_new_sstamp > l_new_estamp.
message id 'DIACL'
type 'E'
number '068'.
endif.

data: ld_error type c.
if l_new_sstamp > l_old_sstamp and l_new_sstamp < ld_error =" 'X'.
elseif l_new_estamp > l_old_sstamp and l_new_estamp < ld_error =" 'X'.
elseif l_new_estamp <>and l_new_estamp > l_old_estamp.
ld_error = 'X'.
endif.

if ld_error is not initial.
MESSAGE e018(zmcpm0001) WITH lt_time-logid.
* message id 'DIACL'
* type 'E'
* number '255'.
endif.
* free ld_error.
endloop.
free ld_error.
endform. " F_CHECK_OVERLAP

Financial

2009-03-30T09:47:00.000-07:00

SAP Financial training material that you can read and download :

Financial Accounting (CAARCFI.pdf)
Financial Accounting (SR-FI.pdf)
General Topics - Financial Accounting (FITX.pdf)
Data Transfer Workbench -FI (CAGTFADM-FI.pdf)
FI - Information System (FIGLIS.pdf)
Account Receivable and Account Payable (FIBP.pdf)

keywords :
Finance, SAP, Accounting

Human Resources

2009-03-29T11:28:00.000-07:00

SAP Human Resources training material that you can read and download :

Human Resources (CAARCHR.pdf)
Human Resources (SR_HR.pdf)
Human Resources Infotypes (HRINF.pdf)
Human Resources Management (CAGTFADM-PA.pdf)
Human Resources Form Editor (PYINT_FORMS.pdf)
Human Resources Workplace (PYINT_FORMBUILDER.pdf)

keyword :
SAP, Human Resources, Infotypes

Project Systems

2009-03-19T08:09:00.000-07:00

SAP Project Systems training material that you can read and download :

Decentralized Warehouse Management (LEIDW.pdf)
Open Information Warehouse (CAOIW.pdf)

keyword :
Project Systems, Warehouse, Finance, SAP, Data Migration

ME31 - Upload (part III)

2009-03-17T09:49:00.000-07:00

Here is the example of SAP Data Migration for T-Code : ME31 (REPORT zmi_upload_me31_TOP)

Data: begin of i_Hdr occurs 0,
EBELN(25),
LIFNR(10),
BSART(4),
BEDAT(10),
"EVART(20),
"VEDAT(10),
EKORG(4),
EKGRP(3),
PINCR(5),
UPINC(5),

KDATB(10),
KDATE(10),
"BEDAT2(8),

SPRAS(1),
WEAKT(1),

ZTERM(4),
ZBD1T(3),
ZBD2T(3),
ZBD3T(3),
ZBD1P(5),
ZBD2P(5),

KTWRT(15),
WAERS(5),
WKURS(9),
KUFIX(1),

INCO1(3),
INCO2(28),
IHRAN(8),
IHREZ(12),
UNSEZ(12), " Our Reference
LLIEF(10),
ANGNR(10),
VERKF(30),
TELF1(16),
LIFRE(10),

SELKZ(1),
LTEX1a(40),
LTEX1b(40),
SELKZ1(1),
LTEX12a(40),
LTEX12b(40),
SELKZ2(1),
LTEX13a(40),
LTEX13b(40),
SELKZ3(1),
LTEX14a(40),
LTEX14b(40),

SELKZ4(1),
LTEX15a(40),
LTEX15b(40),

SELKZ5(1),
LTEX16a(40),
LTEX16b(40),

SELKZ6(1),
LTEX17a(40),
LTEX17b(40),

SELKZ7(1),
LTEX18a(40),
LTEX18b(40),

SELKZ8(1),
LTEX19a(40),
LTEX19b(40),

SELKZ9(1),
LTEX20a(40),
LTEX20b(40),

SELKZ10(1),
LTEX21a(40),
LTEX21b(40),

SELKZ11(1),
LTEX22a(40),
LTEX22b(40),

SELKZ12(1),
LTEX23a(40),
LTEX23b(40),

SELKZ13(1),
LTEX24a(40),
LTEX24b(40),

SELKZ14(1),
LTEX25a(40),
LTEX25b(40),

SELKZ15(1),
LTEX26a(40),
LTEX26b(40),

SELKZ16(1),
LTEX27a(40),
LTEX27b(40),

SELKZ17(1),
LTEX28a(40),
LTEX28b(40),

SELKZ18(1),
LTEX29a(40),
LTEX29b(40),

SELKZ19(1),
LTEX30a(40),
LTEX30b(40),

SELKZ20(1),
LTEX31a(40),
LTEX31b(40),

end of i_Hdr.

Data: begin of i_Item occurs 0,
EBELN(25),
EBELP(5),

EPSTP(1),
KNTTP(1),
EMATN(18),
TXZ01(40),
KTMNG(13),
MEINS(3),
NETPR(11),
PEINH(3),
BPRME(5),
OIINEX(2),
OIHANTYP(2),
MATKL(9),
WERKS(4),
LGORT(4),
KTMNG2(13),
MEINS2(3),
NETPR2(11),
PEINH2(5),
BPRME2(3),
ABMNG(13),
BPUMN(5),
BPUMZ(5),
SPINF(1),
MAHN1(3),
MAHN2(3),
MAHN3(3),
BSTAE(4),
LABNR(20),
KZABS(1),
BEDNR(10),
IDNLF(35),
PRSDR(1),
SCHPR(1),
UEBTO(3),
UEBTK(1),
UNTTO(3),
INSMK(1),
EVERS(2),
MWSKZ(2),
WEPOS(1),
WEUNB(1),
REPOS(1),
WEBRE(1),
PLIFZ(3),
WEBAZ(3),
KOLIF(10),
SAISO(4),
SAISJ(4),

NTGEW(13),
GEWEI(3),
WEBAZ2(3),
BRGEW(13),
VOLUM(13),
VOLEH(3),
NOTKZ(1),
EKKOL(4),
LTSNR(6),
MEPRF(1),
INCO1(3),
INCO2(28),
SKTOF(1),
AKTNR(10),
MHDRZ(4),
SSQSS(8),

SELKZ(1),
LTEX1a(40),
LTEX1b(40),
SELKZ1(1),
LTEX12a(40),
LTEX12b(40),
SELKZ2(1),
LTEX13a(40),
LTEX13b(40),
SELKZ3(1),
LTEX14a(40),
LTEX14b(40),

SELKZ4(1),
LTEX15a(40),
LTEX15b(40),

SELKZ5(1),
LTEX16a(40),
LTEX16b(40),

SELKZ6(1),
LTEX17a(40),
LTEX17b(40),

SELKZ7(1),
LTEX18a(40),
LTEX18b(40),

SELKZ8(1),
LTEX19a(40),
LTEX19b(40),

end of i_Item.

Data: begin of i_Item_Srv occurs 0,

EBELN(25),
EBELP(4),
WEPOS(1),
twrkz(4),
fmore(4),
"untuk A_A_K
ABLAD(25),
SAKTO(10),
GSBER(4),
KOKRS(4),
KOSTL(10),
AUFNR(12),
WEMPF(12),
"untuk A_A_A
VRTKZ(1),
MENGE(13),
SAKTO2(10),
GSBER2(4),
AUFNR2(12),
ANLN1(12),
ANLN2(4),
PS_PSP_P(24),
"untuk A_A_F
ABLAD2(25),
SAKTO3(10),
GSBER3(4),
KOKRS2(4),
KOSTL2(10),
AUFNR3(12),
WEMPF2(12),
NPLNR(12),
"untuk A_A_P
ABLAD3(25),
SAKTO4(10),
GSBER4(4),
KOKRS3(4),
PS_PSP_P2(24),
WEMPF3(12),
NPLNR2(12),
end of i_Item_Srv.

*----------------------------------------------------------------------*
* data definition
*----------------------------------------------------------------------*
* Batchinputdata of single transaction
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
* messages of call transaction
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
* error session opened (' ' or 'X')
DATA: E_GROUP_OPENED.
* message texts
TABLES: T100.

*-Declare Variables-
Data: wa_Hdr like i_Hdr,
wa_Item like i_Item,
wa_Item_Srv like i_Item_Srv,
iItem type i,
iServ type i,
v_nItem(5),
v_nServ(10).

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS SESSION RADIOBUTTON GROUP CTU. "create session
SELECTION-SCREEN COMMENT 3(20) TEXT-S07 FOR FIELD SESSION.
selection-screen position 45.
PARAMETERS CTU RADIOBUTTON GROUP CTU. "call transaction
SELECTION-SCREEN COMMENT 48(20) TEXT-S08 FOR FIELD CTU.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) TEXT-S01 FOR FIELD GROUP.
selection-screen position 25.
PARAMETERS GROUP(12). "group name of session
SELECTION-SCREEN COMMENT 48(20) TEXT-S05 FOR FIELD CTUMODE.
selection-screen position 70.
PARAMETERS CTUMODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N'.
"A: show all dynpros
"E: show dynpro on error only
"N: do not display dynpro
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) TEXT-S02 FOR FIELD USER.
selection-screen position 25.
PARAMETERS: USER(12) DEFAULT SY-UNAME. "user for session in batch
SELECTION-SCREEN COMMENT 48(20) TEXT-S06 FOR FIELD CUPDATE.
selection-screen position 70.
PARAMETERS CUPDATE LIKE CTU_PARAMS-UPDMODE DEFAULT 'L'.
"S: synchronously
"A: asynchronously
"L: local
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) TEXT-S03 FOR FIELD KEEP.
selection-screen position 25.
PARAMETERS: KEEP AS CHECKBOX. "' ' = delete session if finished
"'X' = keep session if finished
SELECTION-SCREEN COMMENT 48(20) TEXT-S09 FOR FIELD E_GROUP.
selection-screen position 70.
parameters E_GROUP(12). "group name of error-session
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(20) TEXT-S04 FOR FIELD HOLDDATE.
selection-screen position 25.
PARAMETERS: HOLDDATE LIKE SY-DATUM.
SELECTION-SCREEN COMMENT 51(17) TEXT-S02 FOR FIELD E_USER.
selection-screen position 70.
PARAMETERS: E_USER(12) DEFAULT SY-UNAME. "user for error-session
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 51(17) TEXT-S03 FOR FIELD E_KEEP.
selection-screen position 70.
PARAMETERS: E_KEEP AS CHECKBOX. "' ' = delete session if finished
"'X' = keep session if finished
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 51(17) TEXT-S04 FOR FIELD E_HDATE.
selection-screen position 70.
PARAMETERS: E_HDATE LIKE SY-DATUM.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) TEXT-S10 FOR FIELD NODATA.
PARAMETERS: NODATA DEFAULT '/' LOWER CASE. "nodata
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) FOR FIELD SMALLLOG.
PARAMETERS: SMALLLOG as checkbox. "' ' = log all transactions
"'X' = no transaction logging
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(23) TEXT-Z00 FOR FIELD P_HDRDAT.
PARAMETERS: P_HDRDAT like IBIPPARMS-PATH DEFAULT 'D:\The ToDo\Pertamina\Outline Agreement Data\header.txt'. " File Header data
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(23) TEXT-Z01 FOR FIELD P_ITMDAT.
PARAMETERS: P_ITMDAT like IBIPPARMS-PATH DEFAULT 'D:\The ToDo\Pertamina\Outline Agreement Data\item.txt'. " File Item data
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(23) TEXT-Z02 FOR FIELD P_SRVDAT.
PARAMETERS: P_SRVDAT like IBIPPARMS-PATH DEFAULT 'D:\The ToDo\Pertamina\Outline Agreement Data\itemdetail.txt'. " File Header data
SELECTION-SCREEN END OF LINE.

ME31 - Upload (part II)

2009-03-17T09:46:00.000-07:00

Here is the example of SAP Data Migration for T-Code : ME31 (REPORT zmi_upload_me31_F01)

FORM f_Upload_Data.

CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = P_HDRDAT
FILETYPE = 'DAT'
TABLES
DATA_TAB = i_Hdr.

CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = P_ITMDAT
FILETYPE = 'DAT'
TABLES
DATA_TAB = i_Item.

CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = P_SRVDAT
FILETYPE = 'DAT'
TABLES
DATA_TAB = i_Item_Srv.

Sort i_Hdr by Ebeln.
Sort i_Item by Ebeln Ebelp.
"Sort i_Item_Srv by Ebeln Ebelp Extrow. "---> dimatikan oleh L Haris

ENDFORM. " f_Upload_Data

*----------------------------------------------------------------------*
* at selection screen *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
* group and user must be filled for create session
IF SESSION = 'X' AND
GROUP = SPACE OR USER = SPACE.
MESSAGE E613(MS).
ENDIF.

*----------------------------------------------------------------------*
* open dataset *
*----------------------------------------------------------------------*
*FORM OPEN_DATASET USING P_DATASET.
* OPEN DATASET P_DATASET IN TEXT MODE.
* IF SY-SUBRC <> 0.
* WRITE: / TEXT-E00, SY-SUBRC.
* STOP.
* ENDIF.
*ENDFORM.

*----------------------------------------------------------------------*
* close dataset *
*----------------------------------------------------------------------*
*FORM CLOSE_DATASET USING P_DATASET.
* CLOSE DATASET P_DATASET.
*ENDFORM.

*----------------------------------------------------------------------*
* create batchinput session *
* (not for call transaction using...) *
*----------------------------------------------------------------------*
FORM OPEN_GROUP.
IF SESSION = 'X'.
SKIP.
WRITE: /(20) 'Create group'(I01), GROUP.
SKIP.
* open batchinput group
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING CLIENT = SY-MANDT
GROUP = GROUP
USER = USER
KEEP = KEEP
HOLDDATE = HOLDDATE.
WRITE: /(30) 'Open session'(I02),
(12) 'Return code ='(I05),
SY-SUBRC.
ENDIF.
ENDFORM.

*----------------------------------------------------------------------*
* end batchinput session *
* (call transaction using...: error session) *

FORM CLOSE_GROUP.
IF SESSION = 'X'.
* close batchinput group
CALL FUNCTION 'BDC_CLOSE_GROUP'.
WRITE: /(30) 'Close session'(I04),
(12) 'Return code ='(I05),
SY-SUBRC.
ELSE.
IF E_GROUP_OPENED = 'X'.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
WRITE: /.
WRITE: /(30) 'Error session created'(I06).
ENDIF.
ENDIF.
ENDFORM.

*----------------------------------------------------------------------*
* Start new transaction according to parameters *
*----------------------------------------------------------------------*
FORM BDC_TRANSACTION USING TCODE Like TSTC-TCODE.
DATA: L_MSTRING(480).
DATA: L_SUBRC LIKE SY-SUBRC.
* batch input session
IF SESSION = 'X'.
CALL FUNCTION 'BDC_INSERT'
EXPORTING TCODE = TCODE
TABLES DYNPROTAB = BDCDATA.
IF SMALLLOG <> 'X'.
WRITE: / 'Insert transaction'(I03),
TCODE,
'Return code ='(I05),
SY-SUBRC,
'RECORD:',
SY-INDEX.

ENDIF.
* call transaction using
ELSE.
REFRESH MESSTAB.
CALL TRANSACTION TCODE USING BDCDATA
MODE CTUMODE
UPDATE CUPDATE
MESSAGES INTO MESSTAB.
L_SUBRC = SY-SUBRC.
IF SMALLLOG <> 'X'.
WRITE: / 'CALL_TRANSACTION',
TCODE,
'Return code ='(I05),
L_SUBRC,
'RECORD:',
SY-INDEX.
LOOP AT MESSTAB.
SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA
AND ARBGB = MESSTAB-MSGID
AND MSGNR = MESSTAB-MSGNR.
IF SY-SUBRC = 0.
L_MSTRING = T100-TEXT.
IF L_MSTRING CS '&1'.
REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.
REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.
REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.
REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.
ELSE.

REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.
REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.
REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.
ENDIF.
CONDENSE L_MSTRING.
WRITE: / MESSTAB-MSGTYP, L_MSTRING(250).
ELSE.
WRITE: / MESSTAB.
ENDIF.
ENDLOOP.
SKIP.
ENDIF.
** Erzeugen fehlermappe ************************************************
IF L_SUBRC <> 0 AND E_GROUP <> SPACE.
IF E_GROUP_OPENED = ' '.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING CLIENT = SY-MANDT
GROUP = E_GROUP
USER = E_USER
KEEP = E_KEEP
HOLDDATE = E_HDATE.
E_GROUP_OPENED = 'X'.
ENDIF.
CALL FUNCTION 'BDC_INSERT'
EXPORTING TCODE = TCODE
TABLES DYNPROTAB = BDCDATA.
ENDIF.
ENDIF.
REFRESH BDCDATA.
ENDFORM.

*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.

*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> NODATA.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDIF.
ENDFORM.

*----------------------------------------------------------------------*
* Get Directory and Filename *
*----------------------------------------------------------------------*
FORM F_F4_FILENAME CHANGING p_filnam like IBIPPARMS-PATH.

CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
IMPORTING
FILE_NAME = p_filnam.

ENDFORM.

ME31 - Upload (part I)

2009-03-17T09:41:00.000-07:00

Here is the example of SAP Data Migration for T-Code : ME31

REPORT zmi_upload_me31
NO STANDARD PAGE HEADING
LINE-SIZE 255.

INCLUDE zmi_upload_me31_top.
INCLUDE zmi_upload_me31_f01.

************************************************************************
* Event for Value Request
************************************************************************
* Get File Name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_hdrdat.
PERFORM f_f4_filename CHANGING p_hdrdat.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_itmdat.
PERFORM f_f4_filename CHANGING p_itmdat.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_srvdat.
PERFORM f_f4_filename CHANGING p_srvdat.

START-OF-SELECTION.

PERFORM f_upload_data.
PERFORM open_group.

LOOP AT i_hdr INTO wa_hdr.

"----------------------------Create Header------------------------------------------------
PERFORM POST_HEADER_DATA.
"PERFORM HEADER_TEXT.
*-------------------------End of create Header------------------------------------

*------------------------Contract Item Overview------------------------------------
CLEAR: iitem.
LOOP AT i_item INTO wa_item
WHERE ebeln = wa_hdr-ebeln.

v_nitem = iitem * 10. " for item : 10 v_nitem = iitem * 10.
iitem = iitem + 1.

IF iitem = 1.
PERFORM CONTRACT_OVERVIEW.
ELSE.
PERFORM CONTRACT_OVERVIEW_END.
ENDIF.
*-------------------------------------------------------------------------------------
LOOP AT i_item_srv INTO wa_item_srv
WHERE ebeln = wa_item-ebeln AND
ebelp = wa_item-ebelp.

IF wa_item-knttp = 'A'.
PERFORM ACCOUNT_A_A.
ELSEIF wa_item-knttp = 'F'.
PERFORM ACCOUNT_A_F.
ELSEIF wa_item-knttp = 'K'.
PERFORM ACCOUNT_A_K.
ELSEIF wa_item-knttp = 'P'.
PERFORM ACCOUNT_A_P.
ENDIF.
ENDLOOP.

PERFORM ITEM_TEXT.

"-----------End of Account Assignment--------------------------------------

ENDLOOP.
perform bdc_dynpro using 'SAPMM06E' '0220'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-EBELP'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'RM06E-EBELP'
'10'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.

perform bdc_transaction using 'ME31'.
ENDLOOP.

PERFORM close_group.

FORM POST_HEADER_DATA .

perform bdc_dynpro using 'SAPMM06E' '0200'.
perform bdc_field using 'BDC_CURSOR'
'EKKO-LIFNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'EKKO-LIFNR'
wa_hdr-lifnr.
perform bdc_field using 'RM06E-EVART'
wa_hdr-bsart.
perform bdc_field using 'RM06E-VEDAT'
wa_hdr-bedat.
perform bdc_field using 'EKKO-EKORG'
wa_hdr-ekorg.
perform bdc_field using 'EKKO-EKGRP'
wa_hdr-ekgrp.
perform bdc_dynpro using 'SAPMM06E' '0201'.
perform bdc_field using 'BDC_CURSOR'
'EKKO-KTWRT'.
perform bdc_field using 'BDC_OKCODE'
'=TXK'.
perform bdc_field using 'EKKO-EKGRP'
wa_hdr-ekgrp.
perform bdc_field using 'EKKO-PINCR'
wa_hdr-pincr.
perform bdc_field using 'EKKO-UPINC'
wa_hdr-upinc.
perform bdc_field using 'EKKO-KDATB'
wa_hdr-kdatb.
perform bdc_field using 'EKKO-KDATE'
wa_hdr-kdate.
perform bdc_field using 'EKKO-SPRAS'
wa_hdr-spras.
perform bdc_field using 'EKKO-ZTERM'
wa_hdr-zterm.
perform bdc_field using 'EKKO-KTWRT'
wa_hdr-ktwrt.
perform bdc_field using 'EKKO-WAERS'
wa_hdr-waers.
perform bdc_field using 'EKKO-ZBD1T'
wa_hdr-zbd1t.
perform bdc_field using 'EKKO-ZBD2T'
wa_hdr-zbd2t.
perform bdc_field using 'EKKO-ZBD3T'
wa_hdr-zbd3t.

perform bdc_field using 'EKKO-WKURS'
wa_hdr-wkurs.
perform bdc_field using 'EKKO-VERKF'
wa_hdr-verkf.
perform bdc_field using 'EKKO-TELF1'
wa_hdr-telf1.
PERFORM HEADER_TEXT.

ENDFORM.

FORM CONTRACT_OVERVIEW.

perform bdc_dynpro using 'SAPMM06E' '0220'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-EVRTP(01)'.
perform bdc_field using 'BDC_OKCODE'
'=DETA'.
perform bdc_field using 'RM06E-TCSELFLAG(01)'
'X'.
perform bdc_field using 'EKPO-KNTTP(01)'
wa_item-knttp.
perform bdc_field using 'EKPO-EMATN(01)'
wa_item-ematn.
perform bdc_field using 'EKPO-NETPR(01)'
wa_item-netpr.
perform bdc_dynpro using 'SAPMM06E' '0211'.
perform bdc_field using 'BDC_CURSOR'
'EKPO-MWSKZ'.
perform bdc_field using 'BDC_OKCODE'
'=KN'.
perform bdc_field using 'EKPO-KNTTP'
wa_item-knttp.
perform bdc_field using 'EKPO-TXZ01'
wa_item-txz01.
perform bdc_field using 'EKPO-ABMNG'
wa_item-abmng.
perform bdc_field using 'EKPO-NETPR'
wa_item-netpr.
perform bdc_field using 'EKPO-PEINH'
wa_item-peinh.
perform bdc_field using 'EKPO-BPRME'
wa_item-bprme..
perform bdc_field using 'EKPO-BPUMN'
wa_item-bpumn.
perform bdc_field using 'EKPO-BPUMZ'
wa_item-bpumz.
perform bdc_field using 'EKPO-PRSDR'
wa_item-prsdr.
perform bdc_field using 'EKPO-WEPOS'
wa_item-wepos.
perform bdc_field using 'EKPO-MWSKZ'
wa_item-mwskz.
perform bdc_field using 'EKPO-REPOS'
wa_item-repos.
perform bdc_field using 'EKPO-WEBRE'
wa_item-webre.

ENDFORM.

FORM CONTRACT_OVERVIEW_END.

PERFORM bdc_dynpro USING 'SAPMM06E' '0220'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RM06E-EBELP'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RM06E-EBELP'
v_nitem.

perform bdc_dynpro using 'SAPMM06E' '0220'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-EVRTP(02)'.
perform bdc_field using 'BDC_OKCODE'
'=DETA'.
perform bdc_field using 'RM06E-TCSELFLAG(02)'
'X'.
perform bdc_field using 'EKPO-KNTTP(02)'
wa_item-knttp.
perform bdc_field using 'EKPO-EMATN(02)'
wa_item-ematn.
perform bdc_field using 'EKPO-NETPR(02)'
wa_item-netpr.
perform bdc_dynpro using 'SAPMM06E' '0211'.
perform bdc_field using 'BDC_CURSOR'
'EKPO-MWSKZ'.
perform bdc_field using 'BDC_OKCODE'
'=KN'.
perform bdc_field using 'EKPO-KNTTP'
wa_item-knttp.
perform bdc_field using 'EKPO-TXZ01'
wa_item-txz01.
perform bdc_field using 'EKPO-ABMNG'
wa_item-abmng.
perform bdc_field using 'EKPO-NETPR'
wa_item-netpr.
perform bdc_field using 'EKPO-PEINH'
wa_item-peinh.
perform bdc_field using 'EKPO-BPRME'
wa_item-bprme..
perform bdc_field using 'EKPO-BPUMN'
wa_item-bpumn.
perform bdc_field using 'EKPO-BPUMZ'
wa_item-bpumz.
perform bdc_field using 'EKPO-PRSDR'
wa_item-prsdr.
perform bdc_field using 'EKPO-WEPOS'
wa_item-wepos.
perform bdc_field using 'EKPO-MWSKZ'
wa_item-mwskz.
perform bdc_field using 'EKPO-REPOS'
wa_item-repos.
perform bdc_field using 'EKPO-WEBRE'
wa_item-webre.

ENDFORM.

FORM ACCOUNT_A_A.

perform bdc_dynpro using 'SAPMM06E' '0113'.
perform bdc_field using 'BDC_CURSOR'
'EKKN-ANLN1(01)'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'EKPO-WEPOS'
wa_item_srv-wepos.
perform bdc_field using 'EKPO-VRTKZ'
wa_item_srv-vrtkz.
perform bdc_field using 'EKPO-TWRKZ'
wa_item_srv-twrkz.
perform bdc_field using 'EKKN-ANLN1(01)'
wa_item_srv-anln1.

perform bdc_dynpro using 'SAPMM06E' '0113'.
perform bdc_field using 'BDC_CURSOR'
'EKPO-VRTKZ'.
perform bdc_field using 'BDC_OKCODE'
'=NEXP'.
perform bdc_field using 'EKPO-WEPOS'
wa_item_srv-wepos.
perform bdc_field using 'EKPO-VRTKZ'
wa_item_srv-vrtkz.
perform bdc_field using 'EKPO-TWRKZ'
wa_item_srv-twrkz.
perform bdc_dynpro using 'SAPMM06E' '0113'.
perform bdc_field using 'BDC_CURSOR'
'EKPO-VRTKZ'.
perform bdc_field using 'BDC_OKCODE'
'=NEXP'.
perform bdc_field using 'EKPO-WEPOS'
wa_item_srv-wepos.

ENDFORM.

FORM ACCOUNT_A_F.

perform bdc_dynpro using 'SAPMM06E' '0511'.
perform bdc_field using 'BDC_CURSOR'
'EKKN-SAKTO'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'EKKN-SAKTO'
wa_item_srv-sakto.
perform bdc_field using 'DKACB-FMORE'
'X'.
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_CURSOR'
'COBL-AUFNR'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'COBL-KOSTL'
wa_item_srv-kostl.
perform bdc_field using 'COBL-AUFNR'
wa_item_srv-aufnr.

ENDFORM.

FORM ACCOUNT_A_K.

perform bdc_dynpro using 'SAPMM06E' '0511'.
perform bdc_field using 'BDC_CURSOR'
'EKKN-WEMPF'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'EKKN-SAKTO'
wa_item_srv-sakto.
perform bdc_field using 'EKKN-ABLAD'
wa_item_srv-ablad.
perform bdc_field using 'EKKN-WEMPF'
wa_item_srv-wempf.

*Create Contract Account Assignment Jika K
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_CURSOR'
'COBL-KOSTL'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'COBL-KOSTL'
wa_item_srv-kostl.

ENDFORM.

FORM ACCOUNT_A_P.

perform bdc_dynpro using 'SAPMM06E' '0511'.
perform bdc_field using 'BDC_CURSOR'
'EKKN-WEMPF'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'EKKN-SAKTO'
wa_item_srv-sakto.
perform bdc_field using 'EKKN-ABLAD'
wa_item_srv-ablad.
perform bdc_field using 'EKKN-WEMPF'
wa_item_srv-wempf.
perform bdc_field using 'DKACB-FMORE'
'X'.
perform bdc_dynpro using 'SAPLKACB' '0002'.
perform bdc_field using 'BDC_CURSOR'
'COBL-PS_POSID'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'COBL-PS_POSID'
wa_item_srv-PS_PSP_P.

ENDFORM.

FORM HEADER_TEXT.

perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ1.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ2.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ3.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX1a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX12a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX13a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX14a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX1b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX12b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX13b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX14b.
perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ4.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ5.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ6.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ7.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX15a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX16a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX17a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX18a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX15b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX16b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX17b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX18b.
perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ8.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ9.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ10.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ11.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX19a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX20a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX21a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX22a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX19b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX20b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX21b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX22b.
perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ12.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ13.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ14.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ15.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX23a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX24a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX25a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX26a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX23b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX24b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX25b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX26b.
perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ16.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ17.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ18.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ19.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX27a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX28a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX29a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX30a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX27b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX28b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX29b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX30b.
perform bdc_dynpro using 'SAPMM06E' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(01)'.
perform bdc_field using 'BDC_OKCODE'
'=KOPF'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ20.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX31a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX31b.

perform bdc_field using 'BDC_OKCODE'
'=BACK'.

ENDFORM.

FORM ITEM_TEXT.
"------------------------item text--------------------------------------
perform bdc_dynpro using 'SAPMM06E' '0211'.
perform bdc_dynpro using 'SAPMM06E' '0220'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-EVRTP(01)'.
perform bdc_field using 'BDC_OKCODE'
'=TXP'.
perform bdc_field using 'RM06E-EBELP'
'10'.
perform bdc_field using 'RM06E-TCSELFLAG(01)'
'X'.

perform bdc_dynpro using 'SAPMM06E' '0106'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ1.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ2.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ3.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX1a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX12a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX13a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX14a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX1b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX12b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX13b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX14b.
perform bdc_dynpro using 'SAPMM06E' '0106'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(04)'.
perform bdc_field using 'BDC_OKCODE'
'=VW'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ4.
perform bdc_field using 'RM06E-SELKZ(02)'
wa_hdr-SELKZ5.
perform bdc_field using 'RM06E-SELKZ(03)'
wa_hdr-SELKZ6.
perform bdc_field using 'RM06E-SELKZ(04)'
wa_hdr-SELKZ7.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX15a.
perform bdc_field using 'RM06E-LTEX1(02)'
wa_hdr-LTEX16a.
perform bdc_field using 'RM06E-LTEX1(03)'
wa_hdr-LTEX17a.
perform bdc_field using 'RM06E-LTEX1(04)'
wa_hdr-LTEX18a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX15b.
perform bdc_field using 'RM06E-LTEX2(02)'
wa_hdr-LTEX16b.
perform bdc_field using 'RM06E-LTEX2(03)'
wa_hdr-LTEX17b.
perform bdc_field using 'RM06E-LTEX2(04)'
wa_hdr-LTEX18b.

perform bdc_dynpro using 'SAPMM06E' '0106'.
perform bdc_field using 'BDC_CURSOR'
'RM06E-LTEX2(01)'.
perform bdc_field using 'BDC_OKCODE'
'=NEXP'.
perform bdc_field using 'RM06E-SELKZ(01)'
wa_hdr-SELKZ8.
perform bdc_field using 'RM06E-LTEX1(01)'
wa_hdr-LTEX19a.
perform bdc_field using 'RM06E-LTEX2(01)'
wa_hdr-LTEX19b.

"--------------------------------------------end of item text-----------------
ENDFORM.

Maintenance Plan - Upload

2009-03-17T05:19:00.000-07:00

Here the example of SAP LSMW for Maintenance Plan Upload.

Objeck Attributes :

Source Fields :

Source Fields

MAINTENANCE_PLAN Maintenance Plan

WARPL C(012) Maintenance Plan Number
MPTYP C(002) Maintenace Plan Category
STRAT C(006) Strategy
WPTXT C(040) Maintenance Plan Descr
NUMMER N(002) Counter
WAPOS C(016) Maintenance Item
PSTXT C(040) Maintence Item Descr
TPLNR C(030) Functional Location
EQUNR C(018) Equipment
IWERK C(004) Planning Plant
AUART C(004) Order / Notification type
GEWRK C(008) Main Work Center
PRIOK C(001) Priority
WPGRP C(003) Planner Group
ILART C(003) Maintenance Activity Type
PLNTY C(001) Task list type
PLNNR C(008) Key for task list group
PLNAL C(002) Group Counter
VSPOS C(003) Shift factor in the event of a late confirmation
TOPOS C(003) Tolerance in the case of late confirmation (%)
VSNEG C(003) Shift factor in the event of an early confirmation
TONEG C(003) Tolerance in the case of early confirmation (%)
HORIZ N(003) Call Horizon
ABRHO N(003) Scheduling period
HUNIT C(003) Unit in scheduling interval
COMPLETION C(001) Completion Requirement
SZAEH C(022) Start of Cycle/Counter
STICH C(001) Scheduling Indicator time
PLAN_SORT C(020) Sort field for maintenance plans

Structure Relations :

Structure Relations
|
--- IBIPMPLA IBIP: Maintenance Plan MAINTENANCE_PLAN Maintenance Plan
| Select Target Structure IBIPMPLA .
|
--- IBIPMPOS IBIP: Maintenance Item MAINTENANCE_PLAN Maintenance Plan
|
|-----IBIPTEXT IBIP: Long text line MAINTENANCE_PLAN Maintenance Plan
|-----IBIPOLST IBIP: Objectlist MAINTENANCE_PLAN Maintenance Plan
------IBIPBDCD IBIP: Direct BDCDATA: formatted BDCDATA: expert use only

Field Mapping :

Field Mapping and Rule

IBIPMPLA IBIP: Maintenance Plan

Fields

WARPL Maintenance Plan
Source: MAINTENANCE_PLAN-WARPL (Maintenance Plan Number)
Rule : Transfer (MOVE)
Code: IBIPMPLA-WARPL = MAINTENANCE_PLAN-WARPL.
MPTYP Maintenance plan category
Source: MAINTENANCE_PLAN-MPTYP (Maintenace Plan Category)
Rule : Transfer (MOVE)
Code: IBIPMPLA-MPTYP = MAINTENANCE_PLAN-MPTYP.
WSTRA Maintenance strategy
Rule : Transfer (MOVE)
Code: IBIPMPLA-WSTRA = MAINTENANCE_PLAN-STRAT.
MEHRFACH_Z Multiple counter plan
WSET Cycle set for multiple counter plan
ZYKL1 Maintenance cycle
ZEIEH Unit for the performance of maintenance tasks
POINT Measuring Point
OFFS1 Maintenance package offset
PAK_TEXT Text for maintenance package/cycle (time/performance)
WPTXT Maintenance Plan Text
Source: MAINTENANCE_PLAN-WPTXT (Maintenance Plan Descr)
Rule : Transfer (MOVE)
Code: IBIPMPLA-WPTXT = MAINTENANCE_PLAN-WPTXT.
PLAN_SORT Sort field for maintenance plans
Source: MAINTENANCE_PLAN-PLAN_SORT (Sort field for maintenance plans)
Rule : Transfer (MOVE)
Code: IBIPMPLA-PLAN_SORT = MAINTENANCE_PLAN-PLAN_SORT.
BEGRU Technical object authorization group
VSPOS Shift Factor for Late Completion
Source: MAINTENANCE_PLAN-VSPOS (Shift factor in the event of a late conf
Rule : Transfer (MOVE)
Code: IBIPMPLA-VSPOS = MAINTENANCE_PLAN-VSPOS.
VSNEG Shift Factor for Early Completion
Source: MAINTENANCE_PLAN-VSNEG (Shift factor in the event of an early co
Rule : Transfer (MOVE)
Code: IBIPMPLA-VSNEG = MAINTENANCE_PLAN-VSNEG.
TOPOS Tolerance for Late Completion (%)
Source: MAINTENANCE_PLAN-TOPOS (Tolerance in the case of late confirmati
Rule : Transfer (MOVE)
Code: IBIPMPLA-TOPOS = MAINTENANCE_PLAN-TOPOS.
TONEG Tolerance for Early Completion (%)
Source: MAINTENANCE_PLAN-TONEG (Tolerance in the case of early confirmat
Rule : Transfer (MOVE)
Code: IBIPMPLA-TONEG = MAINTENANCE_PLAN-TONEG.
SFAKT IBIP: Cycle Modification Factor
STICH Scheduling indicator
Source: MAINTENANCE_PLAN-STICH (Scheduling Indicator time)
Rule : Transfer (MOVE)
Code: IBIPMPLA-STICH = MAINTENANCE_PLAN-STICH.
FABKL Factory calendar key
ABRHO Scheduling Period
Source: MAINTENANCE_PLAN-ABRHO (Scheduling period)
Rule : Transfer (MOVE)
Code: IBIPMPLA-ABRHO = MAINTENANCE_PLAN-ABRHO.
HUNIT Unit in scheduling interval
Source: MAINTENANCE_PLAN-HUNIT (Unit in scheduling interval)
Rule : Transfer (MOVE)
Code: IBIPMPLA-HUNIT = MAINTENANCE_PLAN-HUNIT.
HORIZ Call horizon for maintenance plan calls
Source: MAINTENANCE_PLAN-HORIZ (Call Horizon)
Rule : Transfer (MOVE)
Code: IBIPMPLA-HORIZ = MAINTENANCE_PLAN-HORIZ.
CALL_CONFIRM Only Create New Call Object After Completing Predecessor
Source: MAINTENANCE_PLAN-COMPLETION (Completion Requirement)
Rule : Transfer (MOVE)
Code: IBIPMPLA-CALL_CONFIRM = MAINTENANCE_PLAN-COMPLETION.
STADT Start date
SZAEH Start counter reading
Source: MAINTENANCE_PLAN-SZAEH (Start of Cycle/Counter)
Rule : Transfer (MOVE)
Code: IBIPMPLA-SZAEH = MAINTENANCE_PLAN-SZAEH.

IBIP: Maintenance Item

Fields

TCODE Transaction Code
WAPOS Maintenance item
MPTYP Maintenance plan category
Source: MAINTENANCE_PLAN-MPTYP (Maintenace Plan Category)
Rule : Transfer (MOVE)
Code: IBIPMPOS-MPTYP = MAINTENANCE_PLAN-MPTYP.
WSTRA Maintenance strategy
PSTXT Item Short Text
Source: MAINTENANCE_PLAN-PSTXT (Maintence Item Descr)
Rule : Transfer (MOVE)
Code: IBIPMPOS-PSTXT = MAINTENANCE_PLAN-PSTXT.
TPLNR Functional Location
Source: MAINTENANCE_PLAN-TPLNR (Functional Location)
Rule : Transfer (MOVE)
Code: IBIPMPOS-TPLNR = MAINTENANCE_PLAN-TPLNR.
EQUNR Equipment Number
Source: MAINTENANCE_PLAN-EQUNR (Equipment)
Rule : Transfer (MOVE)
Code: IBIPMPOS-EQUNR = MAINTENANCE_PLAN-EQUNR.
BAUTL Assembly
MATNR Material Number
SERIALNR Serial number
DEVICEID Additional Device Data
IWERK Maintenance Planning Plant
Source: MAINTENANCE_PLAN-IWERK (Planning Plant)
Rule : Transfer (MOVE)
Code: IBIPMPOS-IWERK = MAINTENANCE_PLAN-IWERK.
WPGRP Planner Group for Customer Service and Plant Maintenance
Source: MAINTENANCE_PLAN-WPGRP (Planner Group)
Rule : Transfer (MOVE)
Code: IBIPMPOS-WPGRP = MAINTENANCE_PLAN-WPGRP.
AUART Order Type
Source: MAINTENANCE_PLAN-AUART (Order / Notification type)
Rule : Transfer (MOVE)
Code: IBIPMPOS-AUART = MAINTENANCE_PLAN-AUART.
ILART Maintenance activity type
Source: MAINTENANCE_PLAN-ILART (Maintenance Activity Type)
Rule : Transfer (MOVE)
Code: IBIPMPOS-ILART = MAINTENANCE_PLAN-ILART.
GEWERK Main work center for maintenance tasks
WERGW Plant associated with main work center
GSBER Business Area
PLNTY Task List Type
Source: MAINTENANCE_PLAN-PLNTY (Task list type)
Rule : Transfer (MOVE)
Code: IBIPMPOS-PLNTY = MAINTENANCE_PLAN-PLNTY.
PLNNR Key for Task List Group
Source: MAINTENANCE_PLAN-PLNNR (Key for task list group)
Rule : Transfer (MOVE)
Code: IBIPMPOS-PLNNR = MAINTENANCE_PLAN-PLNNR.
PLNAL Group Counter
Source: MAINTENANCE_PLAN-PLNAL (Group Counter)
Rule : Transfer (MOVE)
Code: IBIPMPOS-PLNAL = MAINTENANCE_PLAN-PLNAL.
APFKT Execution Factor
ANLZU Syst.Condition
QMART Notification Type
PRIOK Priority
Source: MAINTENANCE_PLAN-PRIOK (Priority)
Rule : Transfer (MOVE)
Code: IBIPMPOS-PRIOK = MAINTENANCE_PLAN-PRIOK.
TASK_DETERMINE Automatic task determination in the notification
KDAUF Sales Order Number
KDPOS Item Number in Sales Order
BSTNR Purchase Order Number
BSTPO Purchase Order Item Number
SAKTO Cost element
PHYNR Physical Sample Number
ART Inspection Type
PRUEFLOS Inspection Lot Number
STRNO Functional location label

IBIPTEXT

Fields

TCODE IBIP:TCode (Only Entered in Header Record, Otherwise Space)
TXPARGRAPH Tag column
TXLINE Text editor text line
TEXT_MARK Description Indicator for RIIBIP00 (IBIP) Processing

IBIPOLST

Fields

TCODE Transaction Code
SORTF Object list sort field
TPLNR Functional Location
MAINTENANCE_PLAN-TPLNR (Functional Location)
Transfer (MOVE)
IBIPOLST-TPLNR = MAINTENANCE_PLAN-TPLNR.
EQUNR Equipment Number
MAINTENANCE_PLAN-EQUNR (Equipment)
Transfer (MOVE)
IBIPOLST-EQUNR = MAINTENANCE_PLAN-EQUNR.
BAUTL Assembly
SERNR Serial number
MATNR Material Number
STRNO Functional location label

Material BOM - Upload

2009-03-17T05:16:00.000-07:00

Here is the example of SAP Data Migration for Material BOM T-Code : MM01

REPORT ZMATBOM.

DATA:BEGIN OF gw_get_data OCCURS 0 ,
dummy TYPE string ,
Parent_Material TYPE string , " Parent Material
Plant TYPE string , " Plant
BOM_Usage TYPE string , " BOM Usage
Alternative_BOM TYPE string , " Alternative BOM
*### 1.1 ADD START
Valid_From TYPE string , " Varid From
*### 1.1 ADD END
Item_Category TYPE string , " Item Category
Child_Material TYPE string , " Component
Quantity TYPE string , " Quantity
*### 1.1 ADD START
UnitOfMeasure TYPE string , " Unit of Measure
*### 1.1 ADD END
Storage_Location TYPE string , " Production Storage Location
* Adding special procurement value (tab basic data in CS01)
* Special_Procurement TYPE string, " Special Procurement
* Adding End
END OF gw_get_data .

DATA:BEGIN OF gw_bi_data ,
dummy(256) TYPE c ,
Parent_Material TYPE matnr , " Parent Material
Plant TYPE werks_d , " Plant
BOM_Usage TYPE stlan , " BOM Usage
Alternative_BOM TYPE stalt , " Alternative BOM
*### 1.1 ADD START
Valid_From TYPE datuv , " Valid From
*### 1.1 ADD END
Item_Category TYPE postp , " Item Category
Child_Material TYPE idnrk , " Component
Quantity TYPE kmpmg , " Quantity
*### 1.1 ADD START
UnitOfMeasure TYPE kmpme , " Unit of Measure
*### 1.1 ADD END
CostingRelevncy TYPE ck_selkz , " CostingRelevncy
Storage_Location TYPE cslgo , " Production Storage Location
* Adding special procurement value (tab basic data in CS01)
Special_Procurement TYPE cs_sobsl, " Special Procurement
* Adding End
END OF gw_bi_data .

DATA: BEGIN OF gw_msg OCCURS 0 ,
c_type(1) TYPE c ,
c_msg(256) TYPE c ,
END OF gw_msg.

DATA: BEGIN OF gw_data_count ,
p_input TYPE p ,
p_error TYPE p ,
END OF gw_data_count.
*=====================================================================
* Selection Screen
*=====================================================================
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECTION-SCREEN SKIP 1.
PARAMETERS: p_filen1 LIKE rlgrap-filename .
SELECTION-SCREEN PUSHBUTTON 81(10) TEXT-I01 USER-COMMAND choose1.
SELECTION-SCREEN SKIP 1.
PARAMETERS: p_mode LIKE ctu_params-dismode DEFAULT 'A'.
SELECTION-SCREEN SKIP 1.
PARAMETERS: p_test TYPE c AS CHECKBOX .
SELECTION-SCREEN END OF BLOCK b1.
*=====================================================================
* initialization
*=====================================================================
INITIALIZATION.
*=====================================================================
* Selection screen
*=====================================================================
AT SELECTION-SCREEN.
DATA: lt_file_name TYPE filetable ,
lt_file TYPE file_table ,
li_rc TYPE i ,
li_action TYPE i .

CASE SY-UCOMM.
WHEN 'CHOOSE1'.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
* EXPORTING
* WINDOW_TITLE =
* DEFAULT_EXTENSION =
* DEFAULT_FILE_NAME =
* FILE_FILTER =
* INITIAL_DIRECTORY =
* MULTISELECTION =
* PROMPT_ON_OVERWRITE =
* WITH_ENCODING =
CHANGING
FILE_TABLE = lt_file_name
RC = li_rc
USER_ACTION = li_action
* FILE_ENCODING =
.

IF li_action = 0.
LOOP AT lt_file_name INTO lt_file.
p_filen1 = lt_file.
EXIT.
ENDLOOP.
ENDIF.

EXIT.
WHEN OTHERS.
ENDCASE.

IF p_filen1 IS INITIAL.
"MESSAGE 'Input File Name is mandatory' TYPE 'E'.

EXIT.
ENDIF.
*=====================================================================
* Start of selection
*=====================================================================
START-OF-SELECTION.
DATA: lc_work TYPE STRING ,
lc_input TYPE STRING ,
lc_error TYPE STRING ,
lc_file TYPE STRING .

lc_file = p_filen1.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = lc_file
HAS_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = gw_get_data
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.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON .
WRITE :/001 'Failed to open file'.

EXIT.
ENDIF.

gw_data_count-p_input = 0.
gw_data_count-p_error = 0.

"*--------------------
"* Batch Input
"*--------------------
PERFORM batch_input.

SKIP 1.
LOOP AT gw_msg.
AT FIRST.
lc_input = gw_data_count-p_input.
lc_error = gw_data_count-p_error.

CONCATENATE 'Input:' lc_input
'/ error:' lc_error
INTO lc_work.
WRITE:/ lc_work .
SKIP 1.
ENDAT.

FORMAT RESET.

IF gw_msg-c_type = 'E'.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON .
ELSEIF gw_msg-c_type = 'W'.
FORMAT COLOR COL_TOTAL INTENSIFIED ON .
ELSEIF gw_msg-c_type = 'I'.
FORMAT COLOR COL_TOTAL INTENSIFIED ON .
ENDIF.

IF gw_msg-c_msg IS INITIAL.
SKIP 1.
ELSE.
WRITE:/ gw_msg-c_msg.
ENDIF.
ENDLOOP.
END-OF-SELECTION.

*--------------------------------------------------------------------*
* Batch Input
*--------------------------------------------------------------------*
FORM batch_input.

DATA: lt_bdcdata LIKE bdcdata OCCURS 0 ,
lt_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE ,
lt_ctu_params LIKE ctu_params VALUE 'NSA XXX' .

DATA: lc_qunt(38) TYPE c ,
lc_date(10) TYPE c ,
ld_date TYPE d ,
lt_index TYPE syindex .

lt_ctu_params-dismode = p_mode.

LOOP AT gw_get_data
WHERE dummy = '' .
" ???????
* gw_bi_data-Alternative_BOM = '' .
*### 1.1 DEL START
* gw_bi_data-Valid_From = '20040101'.
*### 1.1 DEL END
gw_bi_data-CostingRelevncy = 'X' .

MOVE-CORRESPONDING gw_get_data TO gw_bi_data.

IF gw_bi_data-Alternative_BOM IS INITIAL .
gw_bi_data-Alternative_BOM = '1'.
ENDIF.

*### 1.2 DEL START
* AT NEW Parent_Material.
*### 1.2 DEL END
*### 1.2 ADD START
AT NEW Alternative_BOM.
*### 1.2 ADD END
CLEAR: lt_bdcdata,lt_messtab.
REFRESH: lt_bdcdata,lt_messtab.

lt_index = 1.

PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '0100' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/00' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29N-MATNR' gw_bi_data-Parent_Material .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29N-WERKS' gw_bi_data-Plant .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29N-STLAN' gw_bi_data-BOM_Usage .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29N-STLAL' gw_bi_data-Alternative_BOM .

ld_date = gw_bi_data-Valid_From.
WRITE ld_date TO lc_date .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29N-DATUV' lc_date .
ENDAT.

PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=ERFA' .

IF lt_index = 1 .
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/00' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-POSTP(1)' gw_bi_data-Item_Category .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-IDNRK(1)' gw_bi_data-Child_Material .

lc_qunt = gw_bi_data-Quantity.
CONDENSE lc_qunt NO-GAPS .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-MENGE(1)' lc_qunt .
*### 1.1 ADD START
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-MEINS(1)' gw_bi_data-UnitOfMeasure.
*### 1.1 ADD END
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=PALL' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-AUSKZ(1)' 'X' .

ELSE.
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/00' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-POSTP(2)' gw_bi_data-Item_Category .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-IDNRK(2)' gw_bi_data-Child_Material .

lc_qunt = gw_bi_data-Quantity.
CONDENSE lc_qunt NO-GAPS .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-MENGE(2)' lc_qunt .
*### 1.1 ADD START
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-MEINS(2)' gw_bi_data-UnitOfMeasure.
*### 1.1 ADD END
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=PALL' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-AUSKZ(2)' 'X' .
ENDIF.

PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2130' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=PDAT' .
* Adding special procurement value (tab basic data in CS01)
* PERFORM set_bdc_data TABLES lt_bdcdata
* USING 'RC29P-ITSOB' gw_bi_data-Special_Procurement.
* Adding End
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2130' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/00' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-SANKA' gw_bi_data-CostingRelevncy .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'RC29P-LGORT' gw_bi_data-Storage_Location .
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2130' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/EBACK' .

lt_index = lt_index + 1.

*### 1.2 DEL START
* AT END OF Parent_Material.
*### 1.2 DEL END
*### 1.2 ADD START
AT END OF Alternative_BOM..
*### 1.2 ADD END
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLCSDI' '2150' .
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '/EBACK' .
PERFORM set_bdc_dynpro TABLES lt_bdcdata
USING 'SAPLSPO1' '0100' .

IF p_test = 'X'.
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=NO' .
ELSE.
PERFORM set_bdc_data TABLES lt_bdcdata
USING 'BDC_OKCODE' '=YES' .
ENDIF.

CALL TRANSACTION 'CS01' USING lt_bdcdata
OPTIONS FROM lt_ctu_params MESSAGES INTO lt_messtab.

gw_data_count-p_input = gw_data_count-p_input + 1.

IF SY-SUBRC <> 0.
gw_data_count-p_error = gw_data_count-p_error + 1.
gw_msg-c_type = 'E'.
ENDIF.

LOOP AT lt_messtab.
MESSAGE ID lt_messtab-msgid
TYPE 'I'
NUMBER lt_messtab-msgnr
WITH lt_messtab-msgv1
lt_messtab-msgv2
lt_messtab-msgv3
lt_messtab-msgv4
INTO gw_msg-c_msg.

CONCATENATE gw_bi_data-Parent_Material ':' gw_msg-c_msg
INTO gw_msg-c_msg.
APPEND gw_msg.
ENDLOOP.

CLEAR: gw_msg.
APPEND gw_msg.
ENDAT.

ENDLOOP.
ENDFORM.

*--------------------------------------------------------------------*
* Batch Input Dynpro Designation *
*--------------------------------------------------------------------*
FORM set_bdc_dynpro
TABLES pw_bdcdata STRUCTURE bdcdata
USING pc_program LIKE bdcdata-program
pt_dynpro LIKE bdcdata-dynpro .

CLEAR pw_bdcdata.

pw_bdcdata-program = pc_program.
pw_bdcdata-dynpro = pt_dynpro .
pw_bdcdata-dynbegin = 'X'.

APPEND pw_bdcdata.
ENDFORM.

*--------------------------------------------------------------------*
* Batch Input Data Designation *
*--------------------------------------------------------------------*
FORM set_bdc_data
TABLES pw_bdcdata STRUCTURE bdcdata
USING pc_fnam LIKE bdcdata-fnam
pt_fval .

CLEAR pw_bdcdata.

pw_bdcdata-fnam = pc_fnam.
pw_bdcdata-fval = pt_fval.

APPEND pw_bdcdata.
ENDFORM.

Recording with SHDB - Basic Knowledge

2009-03-16T06:01:00.000-07:00

Recording example :

1. Use T-Code : SHDB.
2. Goto Recording -> Create or press F5.

3. Enter Recording name and T-Code you want to record.
4. Press Start Recording.

5. SAP will apprears screen appropriate with T-Code you entered.

Equipment Class and Char - Upload

2009-03-16T05:43:00.000-07:00

Here is the example of SAP Data Migration for Equipment Class and Equipment Charateristic.

report zpm_upload_classchar.

data : zsim type ctu_params.
data : bdcdata like bdcdata occurs 0 with header line,
bdcmsgcoll like bdcmsgcoll occurs 0 with header line.
data : begin of it_char occurs 0,
char1(30) type c,
char2(30) type c,
end of it_char.
data : begin of it_class occurs 0,
class(18) type c,
descr(40) type c,
char1(30) type c,
char2(30) type c,
char3(30) type c,
char4(30) type c,
char5(30) type c,
char6(30) type c,
char7(30) type c,
char8(30) type c,
char9(30) type c,
char10(30) type c,
char11(30) type c,
char12(30) type c,
char13(30) type c,
char14(30) type c,
char15(30) type c,
char16(30) type c,
char17(30) type c,
char18(30) type c,
char19(30) type c,
char20(30) type c,
char21(30) type c,
char22(30) type c,
char23(30) type c,
char24(30) type c,
char25(30) type c,
char26(30) type c,
char27(30) type c,
char28(30) type c,
char29(30) type c,
char30(30) type c,
char31(30) type c,
char32(30) type c,
char33(30) type c,
char34(30) type c,
char35(30) type c,
char36(30) type c,
char37(30) type c,
char38(30) type c,
char39(30) type c,
char40(30) type c,
char41(30) type c,
char42(30) type c,
char43(30) type c,
char44(30) type c,
char45(30) type c,
char46(30) type c,
char47(30) type c,
char48(30) type c,
char49(30) type c,
char50(30) type c,
char51(30) type c,
char52(30) type c,
char53(30) type c,
char54(30) type c,
char55(30) type c,
char56(30) type c,
char57(30) type c,
char58(30) type c,
char59(30) type c,
char60(30) type c,
char61(30) type c,
char62(30) type c,
char63(30) type c,
char64(30) type c,
char65(30) type c,
char66(30) type c,
char67(30) type c,
char68(30) type c,
char69(30) type c,
char70(30) type c,
char71(30) type c,
char72(30) type c,
char73(30) type c,
char74(30) type c,
char75(30) type c,
end of it_class.
data : begin of it_classh occurs 0,
char1(18) type c,
char2(18) type c,
end of it_classh.

field-symbols like it_class-char1.
data inc type i.

*&---------------------------------------------------------------------*

selection-screen begin of block frame with frame title text-001.

selection-screen begin of line.
parameter rad0 radiobutton group grp user-command rad.
selection-screen comment 5(34) text-004 for field rad0.
selection-screen end of line.

selection-screen begin of line.
parameter rad1 radiobutton group grp .
selection-screen comment 5(34) text-002 for field rad1.
selection-screen end of line.

selection-screen begin of line.
parameter rad2 radiobutton group grp default 'X'.
selection-screen comment 5(34) text-003 for field rad2.
selection-screen end of line.

selection-screen end of block frame.
*&---------------------------------------------------------------------*

if rad1 = 'X'.
call function 'UPLOAD'
exporting
filename = 'C:\'
filetype = 'DAT'
tables
data_tab = it_class.
*&---------------------------------------------------------------------*
loop at it_class.
clear bdcdata.
refresh bdcdata.

perform bdc_dynpro using 'SAPLCLMO' '0100'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-CLASS'.
perform bdc_field using 'RMCLM-CLASS'
it_class-class.
perform bdc_field using 'RMCLM-KLART'
'002'.

perform bdc_dynpro using 'SAPLCLMO' '0100'.
perform bdc_field using 'BDC_OKCODE'
'/00'.

perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'=MERK'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-KLBEZ'.
perform bdc_field using 'RMCLM-KLBEZ'
it_class-descr.
perform bdc_field using 'RMCLM-STATU'
'1'.
perform bdc_field using 'RMCLM-VONDT'
'01.01.2008'.
perform bdc_field using 'RMCLM-BISDT'
'31.12.9999'.
perform bdc_field using 'RMCLM-PRAUS'
'X'.

if it_class-char1 <> ''.
inc = 0.
do.
inc = sy-index - 1.
assign it_class-char1 increment inc to range it_class.
if sy-subrc = 0 and <> ''.
perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'=SMEI'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-MERKMA(01)'.
perform bdc_field using 'RMCLM-EINTRAG'
'1'.

perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-MERKMA(01)'.
perform bdc_field using 'RMCLM-MERKMA(01)'
.
else.
exit.
endif.
enddo.
endif.

perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.

zsim-nobinpt = 'X'.
zsim-dismode = 'A'.
zsim-updmode = 'S'.
zsim-cattmode = 'A'.
call transaction 'CL01' using bdcdata
options from zsim
messages into bdcmsgcoll.

endloop.
*&---------------------------------------------------------------------*
elseif rad2 = 'X'.
call function 'UPLOAD'
exporting
filename = 'C:\'
filetype = 'DAT'
tables
data_tab = it_char.
*&---------------------------------------------------------------------*

loop at it_char.
clear bdcdata.
refresh bdcdata.

perform bdc_dynpro using 'SAPLCTMV' '2100'.
perform bdc_field using 'BDC_OKCODE'
'=ANLE'.
perform bdc_field using 'BDC_CURSOR'
'RCTAV-ATNAM'.
perform bdc_field using 'RCTAV-ATNAM'
it_char-char1.

perform bdc_dynpro using 'SAPLCTMV' '2100'.
perform bdc_field using 'BDC_OKCODE'
'=FORMAT'.
perform bdc_field using 'CABNT-ATBEZ'
it_char-char2.
perform bdc_field using 'CABN-ATMST'
'1'.
perform bdc_field using 'RCTMV-FORMAT'
'CHAR'.
perform bdc_field using 'RCTMV-ATEIN'
'X'.

perform bdc_dynpro using 'SAPLCTMV' '2100'.
perform bdc_field using 'BDC_OKCODE'
'=SICH'.
perform bdc_field using 'CABN-ANZST'
'30'.

zsim-nobinpt = 'X'.
zsim-dismode = 'A'.
zsim-updmode = 'S'.
zsim-cattmode = 'A'.
call transaction 'CT04' using bdcdata
options from zsim
messages into bdcmsgcoll.

endloop.
*&---------------------------------------------------------------------*
elseif rad0 = 'X'.
call function 'UPLOAD'
exporting
filename = 'C:\'
filetype = 'DAT'
tables
data_tab = it_classh.
*&---------------------------------------------------------------------*

loop at it_classh.
clear bdcdata.
refresh bdcdata.
perform bdc_dynpro using 'SAPLCLFM' '1110'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLF-KLART'.
perform bdc_field using 'RMCLF-CLASN'
it_classh-char1.
perform bdc_field using 'RMCLF-KLART'
'002'.

perform bdc_dynpro using 'SAPLCLFM' '1110'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLF-CLASS(01)'.
perform bdc_field using 'RMCLF-CLASS(01)'
it_classh-char2.

perform bdc_dynpro using 'SAPLCLFM' '1110'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.

zsim-nobinpt = 'X'.
zsim-dismode = 'A'.
zsim-updmode = 'S'.
zsim-cattmode = 'A'.
call transaction 'CL22N' using bdcdata
options from zsim
messages into bdcmsgcoll.

endloop.

endif.

*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
form bdc_dynpro using program dynpro.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform. "BDC_DYNPRO

*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
form bdc_field using fnam fval.
* IF FVAL <> NODATA.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
append bdcdata.
* ENDIF.
endform. "BDC_FIELD

Legacy System Migration Workbench (LSMW)

2009-03-16T03:37:00.000-07:00

Here some LSMW tutorial that you can read and download :

LSMW manual
LSMW step by step guide

Sales and Distribution

2009-03-15T19:57:00.000-07:00

SAP Sales and Distribution training material that you can read and download :

Sale s (SDSLS.pdf)
Sales and Distribution (SD.pdf)
Sales and Distribution(SR_SD.pdf)
Sales and Distribution (CAARCSD.pdf)
Sales and Distribution Workflow(BCBMTWFMSD.pdf)
Sales and Distribution (LOLISPLN.pdf)
Sales Employee (PAPA_ALE_054.pdf)
Sales Pricing Conditions (SDBFPR.pdf)
SD Shipping(LESHP.pdf )
SD Report Analysis (SDISREP.pdf)
SD Support : Computer Aided Selling(SDCAS.pdf)

Plant Maintenance

2009-03-15T10:02:00.000-07:00

SAP Plant Maintenance training material that you can read and download :

Plant Maintenance (SR_PM.pdf)
Plant Maintenance and Customer Service (CAARCPM.pdf)
Data Transfer in Plant Maintenance and Customer Service (CAGTFADMPM.pdf)
Workflow Scenarios : Plant Maintenance and Cutomer Service (BCBMTWFMPM.pdf)

keyword :
SAP, Plant Maintenance, Work Center, Equipment, Functional Location, SAP Plant Maintenance, SAP Data Migration.

Functional Location - LSMW

2009-03-15T02:04:00.000-07:00

Here the example of SAP LSMW for Functional Location Upload.

Objeck Attributes :

Source Fields :

FUNCTIONAL_LOCATION Functional Location Structure

TPLNR C(030) Functional location
TPLKZ C(005) Functional location structure indicator
PLTXT C(040) Description of functional location
SWERK C(004) Maintenance plant
STORT C(010) Location of maintenance object
BEBER C(003) Plant section
ABCKZ C(001) ABC indicator for technical object
ANLNR C(012) Main asset number
ANLUN C(004) Asset sub-number
KOSTL C(010) Cost Center
PROID C(024) Work breakdown structure element (WBS element)
IWERK C(004) Maintenance Planning Plant
INGRP C(003) Planner Group for Customer Service and Plant Maintenance
ARBPL C(008) Work center
RBNR C(009) Catalog Profile
TPLMA C(030) Superior functional location
POSNR C(004) Position in superior technical object
IEQUI C(001) Installation of equipment allowed at the functional location
EINZL C(001) Single equipment installation at functional location

Structure Relations :

Structure Relations
|
--- IBIPFLOC IBIP: Functional location <<<<>Field Mapping :

Field Mapping and Rule

IBIPFLOC			IBIP: Functional location

Fields

TPLNR		Functional Location
	Source:	FUNCTIONAL_LOCATION-TPLNR (Functional location)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-TPLNR = FUNCTIONAL_LOCATION-TPLNR.
TPLKZ		Functional location structure indicator
	Source:	FUNCTIONAL_LOCATION-TPLKZ (Functional location structure indicat
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-TPLKZ = FUNCTIONAL_LOCATION-TPLKZ.
FLTYP		Functional location category
TRPNR		Reference functional location
PLTXT		Description of functional location
	Source:	FUNCTIONAL_LOCATION-PLTXT (Description of functional location)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-PLTXT = FUNCTIONAL_LOCATION-PLTXT.
SWERK		Maintenance plant
	Source:	FUNCTIONAL_LOCATION-SWERK (Maintenance plant)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-SWERK = FUNCTIONAL_LOCATION-SWERK.
STORT		Asset location
	Source:	FUNCTIONAL_LOCATION-STORT (Location of maintenance object)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-STORT = FUNCTIONAL_LOCATION-STORT.
MSGRP		Room
BEBER		Plant section
	Source:	FUNCTIONAL_LOCATION-BEBER (Plant section)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-BEBER = FUNCTIONAL_LOCATION-BEBER.
ARBPL		Work center
	Source:	FUNCTIONAL_LOCATION-ARBPL (Work center)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-ARBPL = FUNCTIONAL_LOCATION-ARBPL.
ABCKZ		Criticallity Rating of Technical Object
	Source:	FUNCTIONAL_LOCATION-ABCKZ (ABC indicator for technical object)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-ABCKZ = FUNCTIONAL_LOCATION-ABCKZ.
EQFNR		Sort field
BUKRS		Company Code
ANLNR		Main Asset Number
	Source:	FUNCTIONAL_LOCATION-ANLNR (Main asset number)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-ANLNR = FUNCTIONAL_LOCATION-ANLNR.
ANLUN		Asset Subnumber
	Source:	FUNCTIONAL_LOCATION-ANLUN (Asset sub-number)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-ANLUN = FUNCTIONAL_LOCATION-ANLUN.
GSBER		Business Area
KOSTL		Cost Center
	Source:	FUNCTIONAL_LOCATION-KOSTL (Cost Center)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-KOSTL = FUNCTIONAL_LOCATION-KOSTL.
PROID		Work Breakdown Structure Element (WBS Element)
	Source:	FUNCTIONAL_LOCATION-PROID (Work breakdown structure element (WBS
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-PROID = FUNCTIONAL_LOCATION-PROID.
DAUFN		Standing order number
TPLMA		Superior functional location
	Source:	FUNCTIONAL_LOCATION-TPLMA (Superior functional location)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-TPLMA = FUNCTIONAL_LOCATION-TPLMA.
SUBMT		Material
IEQUI		Installation of equipment allowed at the functional location
	Source:	FUNCTIONAL_LOCATION-IEQUI (Installation of equipment allowed at
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-IEQUI = FUNCTIONAL_LOCATION-IEQUI.
EINZL		Single equipment installation at functional location
	Source:	FUNCTIONAL_LOCATION-EINZL (Single equipment installation at func
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-EINZL = FUNCTIONAL_LOCATION-EINZL.
IWERK		Maintenance Planning Plant
	Source:	FUNCTIONAL_LOCATION-IWERK (Maintenance Planning Plant)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-IWERK = FUNCTIONAL_LOCATION-IWERK.
INGRP		Planner Group for Customer Service and Plant Maintenance
	Source:	FUNCTIONAL_LOCATION-INGRP (Planner Group for Customer Service an
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-INGRP = FUNCTIONAL_LOCATION-INGRP.
GEWRK		Main work center for maintenance tasks
WERGW		Plant associated with main work center
RBNR		Catalog Profile
	Source:	FUNCTIONAL_LOCATION-RBNR (Catalog Profile)
	Rule :	Transfer (MOVE)
	Code:	IBIPFLOC-RBNR = FUNCTIONAL_LOCATION-RBNR.
BEGRU		Technical object authorization group
VKORG		Sales Organization
VTWEG		Distribution Channel
SPART		Division
POSNR		Position in superior technical object
AUFNR		Settlement order
DATAB		Start-up Date of the Technical Object
STRNO		Functional location label
STRNO_TPLMA		Functional location label
EQART		Type of Technical Object
INVNR		Inventory number
BRGEW		Gross Weight : IBIP Character Structure
GEWEI		Weight Unit
GROES		Size/dimension
ANSWT		Acquisition Value: IBIP Character Structure
WAERS		Currency Key
ANSDT		Acquisition date
HERST		Manufacturer of asset
HERLD		Country of manufacture
TYPBZ		Model/Type
BAUJJ		Year of construction
BAUMM		Month of construction
MAPAR		Manufacturer part number
SERGE		Manufacturer serial number
VKBUR		Sales Office
VKGRP		Sales Group

KP06 - Upload

2009-03-14T10:04:00.000-07:00

Here is the example of SAP Data Migration for Service Master T-Code : KP06

REPORT zkp06_upload.

INCLUDE bdcrecxy.
TYPE-POOLS: truxs, slis.

****************************
* INTERNAL TABLE
****************************
DATA: BEGIN OF itab OCCURS 0,
line(8) TYPE c,
kpp01(40) TYPE c,
* kpp02(40) TYPE c,
* kpp03(40) TYPE c,
kpp04(40) TYPE c,
kpp05(40) TYPE c,
kpp06(40) TYPE c,
typps(1) TYPE c,
herk2(18) TYPE c,
herk3(6) TYPE c,
* menge(15) TYPE c,
meins(3) TYPE c,
lpreis(15) TYPE c,
ltext(40) TYPE c,
2per01(15) TYPE c,
2per02(15) TYPE c,
2per03(15) TYPE c,
2per04(15) TYPE c,
2per05(15) TYPE c,
2per06(15) TYPE c,
2per07(15) TYPE c,
2per08(15) TYPE c,
2per09(15) TYPE c,
2per10(15) TYPE c,
2per11(15) TYPE c,
2per12(15) TYPE c,
END OF itab.
*------------------------------
DATA: gv_tankfile TYPE rlgrap-filename.
DATA : lt_messtab LIKE bdcmsgcoll OCCURS 0,
ls_messtab TYPE bdcmsgcoll.
*--------------------------------
**-----------------------------------
* USER INTERFACE
*------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK block01 WITH FRAME TITLE text-001.
PARAMETERS: t_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK block01.

*---------------------------------------------------------------------------------------
* THE PROGRAM START HERE
*---------------------------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR t_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'T_FILE'
IMPORTING
file_name = t_file.
*---------------------------------------------------------------------------------------
* START-OF-SELECTION
*---------------------------------------------------------------------------------------
START-OF-SELECTION.
gv_tankfile = t_file.
PERFORM f_get_data_from_xls.

PERFORM bdc_dynpro USING 'SAPLSPO4' '0300'.
PERFORM bdc_field USING 'BDC_OKCODE' '=FURT'.
PERFORM bdc_field USING 'SVALD-VALUE(01)' 'PTMN'.

CALL TRANSACTION 'KP06' USING bdcdata MODE 'N' UPDATE 'S'
MESSAGES INTO lt_messtab.

REFRESH bdcdata.
REFRESH lt_messtab.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE' '/EKKKS'.
PERFORM bdc_field USING 'BDC_CURSOR' 'KPP0B-VALUE(01)'.

PERFORM bdc_dynpro USING 'SAPLSPO4' '300'.
PERFORM bdc_field USING 'BDC_CURSOR' 'SVALD-VALUE(01)'.
PERFORM bdc_field USING 'SVALD-VALUE(01)' 'PTMN'.
PERFORM bdc_field USING 'BDC_OKCODE' '=FURT'.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.
PERFORM bdc_field USING 'BDC_CURSOR' 'KPP0B-VALUE(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'KPP1B-ONLY' 'X'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLKPP0'.

PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.
PERFORM bdc_field USING 'BDC_CURSOR' 'KPP0B-VALUE(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=CZUR'.
PERFORM bdc_field USING 'KPP1B-ONLY' 'X'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLKPP0'.

CALL TRANSACTION 'KP06' USING bdcdata MODE 'N' UPDATE 'S'
MESSAGES INTO lt_messtab.

REFRESH bdcdata.
REFRESH lt_messtab.

LOOP AT itab.
PERFORM bdc_dynpro USING 'SAPLKPP0' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE' '=CSUB'.
PERFORM bdc_field USING 'KPP0B-VALUE(01)' itab-kpp01.
PERFORM bdc_field USING 'KPP0B-VALUE(02)' '1'.
PERFORM bdc_field USING 'KPP0B-VALUE(03)' '12'.
PERFORM bdc_field USING 'KPP0B-VALUE(04)' itab-kpp04.
PERFORM bdc_field USING 'KPP0B-VALUE(06)' itab-kpp05.
PERFORM bdc_field USING 'KPP0B-VALUE(12)' itab-kpp06.
PERFORM bdc_field USING 'KPP1B-ONLY' 'X'.

PERFORM bdc_dynpro USING 'SAPLKPP2' '0112'.
PERFORM bdc_field USING 'BDC_OKCODE' '=KDPL'.
PERFORM bdc_field USING 'MARK_ROW_CONTROL(01)' 'X'.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=PNEW'.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=PINS'.
PERFORM bdc_field USING 'RK70L-PMARK(01)' 'X'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RK70L-POSNR(01)'.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
IF itab-typps EQ 'm' OR itab-typps EQ 'M'.
PERFORM bdc_field USING 'RK70L-TYPPS(01)' itab-typps.
PERFORM bdc_field USING 'RK70L-HERK2(01)' itab-herk2.
PERFORM bdc_field USING 'RK70L-HERK3(01)' itab-herk3.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=VERT'.

PERFORM bdc_dynpro USING 'SAPMK70D' '1991'.
PERFORM bdc_field USING 'BDC_OKCODE' '=EBCK'.
PERFORM bdc_field USING 'GT_RK70V-2PER(01)' itab-2per01.
PERFORM bdc_field USING 'GT_RK70V-2PER(02)' itab-2per02.
PERFORM bdc_field USING 'GT_RK70V-2PER(03)' itab-2per03.
PERFORM bdc_field USING 'GT_RK70V-2PER(04)' itab-2per04.
PERFORM bdc_field USING 'GT_RK70V-2PER(05)' itab-2per05.
PERFORM bdc_field USING 'GT_RK70V-2PER(06)' itab-2per06.
PERFORM bdc_field USING 'GT_RK70V-2PER(07)' itab-2per07.
PERFORM bdc_field USING 'GT_RK70V-2PER(08)' itab-2per08.
PERFORM bdc_field USING 'GT_RK70V-2PER(09)' itab-2per09.
PERFORM bdc_field USING 'GT_RK70V-2PER(10)' itab-2per10.
PERFORM bdc_field USING 'GT_RK70V-2PER(11)' itab-2per11.
PERFORM bdc_field USING 'GT_RK70V-2PER(12)' itab-2per12.
ELSE.
PERFORM bdc_field USING 'RK70L-TYPPS(01)' itab-typps.
PERFORM bdc_field USING 'RK70L-MEEHT(01)' itab-meins.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=VERT'.

PERFORM bdc_dynpro USING 'SAPMK70D' '1991'.
PERFORM bdc_field USING 'BDC_OKCODE' '=EBCK'.
PERFORM bdc_field USING 'GT_RK70V-2PER(01)' itab-2per01.
PERFORM bdc_field USING 'GT_RK70V-2PER(02)' itab-2per02.
PERFORM bdc_field USING 'GT_RK70V-2PER(03)' itab-2per03.
PERFORM bdc_field USING 'GT_RK70V-2PER(04)' itab-2per04.
PERFORM bdc_field USING 'GT_RK70V-2PER(05)' itab-2per05.
PERFORM bdc_field USING 'GT_RK70V-2PER(06)' itab-2per06.
PERFORM bdc_field USING 'GT_RK70V-2PER(07)' itab-2per07.
PERFORM bdc_field USING 'GT_RK70V-2PER(08)' itab-2per08.
PERFORM bdc_field USING 'GT_RK70V-2PER(09)' itab-2per09.
PERFORM bdc_field USING 'GT_RK70V-2PER(10)' itab-2per10.
PERFORM bdc_field USING 'GT_RK70V-2PER(11)' itab-2per11.
PERFORM bdc_field USING 'GT_RK70V-2PER(12)' itab-2per12.
ENDIF.

PERFORM bdc_dynpro USING 'SAPMK70D' '1301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SICH'.
IF itab-typps EQ 'm' OR itab-typps EQ 'M'.
PERFORM bdc_field USING 'RK70L-LPREIS(01)' itab-lpreis.
ELSE.
PERFORM bdc_field USING 'RK70L-LPREIS(01)' itab-lpreis.
PERFORM bdc_field USING 'RK70L-LTEXT(01)' itab-ltext.
ENDIF.

PERFORM bdc_dynpro USING 'SAPLKPP2' '0112'.
PERFORM bdc_field USING 'BDC_OKCODE' '=CBUC'.

CALL TRANSACTION 'KP06' USING bdcdata MODE 'N' UPDATE 'S'
MESSAGES INTO lt_messtab.

DATA : d_message TYPE string.
DELETE ADJACENT DUPLICATES FROM lt_messtab.

LOOP AT lt_messtab INTO ls_messtab.
MESSAGE ID ls_messtab-msgid TYPE ls_messtab-msgtyp NUMBER ls_messtab-msgnr
WITH ls_messtab-msgv1 ls_messtab-msgv2 ls_messtab-msgv3 ls_messtab-msgv4
INTO d_message.
WRITE:/ itab-line,
' ',
d_message.
ENDLOOP.

REFRESH bdcdata.
REFRESH lt_messtab.
ENDLOOP.

*&---------------------------------------------------------------------*
*& Form F_GET_DATA_FROM_XLS
*&---------------------------------------------------------------------*
FORM f_get_data_from_xls .
DATA : lt_raw TYPE truxs_t_text_data.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_field_seperator = ';'
i_line_header = 'X'
i_tab_raw_data = lt_raw
i_filename = gv_tankfile "p_file
TABLES
i_tab_converted_data = itab "lt_task_ins[]
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* ELSE.
* PERFORM f_bdc_input.
ENDIF.
* DELETE itab INDEX 1.
ENDFORM. " F_GET_DATA_FROM_XLS
*&---------------------------------------------------------------------*
************************************************************************

AC01 - Upload

2009-03-14T09:34:00.000-07:00

Here is the example of SAP Data Migration for Service Master T-Code : AC01

REPORT Z_SERVICE.

TABLES : ASMD.

Data : BEGIN OF I_TAB OCCURS 0,
MANDT TYPE ASMD-MANDT,
ASNUM TYPE ASMD-ASNUM,
ERDAT TYPE ASMD-ERDAT,
ERNAM TYPE ASMD-ERNAM,
AEDAT TYPE ASMD-AEDAT,
AENAM TYPE ASMD-AENAM,
LVORM TYPE ASMD-LVORM,
MATKL TYPE ASMD-MATKL,
MEINS TYPE ASMD-MEINS,
ASTYP TYPE ASMD-ASTYP,
PAKNR TYPE ASMD-PAKNR,
EAN11 TYPE ASMD-EAN11,
NUMTP TYPE ASMD-NUMTP,
SPART TYPE ASMD-SPART,
BEGRU TYPE ASMD-BEGRU,
MSTAE TYPE ASMD-MSTAE,
MSTDE TYPE ASMD-MSTDE,
BKLAS TYPE ASMD-BKLAS,
LSTHI TYPE ASMD-LSTHI,
MLANG TYPE ASMD-MLANG,
LGART TYPE ASMD-LGART,
LBNUM TYPE ASMD-LBNUM,
AUSGB TYPE ASMD-AUSGB,
STLVPOS TYPE ASMD-STLVPOS,
MANDT2 TYPE ASMDT-MANDT,
ASNUM2 TYPE ASMDT-ASNUM,
SPRAS TYPE ASMDT-SPRAS,
ASKTX TYPE ASMDT-ASKTX,
KZLTX TYPE ASMDT-KZLTX,
TXASP TYPE ASMDT-TXASP,
TXLINE TYPE RSTXT-TXLINE,
END OF I_TAB.

Data : BEGIN OF I_SERVICE OCCURS 0.
include structure BAPISRV_ASMD.
Data : END OF I_SERVICE.

Data : BEGIN OF I_SERVICEX OCCURS 0.
include structure BAPISRV_ASMDX.
Data : END OF I_SERVICEX.

Data : BEGIN OF I_ServiceText OCCURS 0.
INCLUDE STRUCTURE BAPISRV_ASMDT.
Data : END OF I_ServiceText.

Data : BEGIN OF I_ServiceLongText OCCURS 0.
INCLUDE STRUCTURE BAPISRV_TEXT.
Data : END OF I_ServiceLongText.

Data : BEGIN OF I_SERVNO OCCURS 0,
SERVNO TYPE BAPISRV_ASMD-SERVICE,
END OF I_SERVNO.

Data : BEGIN OF RETURN OCCURS 0.
INCLUDE STRUCTURE BAPIRET2.
Data : END OF RETURN.

DATA : q_return LIKE syst-subrc,
err_flag(1) TYPE c,
temp(255) type c,
lin type N,
Winfile(128) TYPE c.

SELECTION-SCREEN BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
PARAMETERS: path LIKE RLGRAP-FILENAME default 'C:\SERVICE.TXT'.
SELECTION-SCREEN END OF BLOCK b03.
*
*PERFORM build_file_name.
*CHECK err_flag = ' '.
*PERFORM check_file_exists.

CALL FUNCTION 'WS_UPLOAD'
EXPORTING
* CODEPAGE = ' '
FILENAME = path
FILETYPE = 'DAT'
* HEADLEN = ' '
* LINE_EXIT = ' '
* TRUNCLEN = ' '
* USER_FORM = ' '
* USER_PROG = ' '
* DAT_D_FORMAT = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = I_TAB
* EXCEPTIONS
* CONVERSION_ERROR = 1
* FILE_OPEN_ERROR = 2
* FILE_READ_ERROR = 3
* INVALID_TYPE = 4
* NO_BATCH = 5
* UNKNOWN_ERROR = 6
* INVALID_TABLE_WIDTH = 7
* GUI_REFUSE_FILETRANSFER = 8
* CUSTOMER_ERROR = 9
* OTHERS = 10
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*SORT I_TAB BY PSPID ASCENDING STUFE ASCENDING.
LOOP AT I_TAB.

CLEAR I_SERVICE.
REFRESH I_SERVICE.
CLEAR I_SERVNO.
REFRESH I_SERVNO.
CLEAR I_SERVICETEXT.
REFRESH I_SERVICETEXT.
CLEAR I_SERVICELONGTEXT.
REFRESH I_SERVICELONGTEXT.

MOVE I_TAB-ASNUM TO I_SERVICE-SERVICE.
MOVE I_TAB-LVORM TO I_SERVICE-DEL_IND.
MOVE I_TAB-MATKL TO I_SERVICE-MATL_GROUP.
MOVE I_TAB-MEINS TO I_SERVICE-BASE_UOM.
MOVE I_TAB-ASTYP TO I_SERVICE-SERV_CAT.
MOVE I_TAB-SPART TO I_SERVICE-DIVISION.
MOVE I_TAB-ERDAT TO I_SERVICE-CREATED_ON.
MOVE I_TAB-ERNAM TO I_SERVICE-CREATED_BY.
MOVE I_TAB-AEDAT TO I_SERVICE-CHANGED_ON.
MOVE I_TAB-AENAM TO I_SERVICE-CHANGED_BY.
MOVE I_TAB-EAN11 TO I_SERVICE-EAN_UPC.
MOVE I_TAB-NUMTP TO I_SERVICE-EAN_CAT.
MOVE I_TAB-BEGRU TO I_SERVICE-AUTH_GROUP.
MOVE I_TAB-MSTAE TO I_SERVICE-P_STATUS.
MOVE I_TAB-MSTDE TO I_SERVICE-VALID_FROM.
MOVE I_TAB-BKLAS TO I_SERVICE-VAL_CLASS.
MOVE I_TAB-LSTHI TO I_SERVICE-HIER_SERV.
MOVE I_TAB-MLANG TO I_SERVICE-MASTER_LANGU.
MOVE I_TAB-LGART TO I_SERVICE-WAGETYPE.
MOVE I_TAB-LBNUM TO I_SERVICE-SERV_TYPE.
MOVE I_TAB-AUSGB TO I_SERVICE-EDITION.
MOVE I_TAB-STLVPOS TO I_SERVICE-SSC_ITEM.
MOVE I_TAB-SPRAS TO I_SERVICE-MASTER_LANGU.

APPEND I_SERVICE.

MOVE I_TAB-ASNUM TO I_SERVICEX-SERVICE.
MOVE 'X' TO I_SERVICEX-DEL_IND.
MOVE 'X' TO I_SERVICEX-MATL_GROUP.
MOVE 'X' TO I_SERVICEX-BASE_UOM.
MOVE 'X' TO I_SERVICEX-SERV_CAT.
MOVE 'X' TO I_SERVICEX-DIVISION.
MOVE 'X' TO I_SERVICEX-CREATED_ON.
MOVE 'X' TO I_SERVICEX-CREATED_BY.
MOVE 'X' TO I_SERVICEX-CHANGED_ON.
MOVE 'X' TO I_SERVICEX-CHANGED_BY.
MOVE 'X' TO I_SERVICEX-EAN_UPC.
MOVE 'X' TO I_SERVICEX-EAN_CAT.
MOVE 'X' TO I_SERVICEX-AUTH_GROUP.
MOVE 'X' TO I_SERVICEX-P_STATUS.
MOVE 'X' TO I_SERVICEX-VALID_FROM.
MOVE 'X' TO I_SERVICEX-VAL_CLASS.
MOVE 'X' TO I_SERVICEX-HIER_SERV.
MOVE 'X' TO I_SERVICEX-MASTER_LANGU.
MOVE 'X' TO I_SERVICEX-WAGETYPE.
MOVE 'X' TO I_SERVICEX-SERV_TYPE.
MOVE 'X' TO I_SERVICEX-EDITION.
MOVE 'X' TO I_SERVICEX-SSC_ITEM.
MOVE 'X' TO I_SERVICEX-MASTER_LANGU.

APPEND I_SERVICEX.

MOVE I_TAB-SPRAS TO I_SERVICETEXT-LANGUAGE.
* MOVE I_TAB-KZLTX TO I_SERVICETEXT-CHANGE_ID.
MOVE I_TAB-ASKTX TO I_SERVICETEXT-SHORT_TEXT.

APPEND I_SERVICETEXT.

MOVE I_TAB-SPRAS TO I_SERVICElongTEXT-LANGUAGE.
* MOVE I_TAB-KZLTX TO I_SERVICElongTEXT-CHANGE_ID.
MOVE I_TAB-TXLINE TO I_SERVICElongTEXT-LINE.

APPEND I_SERVICELONGTEXT.

SELECT SINGLE * FROM ASMD WHERE ASNUM = I_TAB-ASNUM.

IF SY-SUBRC NE 0.
CALL FUNCTION 'BAPI_SERVICE_CREATE'
EXPORTING
IM_SERVICE_DATA = I_SERVICE
IM_SERVICE_DATAX = I_SERVICEX
* NO_NUMBER_RANGE_CHECK =
TESTRUN = space
IMPORTING
SERVICE = I_SERVNO-SERVNO
* EX_SERVICE_DATA =
* EX_SERVICE_DATAX =
TABLES
RETURN = RETURN
SERVICE_DESCRIPTION = I_SERVICETEXT
SERVICE_LONG_TEXTS = I_SERVICELONGTEXT.
* EXTENSION_IN =
* EXTENSION_OUT =

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'A'
IMPORTING
RETURN = Return.

LOOP AT RETURN.
IF RETURN-TYPE = 'E'.
WRITE : /1 RETURN-MESSAGE.
EXIT.

ENDIF.

ENDLOOP.

concatenate I_SERVNO-SERVNO ' ' ' Created Succesfully' into temp.
WRITE : /1 temp.

ENDIF.

ENDLOOP.

*ENDLOOP.

CLEAR I_TAB.
REFRESH I_TAB.

*---------------------------------------------------------------------*
* FORM build_file_name *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM build_file_name.
MOVE path TO winfile.
* WRITE '\' TO winfile+30.
* WRITE 'proj' TO winfile+31.
* WRITE '.TXT' TO winfile+61(4).
CONDENSE winfile NO-GAPS.
ENDFORM. "build_file_name

*---------------------------------------------------------------------*
* FORM check_file_exists *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM check_file_exists.

CALL FUNCTION 'WS_QUERY'
EXPORTING
filename = winfile
query = 'FE'
IMPORTING
return = q_return
EXCEPTIONS
OTHERS = 1.

IF syst-subrc NE 0 OR q_return NE 1.
err_flag = 'X'.
ENDIF.
ENDFORM. "check_file_exists

KB11N - Recording

2009-03-14T09:29:00.000-07:00

Here is the example of SAP Data Migration for T-Code : KB11n (recording)

report ZCOST_BDC no standard page heading line-size 255.

include bdcrecx1.

start-of-selection.

perform open_group.

perform bdc_dynpro using 'SAPLK23F1' '1270'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'COHEADER-SEND_REC_REL'
'10SAP'.
perform bdc_field using 'RK23F-STATUS'
'S'.
perform bdc_field using 'COHEADER-BLDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-BUDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-PERIO'
'2'.
perform bdc_field using 'COHEADER-BLTXT'
'HEADER1'.
perform bdc_field using 'RK23F-KSTAR'
'6357160400'.
perform bdc_field using 'RK23F-WTGBTR'
'2324'.
perform bdc_field using 'RK23F-WAERS'
'IDR'.
perform bdc_field using 'RK23F-SGTXT'
'textttttttt yo'.
perform bdc_field using 'RK23F-SAUFNR'
'110059'.
perform bdc_field using 'BDC_CURSOR'
'RK23F-EPSPNR'.
perform bdc_field using 'RK23F-EPSPNR'
'O-09-00031.1'.
perform bdc_dynpro using 'SAPLK23F1' '1270'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'COHEADER-SEND_REC_REL'
'10SAP'.
perform bdc_field using 'RK23F-STATUS'
'S'.
perform bdc_field using 'COHEADER-BLDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-BUDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-PERIO'
'2'.
perform bdc_field using 'COHEADER-BLTXT'
'HEADER1'.
perform bdc_field using 'RK23F-KSTAR'
'6357160400'.
perform bdc_field using 'RK23F-WTGBTR'
'992'.
perform bdc_field using 'RK23F-WAERS'
'IDR'.
perform bdc_field using 'RK23F-SGTXT'
'textttttttt yo2'.
perform bdc_field using 'RK23F-SAUFNR'
'110059'.
perform bdc_field using 'BDC_CURSOR'
'RK23F-EPSPNR'.
perform bdc_field using 'RK23F-EPSPNR'
'O-09-00031.1'.
perform bdc_dynpro using 'SAPLK23F1' '1270'.
perform bdc_field using 'BDC_OKCODE'
'=POST'.
perform bdc_field using 'COHEADER-SEND_REC_REL'
'10SAP'.
perform bdc_field using 'RK23F-STATUS'
'S'.
perform bdc_field using 'COHEADER-BLDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-BUDAT'
'25.02.2009'.
perform bdc_field using 'COHEADER-PERIO'
'2'.
perform bdc_field using 'COHEADER-BLTXT'
'HEADER1'.
perform bdc_field using 'BDC_CURSOR'
'RK23F-KSTAR'.
perform bdc_field using 'RK23F-WAERS'
'IDR'.
perform bdc_transaction using 'KB11N'.

perform close_group.

CJ02 - Upload

2009-03-14T09:02:00.000-07:00

Here is the example of SAP Data Migration for T-Code : CJ02

report zps_upload
no standard page heading line-size 255.

include bdcrecx1.
data : begin of i_tab occurs 0,
pspid(24) type c,
profl(7) type c,
post1(40) type c,
vernr(8) type c,
vkokr(4) type c,
astnr(8) type c,
vbukr(4) type c,
werks(4) type c,
prctr(10) type c,
plfaz(8) type c,
plsez(8) type c,
kalid(2) type c,
zteht(3) type c,
sprog(8) type c,
eprog(8) type c,
pwhie(5) type c,
bprof(6) type c,
vprof(7) type c,
pprof(6) type c,
scprf(12) type c,
zschm(7) type c,
imprf(6) type c,
abgsl(6) type c,
smprf(7) type c,
pargr(4) type c,
schtyp(1) type c,
vgplf(1) type c,
ewplf(1) type c,
zuord(1) type c,
scope(2) type c,
txjcd(15) type c,
xstat(1) type c,
plint(1) type c,
stspr(8) type c,
besta(1) type c,
stufe(3) type n,
pspnr(25) type c,
posid(24) type c,
postw(40) type c,
prart(2) type c,
pspri(1) type c,
clasf(1) type c,
fkokr(4) type c,
plakz(1) type c,
belkz(1) type c,
fakkz(1) type c,
grpkz(1) type c,
pwpos(5) type c,
stort(10) type c,
fabkl(2) type c,
fkstl(10) type c,
akokr(4) type c,
akstl(10) type c,
abukr(4) type c,
kalsm(6) type c,
usr00(20) type c,
usr01(20) type c,
usr02(10) type c,
usr03(10) type c,
konty(2) type c,
empge(35) type c,
prozs(5) type c,
aqzif(10) type c,
betrr(15) type c,
brtyp(2) type c,
perbz(3) type c,
extnr(3) type c,
mrule(4) type c,
srstrat(3) type c,
gabpe(3) type c,
gabja(4) type c,
gbisp(3) type c,
gbisj(4) type c,
vname(6) type c,
recid(2) type c,
etype(3) type c,
otype(4) type c,
jibcl(3) type c,
jibsa(5) type c,
* status(30) type c,
end of i_tab.

parameters: fname like rlgrap-filename obligatory.

at selection-screen on value-request for fname.
call function 'F4_FILENAME'
exporting
field_name = 'FNAME'
importing
file_name = fname.

start-of-selection.

perform open_group.

loop at i_tab.

perform bdc_dynpro using 'SAPLCJWB' '0100'.
perform bdc_field using 'BDC_CURSOR'
'*PRPS-POSID'.
perform bdc_field using 'BDC_OKCODE'
'=LETB'.
perform bdc_field using '*PRPS-POSID'
'D33/09/B6/RT2-5BPP'.
perform bdc_dynpro using 'SAPLCJWB' '0901'.
perform bdc_field using 'BDC_OKCODE'
'=TBST'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-STUFE(01)'.
perform bdc_field using 'RCJ_MARKL-MARK(01)'
'X'.
perform bdc_dynpro using 'SAPLCJWB' '0999'.
perform bdc_field using 'BDC_OKCODE'
'=CONT'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-POSID'.
perform bdc_field using 'PRPS-POSID'
'D33/09/B6/RT2-5BPP'.
perform bdc_field using 'PRPS-POST1'
'BAGGING & STORAGE PLANT-RTN MAINT.COST'.
perform bdc_field using 'PRPS-POSKI'
'D33/09/B6/RT2-5B'.
perform bdc_field using 'PRPS-CLASF'
'X'.
perform bdc_field using 'PRPS-PLAKZ'
'X'.
perform bdc_field using 'PRPS-FKSTL'
'A0303002'.
perform bdc_field using 'PRPS-FKOKR'
'PTMN'.
perform bdc_dynpro using 'SAPLCJWB' '0999'.
perform bdc_field using 'BDC_OKCODE'
'=AIB'.
perform bdc_field using 'PRPS-POSID'
'D33/09/B6/RT2-5BPP'.
perform bdc_field using 'PRPS-POST1'
'BAGGING & STORAGE PLANT-RTN MAINT.COST'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-IMPRF'.
perform bdc_field using 'PRPS-KALSM'
'A00000'.
perform bdc_field using 'PRPS-ZSCHM'
'0000001'.
perform bdc_field using 'PRPS-IMPRF'
'b1'.
perform bdc_dynpro using 'SAPLAIST' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=RW'.
perform bdc_field using 'BDC_CURSOR'
'ANLA-TXA50'.
perform bdc_field using 'ANLH-ANLHTXT'
'BAGGING & STORAGE PLANT-RTN MAINT.COST'.
perform bdc_field using 'RA02S-XHIST'
'X'.
perform bdc_dynpro using 'SAPLCJWB' '0999'.
perform bdc_field using 'BDC_OKCODE'
'=ABRV'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-POSID'.
perform bdc_field using 'PRPS-POSID'
'D33/09/B6/RT2-5BPP'.
perform bdc_field using 'PRPS-POST1'
'BAGGING & STORAGE PLANT-RTN MAINT.COST'.
perform bdc_field using 'PRPS-KALSM'
'A00000'.
perform bdc_field using 'PRPS-ZSCHM'
'0000001'.
perform bdc_field using 'PRPS-IMPRF'
'B1'.
perform bdc_dynpro using 'SAPLKOBS' '0130'.
perform bdc_field using 'BDC_CURSOR'
'DKOBR-EMPGE(01)'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'COBRB-KONTY(01)'
'fxa'.
perform bdc_field using 'DKOBR-EMPGE(01)'
'700000000-0'.
perform bdc_dynpro using 'SAPLKOBS' '0130'.
perform bdc_field using 'BDC_CURSOR'
'COBRB-KONTY(01)'.
perform bdc_field using 'BDC_OKCODE'
'=BACK'.
perform bdc_dynpro using 'SAPLCJWB' '0999'.
perform bdc_field using 'BDC_OKCODE'
'/EBCK'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-POSID'.
perform bdc_field using 'PRPS-POSID'
'D33/09/B6/RT2-5BPP'.
perform bdc_field using 'PRPS-POST1'
'BAGGING & STORAGE PLANT-RTN MAINT.COST'.
perform bdc_field using 'PRPS-KALSM'
'A00000'.
perform bdc_field using 'PRPS-ZSCHM'
'0000001'.
perform bdc_field using 'PRPS-IMPRF'
'B1'.
perform bdc_dynpro using 'SAPLCJWB' '0901'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'BDC_CURSOR'
'PRPS-STUFE(01)'.
perform bdc_transaction using 'CJ02'.

endloop.

perform close_group.

Output looks like :

Welcome

2009-03-14T00:49:00.000-07:00

SAP DM is a SAP data migration. In this website you can found anything about SAP data migration included LSMW, BAPI, BDC and IDOC.

Best Regards.
SAP DM team.