How to upload pa master data. means 0000,00001,0002,0006 and etc. can anybody give me brief explination?

Thanks in advance

Hi Anand,
You can uploard at a time IT0000, 00001, 0002 thoruhg LSMW.
pls follow this.
Regards Bapu.

Similar Messages

How to upload the master data from legacy to SAP

Hi Frends,
how to upload the master data from legacy system to SAP System once the configuration is over.how to carry forward the open items of vendors and customers while uploading.who will upload functional consultantsor ABAPER.
please clarify me
Regards
Sap Guru

Hi ,
use LSMW or BDC for uploading Master & transaction data.
This work is done by the Respective Functional team.
Chandra

Upload vendor master data from legacy system to internal table tcode xk01

through batch input program how to upload vendor master data from legacy system to internal table and then to SAP R/3 database(transaction XK01) by using recording method.

By learning the basics of BDC recording and the use of GUI_UPLOAD

Upload the master data in abap-hr using Lsmw tool

Hi Friends,
Any one Help me How to Upload the Master data in ABAP-HR using LSMW.
In Recording what need to fill.
If any screenshots are availave please provied me.
Thanks and Regards,
Sai.

http://www.scmexpertonline.com/downloads/SCM_LSMW_StepsOnWeb.doc
Try this .....

How can I upload text master data for attribute-only Charactertic?

I can't create infosource for attribute-only Charactertic via direct update from Infoobject, because attribute-only Charactertics you can't choose from available infoobject.
How can I upload text master data for attribute-only Charactertic?
Thanks!

Hi roberto,
I soloved the problem. I can input the attribute-only char directly in the text box instead of choosing from list of infoobjects, but I still can't find the char in infoobject selection dialog even using search.

Open hub Services - How to extract the master data related to a object ?

Hi Gurus,
I am implementing OpenHub services for our project, it's on BW 3.5, I have the list of required fields with which I am creating an InfoSpoke. Now I am stuck in some the info objects which are having master data associated with it.
Example : Business partner(BP) data, when I map the 0BP infobjects in infospoke it's extracting the BP ID (ex: CT065316,CT068638 etc) in flat file but I want the BP name, address & telephone number as well, which are coming from master data table. But I am able to map only 0BP infobjects as a part of ODS/Cube.
Can any one tell me how to get the master data extracted in the flat file with associated info object???
Answers will be highly appreciated.
Regards,
Kironmoy Banerjee
Edited by: Kironmoy Banerjee on Oct 1, 2009 3:34 PM

Hi Kironmay
Please follow the below mentioned procedure to create a transformation. This is applicable for BW 3.5 as well.
- Enter your infospoke in the edit mode.
- On the Transformation tab set the indicator for the Infospoke with Transformation with BADI so that the infospoke is activated.
- This will take you to the Addin implementation/BADI builder.
- Enter the short text/description for the implementation. The implementation name is always the same as the technical name of the infospoke
- The implementation of the BADI is always filter dependant.
- In the properties tab of the infospoke enter your infospoke under the Filter specifications.
If you do not specify an InfoSpoke under Filter Specifications, then this implementation is valid for all InfoSpokes. This means that this is called up for all InfoSpokes during the extraction.
- Activate your class
- From your interface tab page, double click on the Transofrm Method and you will arrive in the class builder page
- Here you can enter the code
- To do a look up of the master data you have to write a code similar to the one I've given below. This is just an example for looking up material master.
IF FLT_VAL = 'Your infospoke'.
T_DATA_IN[] = I_T_DATA_IN[].
Select zstd_cost from /bi0/pmaterial into table T_return
For all entries in T_DATA_IN
WHERE material = T_DATA_IN-material.
...Continue with your code.
Append output from T_return to your output E_T_DATA_OUT
- Activate your method. Return to the BAdI builder. Return to your InfoSpoke.
I hope this helps.
Thanks.

LSMW Upload vendor master data problem

Hello,
I have to upload vendor master data with LSMW.
I'm using a batch input with the program RFBIKR00.
In the step "Create batch input session", I get the following error:
FB012 Session 1 : Special character for 'empty field' is /
FB007 Session 1 session name VENDOR was opened
FB112 Trans. 1 : No transaction code was transferred
FB016 ... Last header record ...
FB014 ... BLF00-STYPE 1
FB014 ... BLF00-TCODE /
FB014 ... BLF00-LIFNR DETES998
FB014 ... BLF00-BUKRS /
FB014 ... BLF00-EKORG /
FB014 ... BLF00-KTOKK 0001
FB013 ....Editing was terminated
Does anyone know how to solve this error?
Kind regards,
Frank

Hi ,
first up all u r not mentioning the tcode and other mandatory field values...just in the field mapping and conversion step...
click -->Extras -->Layout and select all fields
and give default values to field TCODE,and other fields also and also check whether mapping conversion with regard to source is correct or not...
If still any doubts i can clarify
Regards,
Sridhar Reddy
Message was edited by: sridhar reddy kondam
Message was edited by: sridhar reddy kondam

Problem in uploading HR master Data from excel

Hello
When I am uploading HR master data using excel , I get the error
"Error in info type 0006 and emp no 00000016 with msg id 00 no. 055 msg Fill in all required entry fields "
I have filled in the following fields for infotype 0006:-
SUBTY ='1'
ANSSA = '1'
STRAS , LOCAT ,ORT01, STATE , PSTLZ , LAND1, TELNR.'
But I am getting the error for filling the required entry fields.
I am using The function module HR_MAINTAIN_MASTERDATA.
If anyone has an idea...about the problem, please write

