UPLOAD PO TEXT - MM01, MM02

HI experts,
is there anyway to upload Material PO TEXT in Material master (ie. in mm01 or mm02)?
I tried through SHDB but it is not at all working...
The recorder doesn't record the text entered in that Editor.
Here my Keyuser wants to upload this text for certain materials only..(mass upload)
PLs help ASAP.
Regards Snehal

Hello Snehal,
The Texts are normally created/uploaded using the Function Module CREATE_TEXT.
They can be retrieved using READ_TEXT.
Pls reward if the info helps you.
With Regards
Vijay Gajavalli

Similar Messages

  • How to upload material text  in mm02 using bdc table control

    i have problem to upload material Description in mm02 using bdc.
    my text file is like
    2000251     AF     A12345               
    2000251     AR     B12345               
    2000251     BG     C12345               
    2000252     AF     F12345               
    2000252     AR     G12345               
    2000252     AF     H12345     
    i want to upload material number, language, and material description, how can i upload pls help me.

    Hi,
    Try with bapi , bapi_material_save_data.. didn't exactly remember it,Please check the same.
    Regards,
    Nagaraj

  • Upload Material Text in MM02

    Hi ,
    I want to Uplaod Material text in MM02 . Around more than upto 2000 materials.
    i m trying to uplaod using call function 'CREATE_TEXT'. But it gives error in mm02 like, no text maintained.
    give me proper solution,
    thnxs
    Regards,
    Swapnil Vaidya

    Swapnil
    Check whether you are passing correct Text ID, Text Object and Text Name to the function module..
    Thanks
    Amol Lohade

  • Update sales text in MM02

    Hi Experts,
    We are trying to upload sales text in MM02 transaction, which does not have screen field. Please advise whether I can use SAVE_TEXT or BAPI to change material. Sample code will be very much helpful.
    Thanks in advance.

    Hi
    You have to use the CREATE_TEXT fun module and to pass the paramters OBJECT,ID, OBJECTNAME and LANGUAGE correctly after declaring them correctly
    see the sample code for long text creation
    REPORT zmm_longtext
           NO STANDARD PAGE HEADING
           LINE-SIZE 255.
    Internal Table for Upload of Long Texts Data
    DATA: BEGIN OF itab1 OCCURS 0,
            matnr    LIKE mara-matnr,    " Material
            text1    LIKE tline-tdline,  " Long Text
            text2    LIKE tline-tdline,  " Long Text
            text3    LIKE tline-tdline,  " Long Text
            text4    LIKE tline-tdline,  " Long Text
            text5    LIKE tline-tdline,  " Long Text
            text6    LIKE tline-tdline,  " Long Text
            text7    LIKE tline-tdline,  " Long Text
            text8    LIKE tline-tdline,  " Long Text
            text9    LIKE tline-tdline,  " Long Text
            text10   LIKE tline-tdline,  " Long Text
            text11   LIKE tline-tdline,  " Long Text
            text12   LIKE tline-tdline,  " Long Text
            text13   LIKE tline-tdline,  " Long Text
            text14   LIKE tline-tdline,  " Long Text
            text15   LIKE tline-tdline,  " Long Text
            text16   LIKE tline-tdline,  " Long Text
            text17   LIKE tline-tdline,  " Long Text
            text18   LIKE tline-tdline,  " Long Text
            text19   LIKE tline-tdline,  " Long Text
            text20   LIKE tline-tdline,  " Long Text
            text21   LIKE tline-tdline,  " Long Text
            text22   LIKE tline-tdline,  " Long Text
            text23   LIKE tline-tdline,  " Long Text
            text24   LIKE tline-tdline,  " Long Text
            text25   LIKE tline-tdline,  " Long Text
          END OF itab1.
    Internal Table for Upload of Long Texts Data
    DATA: BEGIN OF itab OCCURS 0,
            matnr LIKE mara-matnr,    " Material
            text  LIKE tline-tdline,  " Long Text
          END OF itab.
    To create Long Text lines for CREATE_TEXT function module
    DATA:BEGIN OF dt_lines OCCURS 0.
            INCLUDE STRUCTURE tline.   " Long Text
    DATA:END OF dt_lines.
    Variable declarations for CREATE_TEXT function module
    DATA : dl_name TYPE thead-tdname,   " Object Name
           dl_lan TYPE thead-tdspras,   " Language
           gv_matnr TYPE matnr.
    Constants
    CONSTANTS:
    Object ID for Long Text of Material Basic Data 1
      c_best     TYPE thead-tdid VALUE 'GRUN',
      c_material TYPE thead-tdobject VALUE 'MATERIAL'. " Object
    Parameters
    PARAMETERS p_file LIKE rlgrap-filename.
    At selection-screen on Value Request for file Name
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
    Get the F4 Values for the File
      CALL FUNCTION 'F4_FILENAME'
        EXPORTING
          program_name  = syst-cprog
          dynpro_number = syst-dynnr
        IMPORTING
          file_name     = p_file.
    Start Of Selection
    START-OF-SELECTION.
    *To Upload Flat file
      CALL FUNCTION 'UPLOAD'
        EXPORTING
          filename                = p_file
          filetype                = 'DAT'
        TABLES
          data_tab                = itab1
        EXCEPTIONS
          conversion_error        = 1
          invalid_table_width     = 2
          invalid_type            = 3
          no_batch                = 4
          unknown_error           = 5
          gui_refuse_filetransfer = 6
          OTHERS                  = 7.
      SORT itab1 BY matnr.
      LOOP AT itab1.
        CLEAR gv_matnr.
        SELECT SINGLE matnr INTO gv_matnr
           FROM mara WHERE bismt = itab1-matnr.
        IF itab1-text25 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text25.
          APPEND itab.
        ENDIF.
        IF itab1-text24 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text24.
          APPEND itab.
        ENDIF.
        IF itab1-text23 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text23.
          APPEND itab.
        ENDIF.
        IF itab1-text22 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text22.
          APPEND itab.
        ENDIF.
        IF itab1-text21 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text21.
          APPEND itab.
        ENDIF.
        IF itab1-text20 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text20.
          APPEND itab.
        ENDIF.
        IF itab1-text19 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text19.
          APPEND itab.
        ENDIF.
        IF itab1-text18 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text18.
          APPEND itab.
        ENDIF.
        IF itab1-text17 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text17.
          APPEND itab.
        ENDIF.
        IF itab1-text16 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text16.
          APPEND itab.
        ENDIF.
        IF itab1-text15 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text15.
          APPEND itab.
        ENDIF.
        IF itab1-text14 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text14.
          APPEND itab.
        ENDIF.
        IF itab1-text13 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text13.
          APPEND itab.
        ENDIF.
        IF itab1-text12 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text12.
          APPEND itab.
        ENDIF.
        IF itab1-text11 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text11.
          APPEND itab.
        ENDIF.
        IF itab1-text10 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text10.
          APPEND itab.
        ENDIF.
        IF itab1-text9 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text9.
          APPEND itab.
        ENDIF.
        IF itab1-text8 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text8.
          APPEND itab.
        ENDIF.
        IF itab1-text7 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text7.
          APPEND itab.
        ENDIF.
        IF itab1-text6 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text6.
          APPEND itab.
        ENDIF.
        IF itab1-text5 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text5.
          APPEND itab.
        ENDIF.
        IF itab1-text4 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text4.
          APPEND itab.
        ENDIF.
        IF itab1-text3 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text3.
          APPEND itab.
        ENDIF.
           IF itab1-text2 NE ' '.
        itab-matnr = gv_matnr.
        itab-text  = itab1-text2.
        APPEND itab.
           ENDIF.
        IF itab1-text1 NE ' '.
          itab-matnr = gv_matnr.
          itab-text  = itab1-text1.
          APPEND itab.
        ENDIF.
        CLEAR itab.
      ENDLOOP.
      DELETE itab WHERE matnr EQ ' '.
    Upload the Texts
      SORT itab BY matnr.
      LOOP AT itab.
        dt_lines-tdformat = 'ST'.
        dt_lines-tdline = itab-text.
        APPEND dt_lines.
        dl_lan = sy-langu.
        dl_name = itab-matnr.
    Call the Function Module to Create Text
        CALL FUNCTION 'CREATE_TEXT'
          EXPORTING
            fid         = c_best
            flanguage   = dl_lan
            fname       = dl_name
            fobject     = c_material
            save_direct = 'X'
            fformat     = '*'
          TABLES
            flines      = dt_lines
          EXCEPTIONS
            no_init     = 1
            no_save     = 2
            OTHERS      = 3.
        IF sy-subrc <> 0.
          WRITE:/ 'Long Text Creation failed for Material'(001),
                 itab-matnr.
        ELSE.
          WRITE:/ 'Long Text Created Successfully for Material'(002),
                 itab-matnr.
        ENDIF.
        AT END OF matnr.
          REFRESH dt_lines.
        ENDAT.
      ENDLOOP.
    <b>Reward points for useful Answers</b>
    Regards
    Anji

  • Purchase Order Text in MM01, MM02 dependant on Planyt ??

    Hello,
    In SAP standard, the purchase order text in MM01, MM02, MM03 will not be depedant on the plan , Is there any ways or configuration that allows user to create this text dependant on the plan in MM01 ?
    Thanks

    Hello,
    I am afraid I must confirm you, that the System is working as designed.        
    Although the System asks for a plant when maintaining the Purchase Order  Text view, the text is stored at client level and not at plant level.          
    The basic data text, the inspection text, the internal comment, the material description and the sales text are as well maintained at client level. The only text that can be maintained at plant level is the material memo in the MRP 4 view.
    You can maintain plant specific texts in the purchasing info record.                                                                               
    Regards,
    Mauro

  • Protecting long text in MM01 MM02

    Hi all
    my requirements is to protect material basic data long text (trx MM01, MM02) for a specific user. How can I do that?
    Note that I can't use authority object M_MATE_MAN, cause only long text need to be protected.
    My SAP release is 4.6C
    Regards

    Hi Stefano,
                     We had a similar requirement and we used the userexit to do prevent the changes. You can create a dummy auth and then if the field changes you can check this object to allow or disallow the changes.
    EXIT_SAPLMGMU_001
    Hope this helps
    Deep

  • Problem updating basic data text for a certain language via MM01 / MM02

    We are facing the following problem :
    We have materials where we maintain the basic data text via MM02 in different languages ( Dutch, English, French, German, Japanese and polish).
    When we copy a material to a new one and we would like to update the basic data text we can do this directly except for some reason for Japanese.
    For japanese we first must press the Editor Icon, we than get the editor were we can change the text and from that moment on everyting is ok.
    But we would like to update the text like we do for the other languages without first pressing the editor icon.
    We are running 4.7 and the sapgui is 7.1 patch 18.

    We are facing the following problem :
    We have materials where we maintain the basic data text via MM02 in different languages ( Dutch, English, French, German, Japanese and polish).
    When we copy a material to a new one and we would like to update the basic data text we can do this directly except for some reason for Japanese.
    For japanese we first must press the Editor Icon, we than get the editor were we can change the text and from that moment on everyting is ok.
    But we would like to update the text like we do for the other languages without first pressing the editor icon.
    We are running 4.7 and the sapgui is 7.1 patch 18.

  • Upload material description in mm02

    i want to upload material description in mm02 using bdc but i dont know how to upload it. Moderator Message: This is not a training forum and we cant help you there
    my text file is like
    2000251 AF A12345
    2000251 AR B12345
    2000251 BG C12345
    2000252 AF F12345
    2000252 AR G12345
    2000252 AF H12345
    in same material number there r more then one text then how can i upload .
                                  'SKTEXT-MAKTX(02)'.
    clear  COUNTER.
    counter  = 1.
    LOOP AT IT_TAB INTO WA_TAB WHERE MATNR = WA_ITAB-MATNR.
    counter = counter  + 1.
         CONCATENATE 'MAKT-SPRAS(0' COUNTER ')' INTO V_CHAR. "(02)
          PERFORM BDC_FIELD       USING V_CHAR
                                        WA_TAB-SPRAS.
          CLEAR V_CHAR.
         CONCATENATE 'MAKT-MAKTX(0' COUNTER ')' INTO V_CHAR. "(02)
         perform bdc_field       using V_CHAR
                                  WA_TAB-MAKTX.
    *perform bdc_field       using 'SKTEXT-SPRAS(02)'
                                 'AF'.
    *perform bdc_field       using 'SKTEXT-SPRAS(03)'
                                 'BG'.
    *perform bdc_field       using 'SKTEXT-SPRAS(04)'
                                 'CS'.
    *perform bdc_field       using 'SKTEXT-MAKTX(02)'
                                 'avani'.
    *perform bdc_field       using 'SKTEXT-MAKTX(03)'
                                 'avani1'.
    *perform bdc_field       using 'SKTEXT-MAKTX(04)'
                                 'avani2'.
    clear wa_tab.
    ENDLOOP.
    Edited by: kishan P on Nov 13, 2010 2:32 PM

    in mm02 Basic Data -> additional data -> material description and language
    i want to upload language and material description

  • Addtional field display in search help for plant in MM01/MM02/MM03

    Hi Experts,
    my requirment is that when see search values of ( F4) plant field in MM01/MM02/MM03 t.codes only avilable plant and name1 values . i need to display name2 values also. How i can search help of plant field should be enhanced.
    Regards
    Jaya

    Hi,
    You need to:
    1/ append ALV grid structure PLM_ALV_116 with field (in SE11)
    2/ in form WERKS_LISTE in include LMATEFLI you need to implement following modyfication selecting NAME2 for all the plants which are to be shown:
    FORM werks_liste.
    * convert into ALV list
      DATA: c_structure_name TYPE tabname VALUE 'PLM_ALV_116'.
      DATA: status_set TYPE slis_formname VALUE 'ALV_PF_STATUS1' .
      DATA: et_list TYPE TABLE OF gs_list_type_06 .
      DATA: l_et_list LIKE LINE OF et_list .
      DATA: l_seqwerk LIKE LINE OF seqwerk .
    * Prapering data to be display
    *  SET TITLEBAR  'TIT' WITH text-003. Note 821186
      G_titlebar = text-003.
      LOOP AT seqwerk INTO l_seqwerk  .
        MOVE-CORRESPONDING l_seqwerk TO l_et_list .
        APPEND l_et_list TO et_list .
      ENDLOOP .
    "-------->INSERT
      SELECT name2 FROM t001W
        INTO CORRESPONDING-FIELDS OF TABLE et_list
        FOR ALL ENTRIES IN et_list
        WHERE werks EQ et_list-werks.
    "<--------
    * Praper fields for ALV Disply
      PERFORM alv_list_fieldcat_create
            USING lt_fieldcat c_structure_name .
    * Diplay ALV list
      PERFORM alv_list_display TABLES et_list[]
                               USING  c_structure_name
                                      status_set
                                      space.
    ENDFORM.                    "WERKS_LISTE
    Regards,
    Marcin

  • Open Transaction MM01/MM02 with multiple views using  CALL TRANSACTION

    Hi All,
    I want to open MM01/MM02 with multiple views using call transaction but in the parameter ID for Views (MMX) I can pass status of only one View.
      SET PARAMETER ID 'MAT' FIELD v_mat.
      SET PARAMETER ID 'VKO' FIELD ' '.
      SET PARAMETER ID 'MTA' FIELD IT_MOFF-MTART.
      SET PARAMETER ID 'MTP' FIELD IT_MOFF-MBRSH.
      SET PARAMETER ID 'VTW' FIELD ' '.
      SET PARAMETER ID 'BWT' FIELD ' '.
      SET PARAMETER ID 'LGT' FIELD ' '.
      SET PARAMETER ID 'MXX' FIELD 'K'.     "Sales View
      SET PARAMETER ID 'MM5' FIELD ' '.
      CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN
    Please suggest.
    Regards,
    Divya

    I do not exactly understand what you mean, but what i already did:
    - I checked that the fields are from the same type.
    - KUNNR is initialized! I already had a look to the debugger, that's why i'm posting this in this forum.
    any more comments on this ?
    maybe i have to change anything in the z-transaction. Btw, this is what the parameter looks like in the transaction:
    SELECTION-SCREEN BEGIN OF BLOCK Debitoren WITH FRAME TITLE text-001.
      PARAMETERS pkunnr type kna1-kunnr OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK Debitoren.
    Edited by: Sven Delangle on Sep 3, 2010 2:42 PM

  • Change the field description of a field in MM01,MM02, and MM03 Transaction

    Hi Experts,
    I had a requirement to change the field description of a field in MM01,MM02, and MM03. I know how to change the description of field in CMOD. In my requirement they need this new description only in the above mention transaction. So please let me know how we can do this?
    Regards,
    Ram

    Hi you can do this by SPRO transaction. Here you can copy the subscreen where you want the description of the field changed. And in the custom subscreen go to the Element list- >Texts I/O templates , Here you can change the description. After all this the customized subscreen is assigned in the proper sequence.  The step by step process is below:
    Step 1:
    Click on the button u2018SAP Reference IMGu2019. Then follow the path Logistics-General -> Material Master -> Configuring the Material Master. When this particular node is expanded, a drop down list of 7 different executable options appears.
    Step 2: Execute the option u2018Create Program for Customized Subscreensu2019
    Step 3: Copy the screens required to the custom function group.
    Step 4: In transaction SPRO, execute the option u2018Define Structure of Data Screens for each Screen sequenceu2019.
    Step 5: Now in transaction SPRO execute the option Assign Screen sequences to User/ Material Type/ Transaction/ Industry Sector.

  • How to upload a text file from a shared folder and provide an o/p

    how to upload a text file from a shared folder and provide an o/p  containing the details in each order in the text file

    Hi,
    Use <b>GUI_UPLOAD</b> to upload a text file from a shared folder.
    Use <b>GUI_DOWNLOAD</b> to download data in a file on the presentation server or use <b>OPEN DATASET, TRANSFER</b> and <b>CLOSE DATASET</b> statements to download data to the application server.
    Now, I hope the code for data fetching, if required, is already present in the report.
    Reward points if the answer is helpful.
    Regards,
    Mukul

  • Uploading Importing text file & crosstab display

    <p> I want to upload a text tab delimited file into our db, currently we
    are uploading it to a temp table in the db, do some validation checks and write
    to a table when done. I have two questions:</P>
    <p> 1) Is there a more efficient way of upload/importing flat files into
    the db via forms, like loading data into a non db data block and working on the
    data via loops rather than sql in a temp table.</P>
    <P> 2) I want to present the data to the user(for verification) via a form
    screen as they have read it in, the only way I can think of doing this, is
    populating a temp table and then using a data block based on a stored procedure
    that contains a dynamic pivot query package since I don't know the
    number of columns that the file will contain. Data blocks can do either
    vertical or horizontal alignment but not grid.</P>
    <P> File will take the format of: </P>
               col1           col2            col3
    row1    data_r1c1   data_r1c2   data_r1c3
    row2    data_r2c1   data_r2c2   data_r2c3
    row3    data_r3c1   data_r3c2   data_r3c3
    row4    data_r4c1   data_r4c2   data_r4c3
    <BR>
         <P>Thank you in advance </P>

    Thank you for your reply
    1) It's a utility for users and so it has to be through forms
    Presently I think it is better to read it in to a temp table then I can use sql for validation which would be faster than looping through blocks. But with this approach I'm just a little worried about Lost Updates e.g. what if someone is changing scores in the regular update screen while another person is trying to import them via the import utility.
    2) I have to use a stored procedure because I don't know how many columns a user will want to load in, sometimes it could be 2,3 or 5 etc. So basically I am looking at a way of presenting the data from it's stored format in it's read in format i.e. file format
    File format =
             col1           col2            col3           coln
    row1  data_r1c1   data_r1c2   data_r1c3   data_r1cn
    row2  data_r2c1   data_r2c2   data_r2c3   data_r2cn
    row3  data_r3c1   data_r3c2   data_r3c3   data_r3cn
    rown  data_rnc1   data_rnc2   data_rnc3   data_rncn
    It is stored in the temp table as
    row1    col1   data_r1c1
    row2    col1   data_r2c1
    row1    col2   data_r1c2
    row2    col2   data_r2c2
    Example
             Test1    Test2    Test3    Test4
    John   54        45         70         65
    Jane   38        55         72         70
    Stored in the temp and subsequently written to Student Score table as
    Student    Test      Score
    John        Test1    54
    John      Test2      45
    John      Test3      70
    John      Test4      65
    Jane      Test1      38
    Jane      Test2      55
    Jane      Test3      72
    Jane      Test4      70

  • How to upload a text in .pdf to convert it?

    How to upload a text in .pdf to convert it?

    How to upload a text in .pdf to convert it?

  • How to upload a text in the customer master?

    hiall,
    in vd02 u go to extras->texts.
    Now I have to upload a text there..
    so i passed the text objetct-knvv
                                   name-kunnrvkorgvtweg+spart
                                   id-the rewuired agains which i have to upload
                                   lang-en
    i used fm save_text in badi method read_add_on_data in prog sapmvf02d.
    though the fm is working but when i am executing vd02 again the text is not appearing in vd02..Can u help me with this..

    Hi,
            Upload Program for Xk01 ..
    REPORT Y730_BDC5 .
    DATA : BEGIN OF IT_DUMMY OCCURS 0,
           DUMMY(100) TYPE C,
           END OF IT_DUMMY.
    DATA : BEGIN OF IT_XK01 OCCURS 0,
           LIFNR(10) TYPE C,
           BUKRS(4)  TYPE C,
           EKORG(4)  TYPE C,
           KTOKK(4)  TYPE C,
           NAME1(30) TYPE C,
           SORTL(10) TYPE C,
           LAND1(3)  TYPE C,
           SPRAS(2)  TYPE C,
           AKONT(6)  TYPE C,
           FDGRV(2)  TYPE C,
           WAERS(3)  TYPE C,
           END OF IT_XK01,
           BEGIN OF IT_BANK OCCURS 0,
           BANKS(3)  TYPE C,
           BANKL(10) TYPE C,
           BANKN(10) TYPE C,
           KOINH(30) TYPE C,
           LIFNR(10) TYPE C,
           END OF IT_BANK.
    DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
           IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
    CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
       FILENAME                      = 'C:\VENDOR.TXT'
       FILETYPE                      = 'ASC'
    TABLES
       DATA_TAB                      = IT_DUMMY.
    LOOP AT IT_DUMMY.
      IF IT_DUMMY-DUMMY+0(2) = '11'.
        IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).
        IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).
        IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).
        IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).
        IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).
        IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).
        IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).
        IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).
        IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).
        IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).
        IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).
        APPEND IT_XK01.
      ELSE.
        IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).
        IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).
        IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).
        IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).
        IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).
        APPEND IT_BANK.
      ENDIF.
    ENDLOOP.
    LOOP AT IT_XK01.
    REFRESH IT_BDCDATA.
    perform bdc_dynpro      using 'SAPMF02K' '0100'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02K-REF_LIFNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'RF02K-LIFNR'
                                  IT_XK01-LIFNR.
    perform bdc_field       using 'RF02K-BUKRS'
                                  IT_XK01-BUKRS.
    perform bdc_field       using 'RF02K-EKORG'
                                  IT_XK01-EKORG.
    perform bdc_field       using 'RF02K-KTOKK'
                                  IT_XK01-KTOKK.
    perform bdc_dynpro      using 'SAPMF02K' '0110'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-TELX1'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFA1-NAME1'
                                  IT_XK01-NAME1.
    perform bdc_field       using 'LFA1-SORTL'
                                  IT_XK01-SORTL.
    perform bdc_field       using 'LFA1-LAND1'
                                  IT_XK01-LAND1.
    perform bdc_field       using 'LFA1-SPRAS'
                                  IT_XK01-SPRAS.
    perform bdc_dynpro      using 'SAPMF02K' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-KUNNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFBK-KOINH(02)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    DATA : FNAM(20) TYPE C,
           IDX      TYPE C.
      MOVE 1 TO IDX.
    LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
      CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.
      perform bdc_field       using FNAM
                                    IT_BANK-BANKS.
      CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.
      perform bdc_field       using FNAM
                                    IT_BANK-BANKL.
      CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.
      perform bdc_field       using FNAM
                                    IT_BANK-BANKN.
      CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.
      perform bdc_field       using FNAM
                                    IT_BANK-KOINH.
      IDX = IDX + 1.
    ENDLOOP.
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFBK-BANKS(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_dynpro      using 'SAPMF02K' '0210'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFB1-FDGRV'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFB1-AKONT'
                                  IT_XK01-AKONT.
    perform bdc_field       using 'LFB1-FDGRV'
                                  IT_XK01-FDGRV.
    perform bdc_dynpro      using 'SAPMF02K' '0215'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFB1-ZTERM'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0220'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFB5-MAHNA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0310'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFM1-WAERS'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFM1-WAERS'
                                  IT_XK01-WAERS.
    perform bdc_dynpro      using 'SAPMF02K' '0320'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'WYT3-PARVW(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_dynpro      using 'SAPLSPO1' '0300'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=YES'.
    CALL TRANSACTION 'XK01' USING IT_BDCDATA
                            MODE  'A'
                           UPDATE 'S'
                         MESSAGES INTO IT_BDCMSGCOLL.
    ENDLOOP.
    FORM BDC_DYNPRO USING PROG SCR.
      CLEAR IT_BDCDATA.
      IT_BDCDATA-PROGRAM = PROG.
      IT_BDCDATA-DYNPRO  = SCR.
      IT_BDCDATA-DYNBEGIN = 'X'.
      APPEND IT_BDCDATA.
    ENDFORM.
    FORM BDC_FIELD USING FNAM FVAL.
      CLEAR IT_BDCDATA.
      IT_BDCDATA-FNAM = FNAM.
      IT_BDCDATA-FVAL  = FVAL.
      APPEND IT_BDCDATA.
    ENDFORM.
    Regards

Maybe you are looking for