No work schedule rule for key 1 0501NORM 20090101 ###
This type of error is a functional one . It simply means you are trying to feed the field with value which is not acceptable (here work schedule does not exist for specific key). Either contatct your functional collegue to check the configuration or change the provided data.
Also as Bala noticed you should always check if relevant record is allowed to be entered directly in PA30. Make sure all required fields are provided too.The best is to either enter it manually or use SHDB to record this entry and get technical field names. You then know which fields you need to provide in order to create a correct entry.
Regards
Marcin

Upload HR master data - Infotype 0005 error!

Hi all,
I want to upload HR master data with FM HR_MAINTAIN_MASTERDATA. I pass the right values and several infotypes are processed correctly.
the only infotype which is giving me problems is infotype 0005.
Every field in this infotype is filled except P0005-UANSP (leave entitlement value).
I tried passing the fieldname as Q0005-UAN01 with value and also P0005-UAN01 with value, but neither work!
It is a table type on the screen that's why we have to use 01 at the end of fieldname. the other data on the line of the table is filled correctly.
Does anyone have any idea on how to solve this?
Thanks in advance.
Marcel

I found during debugging that formroutine CLEAR_P0005 is called in programm MP000500 which clears the fields ending on 01, 02, 03, 04, 05 and 06.
I don't want this clear to be done, so the only option i have is making a modification i guess to avoid this routine to be called in my specific situation.
Problem solved.

How to upload Bulk Customer Data from Excel or Notepad?

Hi
Could any body explain me how can we upload bulk customer master data into SAP system. How the LSMW functionality works for it. what are the prerequisites to upload the data into the system, and Could any body explain me the detailed procedure to upload Customer master data into the system.
As well I request you to know what are the other functionality we use for uploading. What would be the difference between IDOC and BDC functionalities.
your suggestions will be highly appreciated?
Raghu Ram

hi raghu,
this is sample code of bdc,
REPORT zbdc_cus_create_ctm NO STANDARD PAGE HEADING MESSAGE-ID zsmep.
*& Request ID: ECCK900136
*& Author : seshu
*& Date : 20/03/2007
*& This report Creates customer Master Details through BDC-Call transaction
*& method and download error files to the presentation server.
DATA: BEGIN OF t_tab OCCURS 0,
kunnr TYPE kun16,
bukrs TYPE bukrs,
vkorg TYPE vkorg,
vtweg TYPE vtweg,
spart TYPE spart,
ktokd TYPE ktokd,
name1 TYPE name1_gp,
sortl TYPE sortl,
ort01 TYPE ort01_gp,
land1 TYPE land1_gp,
spras TYPE spras,
pstlz TYPE pstlz,
civve TYPE civve,
akont TYPE akont,
awahr TYPE awahr,
waers TYPE waers_v02d,
kzazu TYPE kzazu_d,
antlf TYPE string.
DATA: END OF t_tab.
DATA: BEGIN OF t_tab1 OCCURS 0,
kunnr TYPE kun16,
bukrs TYPE bukrs,
vkorg TYPE vkorg,
vtweg TYPE vtweg,
spart TYPE spart,
ktokd TYPE ktokd,
name1 TYPE name1_gp,
sortl TYPE sortl,
ort01 TYPE ort01_gp,
land1 TYPE land1_gp,
spras TYPE spras,
pstlz TYPE pstlz,
civve TYPE civve,
akont TYPE akont,
awahr TYPE awahr,
waers TYPE waers_v02d,
kzazu TYPE kzazu_d,
antlf TYPE string.
DATA: END OF t_tab1.
DATA: BEGIN OF g_tab_create OCCURS 0,
kunnr TYPE kunnr,
messa TYPE string.
DATA: END OF g_tab_create.
DATA: BEGIN OF g_tab_error OCCURS 0,
kunnr TYPE kunnr,
messa TYPE string.
DATA: END OF g_tab_error.
DATA: g_tab TYPE TABLE OF string,
g_wa TYPE string.
*DATA: g_tab TYPE TABLE OF t_tab,
g_wa LIKE LINE OF g_tab.
DATA: g_tab1 TYPE TABLE OF string.
*itab for mapping...
DATA: BEGIN OF tab_map OCCURS 0.
INCLUDE STRUCTURE bdcdata.
DATA: END OF tab_map.
*itab for error messages...
DATA: BEGIN OF tab_error OCCURS 0.
INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF tab_error.
DATA: BEGIN OF l_tab OCCURS 0,
l_text TYPE string.
DATA: END OF l_tab.
*delcarations for blocked alv...
TYPE-POOLS: slis.
DATA: l_tab_fieldcatlog TYPE slis_t_fieldcat_alv,
l_tab_fieldcatlog1 TYPE slis_t_fieldcat_alv,
l_layout TYPE slis_layout_alv,
l_events TYPE slis_t_event,
l_events1 TYPE slis_t_event,
l_wa_events LIKE LINE OF l_events,
l_pos TYPE i,
report TYPE sy-repid,
path TYPE string,
path1 TYPE string.
End generated data section ***
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: file TYPE ibipparms-path OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: file1 TYPE ibipparms-path.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = file.
MOVE file TO path.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file1.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = file1.
MOVE file1 TO path1.
AT SELECTION-SCREEN .
IF file EQ file1.
MESSAGE e103(zsmep).
EXIT.
ENDIF.
START-OF-SELECTION.
*call transaction method...
PERFORM call_ctm.
*display the output in blocked alv...
PERFORM disply_block_alv.
*& Form call_ctm
text
FORM call_ctm.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = path
filetype = 'ASC'
HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
data_tab = g_tab
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.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: text TYPE TABLE OF string.
LOOP AT g_tab INTO g_wa.
SPLIT g_wa AT '|' INTO: t_tab-kunnr
t_tab-bukrs
t_tab-vkorg
t_tab-vtweg
t_tab-spart
t_tab-ktokd
t_tab-name1
t_tab-sortl
t_tab-ort01
t_tab-land1
t_tab-spras
t_tab-pstlz
t_tab-civve
t_tab-akont
t_tab-awahr
t_tab-waers
t_tab-kzazu
t_tab-antlf,
TABLE text.
APPEND t_tab.
CLEAR g_wa.
ENDLOOP.
LOOP AT t_tab.
REFRESH tab_map.
PERFORM sub USING 'SAPMF02D' '0100'.
PERFORM sub1 USING 'BDC_CURSOR'
'RF02D-KTOKD'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub1 USING 'RF02D-KUNNR'
t_tab-kunnr.
PERFORM sub1 USING 'RF02D-BUKRS'
t_tab-bukrs.
PERFORM sub1 USING 'RF02D-VKORG'
t_tab-vkorg.
PERFORM sub1 USING 'RF02D-VTWEG'
t_tab-vtweg.
PERFORM sub1 USING 'RF02D-SPART'
t_tab-spart.
PERFORM sub1 USING 'RF02D-KTOKD'
t_tab-ktokd.
PERFORM sub USING 'SAPMF02D' '0110'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNA1-SPRAS'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub1 USING 'KNA1-NAME1'
t_tab-name1.
PERFORM sub1 USING 'KNA1-SORTL'
t_tab-sortl.
PERFORM sub1 USING 'KNA1-ORT01'
t_tab-ort01.
PERFORM sub1 USING 'KNA1-LAND1'
t_tab-land1.
PERFORM sub1 USING 'KNA1-SPRAS'
t_tab-spras.
PERFORM sub1 USING 'KNA1-PSTLZ'
t_tab-pstlz.
PERFORM sub USING 'SAPMF02D' '0120'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNA1-LIFNR'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '0125'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNA1-NIELS'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '0130'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNBK-BANKS(01)'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
PERFORM sub USING 'SAPMF02D' '0340'.
PERFORM sub1 USING 'BDC_CURSOR'
'RF02D-KUNNR'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
PERFORM sub USING 'SAPMF02D' '0370'.
PERFORM sub1 USING 'BDC_CURSOR'
'RF02D-KUNNR'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
PERFORM sub1 USING 'KNA1-CIVVE'
t_tab-civve.
PERFORM sub USING 'SAPMF02D' '0360'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
PERFORM sub USING 'SAPMF02D' '0210'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNB1-AKONT'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub1 USING 'KNB1-AKONT'
t_tab-akont.
PERFORM sub USING 'SAPMF02D' '0215'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNB1-GUZTE'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '0220'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNB5-KNRMA'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '0230'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNB1-VRSNR'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '0310'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNVV-BZIRK'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub1 USING 'KNVV-AWAHR'
t_tab-awahr.
PERFORM sub1 USING 'KNVV-WAERS'
t_tab-waers.
PERFORM sub USING 'SAPMF02D' '0315'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNVV-LPRIO'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub1 USING 'KNVV-KZAZU'
t_tab-kzazu.
PERFORM sub1 USING 'KNVV-ANTLF'
t_tab-antlf.
PERFORM sub USING 'SAPMF02D' '0320'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNVV-PERFK'.
PERFORM sub1 USING 'BDC_OKCODE'
'/00'.
PERFORM sub USING 'SAPMF02D' '1350'.
PERFORM sub1 USING 'BDC_CURSOR'
'RF02D-KUNNR'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
PERFORM sub USING 'SAPMF02D' '0324'.
PERFORM sub1 USING 'BDC_CURSOR'
'KNVP-PARVW(01)'.
PERFORM sub1 USING 'BDC_OKCODE'
'=ENTR'.
CALL TRANSACTION 'XD01' USING tab_map
MODE 'N'
UPDATE 'A'
MESSAGES INTO tab_error.
LOOP AT tab_error.
DATA: l_message TYPE string.
IF tab_error-msgtyp = 'I' OR tab_error-msgtyp = 'S'.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = tab_error-msgid
lang = 'EN'
no = tab_error-msgnr
v1 = tab_error-msgv1
v2 = tab_error-msgv2
v3 = tab_error-msgv3
v4 = tab_error-msgv4
IMPORTING
msg = l_message
EXCEPTIONS
not_found = 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.
ENDIF.
MOVE: t_tab-kunnr TO g_tab_create-kunnr,
l_message TO g_tab_create-messa.
APPEND g_tab_create.
ELSEIF
tab_error-msgtyp = 'E'.
MOVE-CORRESPONDING t_tab TO t_tab1.
APPEND t_tab1.
DATA: text1 TYPE string.
CONCATENATE t_tab-kunnr
t_tab-bukrs
t_tab-vkorg
t_tab-vtweg
t_tab-spart
t_tab-ktokd
t_tab-name1
t_tab-sortl
t_tab-ort01
t_tab-land1
t_tab-spras
t_tab-pstlz
t_tab-civve
t_tab-akont
t_tab-awahr
t_tab-waers
t_tab-kzazu
t_tab-antlf
INTO text1 SEPARATED BY '|'.
l_tab-l_text = text1 .
APPEND l_tab.
*error records downlaod to pc...
PERFORM gui_downlaod.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = tab_error-msgid
lang = 'EN'
no = tab_error-msgnr
v1 = tab_error-msgv1
v2 = tab_error-msgv2
v3 = tab_error-msgv3
v4 = tab_error-msgv4
IMPORTING
msg = l_message
EXCEPTIONS
not_found = 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.
ENDIF.
MOVE: t_tab-kunnr TO g_tab_error-kunnr,
l_message TO g_tab_error-messa.
APPEND g_tab_error.
ENDIF.
ENDLOOP.
REFRESH tab_error.
CLEAR l_message.
ENDLOOP.
ENDFORM. "call_ctm
*& Form sub
text
-->A text
-->B text
FORM sub USING a b.
CLEAR tab_map.
tab_map-program = a.
tab_map-dynpro = b.
tab_map-dynbegin = 'X'.
APPEND tab_map.
ENDFORM. "FORM
" sub
*& Form sub1
text
-->P_0579 text
-->P_0580 text
FORM sub1 USING c d.
CLEAR tab_map.
tab_map-fnam = c.
tab_map-fval = d.
APPEND tab_map.
ENDFORM. " sub1
*END-OF-SELECTION.
*& Form disply_block_alv
text
--> p1 text
<-- p2 text
FORM disply_block_alv .
PERFORM fill_fieldcatlog.
PERFORM fill_fieldcatlog1.
PERFORM call_block_alv.
ENDFORM. " disply_block_alv
*& Form fill_fieldcatlog
text
--> p1 text
<-- p2 text
FORM fill_fieldcatlog .
PERFORM build_catlog USING l_pos 'G_TAB_CREATE' 'KUNNR' '16' text-004.
PERFORM build_catlog USING l_pos 'G_TAB_CREATE' 'MESSA' '90' text-005.
ENDFORM. " fill_fieldcatlog
*& Form BUILD_CATLOG
text
-->P_L_POS text
-->P_0844 text
-->P_0845 text
-->P_0846 text
-->P_TEXT_004 text
FORM build_catlog USING u_pos TYPE any
value(u_0844) TYPE any
value(u_0845) TYPE any
value(u_0846) TYPE any
u_text TYPE any.
DATA: l_wa_fieldcatlog TYPE slis_fieldcat_alv.
ADD 1 TO u_pos.
l_wa_fieldcatlog-col_pos = u_pos.
l_wa_fieldcatlog-tabname = u_0844.
l_wa_fieldcatlog-fieldname = u_0845.
l_wa_fieldcatlog-outputlen = u_0846.
l_wa_fieldcatlog-reptext_ddic = u_text.
APPEND l_wa_fieldcatlog TO l_tab_fieldcatlog.
ENDFORM. " BUILD_CATLOG
*& Form fill_fieldcatlog1
text
--> p1 text
<-- p2 text
FORM fill_fieldcatlog1 .
PERFORM build_catlog1 USING l_pos 'G_TAB_ERROR' 'KUNNR' '16' text-004.
PERFORM build_catlog1 USING l_pos 'G_TAB_ERROR' 'MESSA' '90' text-005.
ENDFORM. " fill_fieldcatlog1
*& Form build_catlog1
text
-->P_L_POS text
-->P_0913 text
-->P_0914 text
-->P_0915 text
-->P_TEXT_004 text
FORM build_catlog1 USING u_pos TYPE any
value(u_0913) TYPE any
value(u_0914) TYPE any
value(u_0915) TYPE any
u_text TYPE any.
DATA: l_wa_fieldcatlog1 TYPE slis_fieldcat_alv.
ADD 1 TO u_pos.
l_wa_fieldcatlog1-col_pos = u_pos.
l_wa_fieldcatlog1-tabname = u_0913.
l_wa_fieldcatlog1-fieldname = u_0914.
l_wa_fieldcatlog1-outputlen = u_0915.
l_wa_fieldcatlog1-reptext_ddic = u_text.
APPEND l_wa_fieldcatlog1 TO l_tab_fieldcatlog1.
ENDFORM. " build_catlog1
*& Form CALL_BLOCK_ALV
text
--> p1 text
<-- p2 text
FORM call_block_alv .
report = sy-repid.
CLEAR l_events.
l_wa_events-name = slis_ev_top_of_page.
l_wa_events-form = 'TOP_OF_PAGE'.
APPEND l_wa_events TO l_events.
CLEAR l_wa_events.
l_wa_events-name = slis_ev_top_of_page.
l_wa_events-form = 'ETOP_OF_PAGE'.
APPEND l_wa_events TO l_events1.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = report
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
IF g_tab_create[] IS INITIAL.
MESSAGE s101(zsmep).
EXIT.
ELSE.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = l_layout
it_fieldcat = l_tab_fieldcatlog
i_tabname = 'G_TAB_CREATE'
it_events = l_events
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = g_tab_create
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
ENDIF.
IF g_tab_error[] IS INITIAL.
MESSAGE s102(zsmep).
ELSE.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = l_layout
it_fieldcat = l_tab_fieldcatlog1
i_tabname = 'G_TAB_ERROR'
it_events = l_events1
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = g_tab_error
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
EXCEPTIONS
PROGRAM_ERROR = 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.
ENDIF.
ENDFORM. " CALL_BLOCK_ALV
*& Form top_of_page
text
--> p1 text
<-- p2 text
FORM top_of_page .
WRITE: 'Created Records'.
ENDFORM. " top_of_page
*& Form ETOP_OF_PAGE
text
--> p1 text
<-- p2 text
FORM etop_of_page .
WRITE: 'Error Records'.
ENDFORM. " ETOP_OF_PAGE
*& Form gui_downlaod
text
--> p1 text
<-- p2 text
FORM gui_downlaod .
MOVE file1 TO path1.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
filename = path1
filetype = 'ASC'
APPEND = ' '
write_field_separator = '|'
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
IMPORTING
FILELENGTH =
TABLES
data_tab = l_tab
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
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. " gui_downlaod
this is one of the bdc method to upload data from notepad to sap.
regards,
seshu.

Outbond interface programme to upload customer master data.

Hi experts,
i need to develop an outbound interface programme to upload customer
master data,which will be received from sap and posted to web methods using
standard function mudule.can any one help me?

Hi,
Hi,
Primary you should have Message type, Idoc type and Function module or Report to process Outbound interface.
If your's is an Customized Process, then follow this.
1. Create Message type in we81.
2. Create segments in We31
3. Create Idoc Type in WE30.
4. Assign Message type to idoc type in WE82.
5.Create an Partner profile in WE20.
6.If you are creating an function Module create it in SE37.
7. Assign it to process code in WE41.
8. Charactersitics of FM in BD51.
9. Assign FM and IDoc And Message type in WE57.
<b>ALE IDOC</b>
Sending System(Outbound ALE Process)
Tcode SALE ? for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 ? Create Model View
Tcode BD82 ? Generate partner Profiles & Create Ports
Tcode BD64 ? Distribute the Model view
Message Type MATMAS
Tcode BD10 ? Send Material Data
Tcode WE05 ? Idoc List for watching any Errors
Receiving System(Inbound ALE )
Tcode SALE ? for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 ? Check for Model view whether it has distributed or not
Tcode BD82 -- Generate partner Profiles & Create Ports
Tcode BD11 Getting Material Data
Tcode WE05 ? Idoc List for inbound status codes
ALE IDOC Steps
Sending System(Outbound ALE Process)
Tcode SALE ?3 for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 !V Create Model View
Tcode BD82 !V Generate partner Profiles & Create Ports
Tcode BD64 !V Distribute the Model view
This is Receiving system Settings
Receiving System(Inbound ALE )
Tcode SALE ?3 for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 !V Check for Model view whether it has distributed or not
Tcode BD82 -- Generate partner Profiles & Create Ports
Tcode BD11 Getting Material Data
Tcode WE05 !V Idoc List for inbound status codes
Message Type MATMAS
Tcode BD10 !V Send Material Data
Tcode WE05 !V Idoc List for watching any Errors
1)a Goto Tcode SALE
Click on Sending & Receiving Systems-->Select Logical Systems
Here Define Logical Systems---> Click on Execute Button
go for new entries
1) System Name : ERP000
Description : Sending System
2) System Name : ERP800
Description : Receiving System
press Enter & Save
it will ask Request
if you want new request create new Request orpress continue for transfering the objects
B) goto Tcode SALE
Select Assign Client to Logical Systems-->Execute
000--> Double click on this
Give the following Information
Client : ERP 000
City :
Logical System
Currency
Client role
Save this Data
Step 2) For RFC Creation
Goto Tcode SM59-->Select R/3 Connects
Click on Create Button
RFC Destination Name should be same as partner's logical system name and case sensitive to create the ports automatically while generating the partner profiles
give the information for required fields
RFC Destination : ERP800
Connection type: 3
Description
Target Host : ERP000
System No:000
lan : EN
Client : 800
User : Login User Name
Password:
save this & Test it & RemortLogin
3)
Goto Tcode BD64 -- click on Change mode button
click on create moduleview
short text : xxxxxxxxxxxxxx
Technical Neme : MODEL_ALV
save this & Press ok
select your just created modelview Name :'MODEL_ALV'.
goto add message type
Model Name : MODEL_ALV
sender : ERP000
Receiver : ERP800
Message type :MATMAS
save & Press Enter
4) Goto Tcode BD82
Give Model View : MODEL_ALV
Partner system : ERP800
execute this by press F8 Button
it will gives you sending system port No :A000000015(Like)
5) Goto Tcode BD64
seelct the modelview
goto >edit>modelview-->distribute
press ok & Press enter
6)goto Tcode : BD10 for Material sending
Material : mat_001
Message Type : MATMAS
Logical System : ERP800
and Execute
7)goto Tcode : BD11 for Material Receiving
Material : mat_001
Message Type : MATMAS
and Execute --> 1 request idoc created for message type Matmas
press enter
Here Master Idoc set for Messge type MATMAS-->press Enter
1 Communication Idoc generated for Message Type
this is your IDOC
Change Pointers
I know how to change the description of a material using ALE Change Pointers.
I will give the following few steps
1) Tcode BD61---> check the change pointers activated check box
save and goback.
2) Tcode BD50---> check the MATMAS check box save and comeback.
3) Tcode BD51---> goto IDOC_INPUT_MATMAS01 select the checkbox save and comeback.
4) Tcode BD52---> give message type : matmas press ok button.
select all what ever you want and delete remaining fields.
save & come back.
5) 5) go to Tcode MM02 select one material and try to change the description and save it
it will effects the target systems material desciption will also changes
6) goto Tcode SE38 give program Name is : RBDMIDOC and Execute
give Message type : MATMAS and Executte
ALE/IDOC Status Codes/Messages
01 Error --> Idoc Added
30 Error --> Idoc ready for dispatch(ALE Service)
then goto SE38 --> Execute the Program RBDMIDOC
29 Error --> ALE Service Layer
then goto SE38 --> Execute the Program RSEOUT00
03 Error --> Data Passed to Port ok
then goto SE38 --> Execute the Program RBDMOIND
12 Error --> Dispatch ok
Inbound Status Codes
50 Error --> It will go for ALE Service Layer
56 Error --> Idoc with Errors added
51 Error --> Application Document not posted
65 Error --> Error in ALE Service Layer
for 51 or 56 Errors do the following steps
goto WE19 > give the IDOC Number and Execute>
Press on Inbound function Module
for 65 Error --> goto SE38 --> Execute the Program RBDAPP01 then your getting 51 Error
Regards

Error in uploading TEXT master data

I got the following error while Creating Infopackage for uploading TEXT Master data:
Error 8 when compiling the upload program:row 431, message: A newer version of data type
/BIC/B0000102000 was
Can anyone let me know how to solve this issue?
Thanks,
Soujanya.

Hi Soujanya,
Check whether the row 431 is having proper data that i matching in Data type with the IO.
Also activate the transfer rule/ Transformations if any. Then try loading the data.
If you are trying to load the Data through the Flat File, close the *.CSV file before actually loading the data & dont open it till it is successfully loaded.
Hope it helps!
Regards,
Pavan

Problem in uploading material master data using BAPI?

Hi all,
I am using BAPI_MATERIAL_SAVEDATA to upload materail master data. Here i have to pass moving average price values in two currenices(using account_view and valuationdata in BAPI). But i found only one field for moving average price i.e moving_pr in valuationdata.
Please help me on how to upload the moving average price in two currencies?
Thanks,
Aravind.

Hi
There is function module BAPI_MATERIAL_SAVEREPLICA where
VALUATIONDATA parameter is in the tables tab.
But I didn't test it. Try, may be it works as you need.

Upload HR Master data

Hi all,
How to Load HR Master data, is there any specific BAPI or Function Modules for it.
Also HR_INFOTYPE_OPERATION function module for maintaing single records and HR_MAINTAIN_MASTERDATA for maintaing multiple records.
is there any other FM or BAPI for creating this type of data.
also how to create a new Employee.
Also how to maintain it.
Points will be sured for valuable answers.
Thanks
Sanket sethi

for data upload u can use the following
LSMW functional cosnultant
Scat
BDC
IDHOCs
i prefere BDC than LSMW

Upload HR master data Parmanent Address & home address by a BDC Program.

Hi exparts,
I writte a BDC program to upload HR master data for tcode PA30.
But I can upload parmanet address with this program.
I want to upload parmanent address then home address .
Can anybody help , how can I upload Parmanent Address & home address   by a single BDC program.
Thanks
Edited by: Abu Rayhan on Jun 2, 2011 1:01 PM

report ZHR_SMP
       no standard page heading line-size 255.
Internal Table TYPE Declaration for keeping Legacy Data
TYPES: BEGIN OF TW_MAIN,
        PERNR LIKE RP50G-PERNR,
        BEGDA LIKE P0006-BEGDA,
        ANSSA LIKE P0006-ANSSA,
        STRAS LIKE P0006-STRAS,
        ORT01 LIKE P0006-ORT01,
        STATE LIKE P0006-STATE,
        PSTLZ LIKE P0006-PSTLZ,
        LAND1 LIKE P0006-LAND1,
        END OF TW_MAIN,
       TT_MAIN TYPE STANDARD TABLE OF TW_MAIN.
DATA : WA_MAIN TYPE TW_MAIN,
       IT_MAIN TYPE TT_MAIN,
       WA_ITEM TYPE TW_MAIN,
       IT_ITEM TYPE TT_MAIN,
       WA_BDCDATA TYPE BDCDATA,
       IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA,
       WA_BDCMSGCOLL TYPE BDCMSGCOLL,
       IT_BDCMSGCOLL TYPE STANDARD TABLE OF BDCMSGCOLL.
Internal table for enable Required options using Call transaction & Session Method.
DATA: it_intern TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.
DATA ls_ctu_params TYPE ctu_params.
DATA : U_MODE(1),
       U_UPDT(1),
       FNAM(30),
       STR TYPE STRING.
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
PARAMETERS p_fname TYPE localfile OBLIGATORY.
PARAMETERS: p_begcol TYPE i DEFAULT 1,
            p_begrow TYPE i DEFAULT 2,
            p_endcol TYPE i DEFAULT 20,
            p_endrow TYPE i DEFAULT 1600.
SELECTION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN : BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS : P_FIRST RADIOBUTTON GROUP RB DEFAULT 'X',
             P_SECOND RADIOBUTTON GROUP RB,
             P_THIRD RADIOBUTTON GROUP RB.
SELECTION-SCREEN : END OF BLOCK B2.
SELECTION-SCREEN : BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS : P_SYN RADIOBUTTON GROUP RB1,
             P_ASYN RADIOBUTTON GROUP RB1   DEFAULT 'X'.
SELECTION-SCREEN : END OF BLOCK B3.
SELECTION-SCREEN : END OF BLOCK B4.
Initialize the work are and internal table body
INITIALIZATION.
PERFORM INTIALIZE_ITAB.
*Get F4 help based on which file need to selected
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM GETFILENAME.
START-OF-SELECTION.
Upload the file from Excel to Internal Table
PERFORM FILE_UPLOAD.
Selection Method for Foreground or background or call transactio or session method.
PERFORM SCREEN_FLAG.
Uploading the data from Legacy Sytem to SAP.
PERFORM BDC_TRANSACTION.
END-OF-SELECTION.
*&      Form BDC_TRANSACTION
      text
--> p1        text
<-- p2        text
FORM BDC_TRANSACTION.
IT_ITEM = IT_MAIN.
PERFORM CALL_TRANSACTION.
ENDFORM.                    " BDC_TRANSACTION
*&      Form CALL_TRANSACTION
      text
--> p1        text
<-- p2        text
FORM CALL_TRANSACTION .
LOOP AT IT_MAIN INTO WA_MAIN.
    CLEAR WA_BDCDATA.
    REFRESH IT_BDCDATA.
    perform bdc_dynpro      using 'SAPMP50A' '1300'.
    perform bdc_field       using 'BDC_OKCODE' '/00'.
    perform bdc_field       using 'RP50G-PERNR' WA_MAIN-PERNR.
    perform bdc_field       using 'RP50G-TIMR6' 'X'.
    perform bdc_field       using 'BDC_CURSOR' 'RP50G-CHOIC'.
    perform bdc_field       using 'RP50G-CHOIC' '0006'.
    perform bdc_dynpro      using 'SAPMP50A' '1300'.
    perform bdc_field       using 'BDC_OKCODE' '=INS'.
    perform bdc_field       using 'BDC_CURSOR' 'RP50G-PERNR'.
    perform bdc_field       using 'RP50G-PERNR' WA_MAIN-PERNR.
    perform bdc_field       using 'RP50G-TIMR6' 'X'.
    perform bdc_field       using 'RP50G-CHOIC' 'Addresses'.
    perform bdc_dynpro      using 'SAPMSSY0' '0120'.
    perform bdc_field       using 'BDC_CURSOR' '04/03'.
    perform bdc_field       using 'BDC_OKCODE' '=ENTR'.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-PSTLZ'.
    perform bdc_field       using 'BDC_OKCODE' '/00'.
    perform bdc_field       using 'P0006-BEGDA' WA_MAIN-BEGDA.
    perform bdc_field       using 'P0006-ENDDA' '12-31-9999'.
    perform bdc_field       using 'P0006-ANSSA' WA_MAIN-ANSSA.
    perform bdc_field       using 'P0006-STRAS' WA_MAIN-STRAS.
    perform bdc_field       using 'P0006-ORT01' WA_MAIN-ORT01.
    perform bdc_field       using 'P0006-STATE' WA_MAIN-STATE.
    perform bdc_field       using 'P0006-PSTLZ' WA_MAIN-PSTLZ.
    perform bdc_field       using 'P0006-LAND1' WA_MAIN-LAND1.
    perform bdc_dynpro      using 'SAPLSBAL_DISPLAY' '0200'.
    perform bdc_field       using 'BDC_OKCODE' '=&ONT'.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-STATE'.
    perform bdc_field       using 'BDC_OKCODE' '/00'.
    perform bdc_field       using 'P0006-BEGDA' WA_MAIN-BEGDA.
    perform bdc_field       using 'P0006-ENDDA' '12-31-9999'.
    perform bdc_field       using 'P0006-ANSSA' WA_MAIN-ANSSA.
    perform bdc_field       using 'P0006-STRAS' WA_MAIN-STRAS.
    perform bdc_field       using 'P0006-ORT01' WA_MAIN-ORT01.
    perform bdc_field       using 'P0006-STATE' WA_MAIN-STATE.
    perform bdc_field       using 'P0006-PSTLZ' WA_MAIN-PSTLZ.
    perform bdc_field       using 'P0006-LAND1' WA_MAIN-LAND1.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_OKCODE' '/EBCK'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-BEGDA'.
    perform bdc_dynpro      using 'SAPLSPO1' '0200'.
    perform bdc_field       using 'BDC_OKCODE' '=YES'.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-PSTLZ'.
    perform bdc_field       using 'BDC_OKCODE' '/00'.
    perform bdc_field       using 'P0006-BEGDA' WA_MAIN-BEGDA.
    perform bdc_field       using 'P0006-ENDDA' '12-31-9999'.
    perform bdc_field       using 'P0006-ANSSA' WA_MAIN-ANSSA.
    perform bdc_field       using 'P0006-STRAS' WA_MAIN-STRAS.
    perform bdc_field       using 'P0006-ORT01' WA_MAIN-ORT01.
    perform bdc_field       using 'P0006-STATE' WA_MAIN-STATE.
    perform bdc_field       using 'P0006-PSTLZ' WA_MAIN-PSTLZ.
    perform bdc_field       using 'P0006-LAND1' WA_MAIN-LAND1.
    perform bdc_dynpro      using 'SAPLSBAL_DISPLAY' '0200'.
    perform bdc_field       using 'BDC_OKCODE' '=&ONT'.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-PSTLZ'.
    perform bdc_field       using 'BDC_OKCODE' '/00'.
    perform bdc_field       using 'P0006-BEGDA' WA_MAIN-BEGDA.
    perform bdc_field       using 'P0006-ENDDA' '12-31-9999'.
    perform bdc_field       using 'P0006-ANSSA' WA_MAIN-ANSSA.
    perform bdc_field       using 'P0006-STRAS' WA_MAIN-STRAS.
    perform bdc_field       using 'P0006-ORT01' WA_MAIN-ORT01.
    perform bdc_field       using 'P0006-STATE' WA_MAIN-STATE.
    perform bdc_field       using 'P0006-PSTLZ' WA_MAIN-PSTLZ.
    perform bdc_field       using 'P0006-LAND1' WA_MAIN-LAND1.
    perform bdc_dynpro      using 'MP000600_CE' '2010'.
    perform bdc_field       using 'BDC_CURSOR' 'P0006-BEGDA'.
    perform bdc_field       using 'BDC_OKCODE' '=UPD'.
    perform bdc_field       using 'P0006-BEGDA' WA_MAIN-BEGDA.
    perform bdc_field       using 'P0006-ENDDA' '12-31-9999'.
    perform bdc_field       using 'P0006-ANSSA' WA_MAIN-ANSSA.
    perform bdc_field       using 'P0006-STRAS' WA_MAIN-STRAS.
    perform bdc_field       using 'P0006-ORT01' WA_MAIN-ORT01.
    perform bdc_field       using 'P0006-STATE' WA_MAIN-STATE.
    perform bdc_field       using 'P0006-PSTLZ' WA_MAIN-PSTLZ.
    perform bdc_field       using 'P0006-LAND1' WA_MAIN-LAND1.
    ls_ctu_params-dismode = U_MODE.
    ls_ctu_params-updmode = U_UPDT.
    ls_ctu_params-NOBINPT = 'X'.
    CALL TRANSACTION 'PA30' USING it_bdcdata
           OPTIONS FROM ls_ctu_params MESSAGES INTO IT_BDCMSGCOLL.
    PERFORM message.
    CLEAR: WA_MAIN, WA_ITEM.
ENDLOOP.
ENDFORM.                    " CALL_TRANSACTION
*&      Form INTIALIZE_ITAB
      text
--> p1        text
<-- p2        text
FORM INTIALIZE_ITAB .
CLEAR: WA_MAIN,
         WA_ITEM,
         WA_BDCDATA,
         WA_BDCMSGCOLL,
         LS_CTU_PARAMS.
REFRESH: IT_MAIN,
           IT_ITEM,
           IT_INTERN,
           IT_BDCDATA,
           IT_BDCMSGCOLL.
ENDFORM.                    " INTIALIZE_ITAB
*&      Form GETFILENAME
      text
--> p1        text
<-- p2        text
FORM GETFILENAME .
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME = SYST-CPROG
      DYNPRO_NUMBER = SYST-DYNNR
      FIELD_NAME    = ' '
    IMPORTING
      FILE_NAME     = p_fname.
ENDFORM.                    " GETFILENAME
*&      Form FILE_UPLOAD
      text
--> p1        text
<-- p2        text
FORM FILE_UPLOAD .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename    = p_fname
      i_begin_col = p_begcol
      i_begin_row = p_begrow
      i_end_col   = p_endcol
      i_end_row   = p_endrow
    TABLES
      intern      = it_intern.
Moving the data to internal table.
PERFORM MOVE_DATA.
ENDFORM.                    " FILE_UPLOAD
*&      Form MOVE_DATA
      text
--> p1        text
<-- p2        text
FORM MOVE_DATA .
DATA : lv_index TYPE i.
FIELD-SYMBOLS <fs>.
*--- Sorting the internal table
SORT it_intern BY row col.
CLEAR it_intern.
LOOP AT it_intern.
    MOVE it_intern-col TO lv_index.
*--- Assigning the each WA_DATA to an internal table row
    ASSIGN COMPONENT lv_index OF STRUCTURE wa_main TO <fs>.
*--- Asigning the field value to a field symbol
    MOVE it_intern-value TO <fs>.
    AT END OF row.
      APPEND wa_main to it_main.
      CLEAR wa_main.
    ENDAT.
ENDLOOP.
ENDFORM.                    " MOVE_DATA
*&      Form SCREEN_FLAG
      text
--> p1        text
<-- p2        text
FORM SCREEN_FLAG .
IF P_FIRST = 'X'.
    U_MODE = 'A'.
ENDIF.
IF P_SECOND = 'X'.
    U_MODE = 'N'.
ENDIF.
IF P_THIRD = 'X'.
    U_MODE = 'E'.
ENDIF.
IF P_SYN = 'X'.
    U_UPDT = 'S'.
ENDIF.
IF P_ASYN = 'X'.
    U_UPDT = 'A'.
ENDIF.
ENDFORM.                    " SCREEN_FLAG
*&      Form BDC_DYNPRO
      text
     -->P_0161   text
     -->P_0162   text
FORM BDC_DYNPRO USING   program dynpro.
CLEAR WA_BDCDATA.
wa_bdcdata-program = program.
wa_bdcdata-dynpro = dynpro.
wa_bdcdata-dynbegin = 'X'.
APPEND WA_BDCDATA TO IT_BDCDATA.
ENDFORM.                    " BDC_DYNPRO
*&      Form BDC_FIELD
      text
     -->P_0211   text
     -->P_LW_MAIN_TEXT1 text
FORM BDC_FIELD USING   FNAM FVAL.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
APPEND WA_BDCDATA TO IT_BDCDATA.
ENDFORM.                    " BDC_FIELD
*&      Form MESSAGE
      text
--> p1        text
<-- p2        text
FORM MESSAGE .
DATA: MSG TYPE STRING.
LOOP AT IT_BDCMSGCOLL INTO WA_BDCMSGCOLL.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        ID   = SY-MSGID
        LANG = SY-LANGU
      IMPORTING
        MSG = MSG.
    IF WA_BDCMSGCOLL-MSGTYP = 'S'.
      WRITE:/ MSG,'For',WA_MAIN-PERNR.
    ENDIF.
ENDLOOP.
ENDFORM.                    " MESSAGE
FILE FORMAT:
PERNR     BEGDA     ANSSA     STRAS     ORT01     STATE     PSTLZ     LAND1
10270     8/2/2011     1(Permanent)     SSS     ban     01     578987     IN
10270     8/2/2011     3(Home)     SSS     ban     01     578987     IN

How to upload pa master data. means 0000,00001,0002,0006 and etc. can anybody give me brief explination?

Similar Messages

Maybe you are looking for