Archiving for Info records.

Hi.
I have a question about to delete some purchasing info records.
I use the object MM_EINA to do it, but do I need to use other object?
I just need to delete info records, but I don't know if there is dependence with other object.
I hope that somebody helps me...
Thanks.

Hi Lili,
You are right, you need to use MM_EINA to archive and delete purchasing info records. Please have a look at this link, it explains the details for MM_EINA:
http://help.sap.com/saphelp_47x200/helpdata/en/9b/c0963457889b37e10000009b38f83b/frameset.htm
Hope this helps,
Naveen

Similar Messages

Archiving Purchase Info Records

Hi,
Can you please let me know what are the prerequsites that need to be completed before archiving a Purchase Info Record?
do we need to check for any other dependency/flag other than the Mark for deletion (table field LOEKZ 'X')
Please any one of you sugest me the solution for the above questions;
Thanks,
Jeevan.

Hi Jeevan,
In order to be able to delete an info record, you have to mark the Info Records for deletion.
To do so, use transaction ME15 and flag record for deletion. After you have deleted all info records, use archiving program RM06IW30 or follow the menu path Logistics - Materials Management u2013Purchasing - Master Data - Info Record - Follow on Functions - Archive.
Make sure that you only archive Records Marked for deletion as all records may be deleted!
Create Archive File: Info Record:
a) Select Action: Archive and enter a new Variant, for example: Z_EINA_ARCH_ 01, press 'Maintain'
b) On selection screen enter the data range (Vendor, Material, etc.) you want to archive.
c) Deselect the 'Test' flag if you don't want to test first.
d) Press green back-arrow and enter the description of this new variantt on the screen which follows.
e) Save the variantt which brings you again to the selection screen. Press green back arrow again.
f) To start archiving process (batch-job), press the 'Start Date' button and select the time when you want to start this process. Select 'Immediate' for instant processing and press the 'Save' button on the bottom of the Start Time' window.
g) Select the 'Spool Parameter' button and save entries. Eventually enter a valid printer to have the result outputted.
h) You are ready now to start the process. Press the 'Start' button and monitor the success with the 'Job Overview' button You can also go the 'fast path' by using transaction SE38, program RM06IW30 to archive info records. For large data archiving, use the background jobs and run those during off-peak times. If you run the program online, you will see a confirmation on the status bar telling 'New Archive file created:.... ' Delete Archived Records: Info Record
a) Follow the menu path: Tools - Administration - Administration - Archiving
b) Select the Object Name MM_EINA for info records
c) Select the menu button 'Delete'
d) Select the menu button: 'Archive Selection'
e) Click the archive created in previous step
f) Select Start Date for process and Spool Parameters for output
g) Submit selection.
h) Check status by pressing the Job Overview button
Reg,
Ashok
Assign points if useful.

Archiving of Info Records

Hi,
I have 22 Materials and now user wants me to archive all the INFO Records related to these 22 materials?
Please guide me what are the prerequisite needed to be done by me before archiving all the INFO Records.
Note: We had errors in Production system, which we want to reproduce in Quality system.
Cheers,
Kumar.S

Hi
Follow the below steps:
1. Flag Info-Records for deletion (ME15)
This will Set the Deletion Flag only in Purchase Info Record.
Once Deletion Flag is set you need to Archive them Using SARA with Archiving Object MM_EINA which will delete the Info Records from the Database.
2. Run the archiving program - RM06IW30 (Menu path -> Logistics - Materials Management u2013Purchasing - Master Data - Info Record - Follow on Functions - Archive)
Create Archive File: Info Record:
a) Select Action: Archive and enter a new Variant, for example: Z_EINA_ARCH_ 01, press 'Maintain'
b) On selection screen enter the data range (Vendor, Material, etc.) you want to archive.
c) Deselect the 'Test' flag if you don't want to test first.
d) Press green back-arrow and enter the description of this new variantt on the screen which follows.
e) Save the variantt which brings you again to the selection screen. Press green back arrow again.
f) To start archiving process (batch-job), press the 'Start Date' button and select the time when you want to start this process. Select 'Immediate' for instant processing and press the 'Save' button on the bottom of the Start Time' window.
g) Select the 'Spool Parameter' button and save entries. Eventually enter a valid printer to have the result outputted.
h) You are ready now to start the process. Press the 'Start' button and monitor the success with the 'Job Overview' button You can also go the 'fast path' by using transaction SE38, program RM06IW30 to archive info records. For large data archiving, use the background jobs and run those during off-peak times. If you run the program online, you will see a confirmation on the status bar telling 'New Archive file created:.... '
Delete Archived Records: Info Record
a) Follow the menu path: Tools - Administration - Administration - Archiving
b) Select the Object Name MM_EINA for info records
c) Select the menu button 'Delete'
d) Select the menu button: 'Archive Selection'
e) Click the archive created in previous step
f) Select Start Date for process and Spool Parameters for output
g) Submit selection.
h) Check status by pressing the Job Overview button
regards
Antony

Archive Purchase Info Record MM_EINA : problem with CDHDR

Hello,
I have notice that when i archive an Info Record, Only CDPOS is deleted and not CDHDR.
In the customizing, Object Class CHANGEDOCU is set.
Can someone explain why datas in CDHDR are not deleted ?
Thank you,
Cipriano

Yes, I agree with Jurgen. You should open a message with SAP. As, the CDHDR records should be archived along with the CDPOS records. That is how it works when I archive purchase info records with MM_EINA.
Best Regards,
Karin Tillotson

BAPI for info records

Hi there
Does anyone know of a BAPI to change info records?
Regards,
Malan

Hi
MEIU                           Updating of Purchasing Master Data
ME_CREATE_CHANGEDOC_INFOREC    Generation of change documents for info record
ME_DB_UPDATE_INFORECORDS       Updating info records in database
ME_UPDATE_INFORECORD           Update program for purchasing info record
ME_UPDATE_INFORECORD_COND      Update price in info record during maintenance from condition transac
ME_UPDATE_INFORECORD_PD        Update info records from purchasing documents
ME_UPDATE_PO_PRICE             Update program for info record and order price history from purch. do
Regards
S.Senthil

Mass upload for info records when price gets changes

Dear All,
How to do Mass upload for info records when price gets change.
Regards,
Bhargav

Hi Bhargav,
Please upload the present price (Map) by LSMW . When you are doing the transactions then automatically by selecting option info update price will be updated the info record in Order Price history
Regards
M B Raju

How to check vendor schema group for info record for third party vendor

Hi Expert,
How to check vendor schema group that assigned in info record for third party vendor?
Thanks

Hi,
Vendor schema group is not assigned in info record, It is assigned in purchasing data view of vendor master ( Check in XK03 )
You can check in Vendor master- XK03- Purchasing data.
hope it will help u.
Deepak

Table name for Info-record where i can get the last changed date and user

Using ME12, i have changed the price of the info record i want to get the who was the user and changed date...
I had check in EINA EINE but i couldnt find out please anybody Please help me out by providing solution for this??

Hi
If at the data element level the field for which you want to know the old and new fields the option of CHANGE DOCUMENT option must be enabled ,then you can find the old and new values in the
CDHDR -
Change document header
CDPOS -
Change document items.
Regards
Pavan

Release strategy for info records

Hi All,
Can I have a release strategy procedure for Inforecords to create PO?
Please suggest some answers My client want to configure info record release strategy.
Thanks in Advance,
GANESHA

Hi,
Inforecords are master data and we need not have release strategy for that.we have release strategy only for the purchasing documents .
thanks
Roopavathy

Function Module for Info Record conditions data

Hi, ALL
I'm looking for a Function Modlue or Method that we can insert conditions datas of Info Record.
Also, I'm looking for a FM that we can update them, and get these infomations.
Plese let me know if you know these.
Regards
Rie

hi,
For reading the purchase price, use the function module BASIC_PURCHASE_PRICE_READ ...function group WVKC (development class WVKP)
you can also check sap note 565002 for more info...
Regards
Priyanka.P

Error in mass change for info records -MEMASSIN

Hello Friends,
We want to mass change the info records. We want to set the "Unlimited del" indicator to all the Info records which is not there currently.
When we tried to do the same, we came across an error saying -
"5300177458 : Enter Purch. Group (5300177458)" ....message type ME083.
but purch grp is maintained in all the Info records.
Can anybody help us to fix this issue ?
Thanks in Advance,
Vidyadhar.

Hi all,
Thanks for your inputs.
1st thing - pur grp is maintained in customizing also. ..not deleted in customizing.
2nd thing - in MASS trans selection, I selected pur org, plant, and unlimited del options....still its giving me the same error.
any other solution pls ?

PO Creation - Error for Info record

Hello,
While saving a PO, it gives error "Maintain Pricing condition in Info record" but already info record is maintained for the said vendor and material code used in PO.
For the same inforecord other POs were already created in the past without any error.
Can any one suggest what may be the reason?
Thanks in advance.
Regards
Ratna

HI,
Have u maintain Condition for Price as as P000.......
if yes, go to condition type in SPRO and maintain Access sequence 0002 and also maintain your pricing procedure...
and check that Procedure maintain that condition or not.
Regards,
Pardeep Malik

How to print out the text for Info record in ME23?

Dear all,
I need to print out a report of PO data. need to print out the text from Info record note (like the picture shown below) in ME23, how should I pull that field and display out?
I need the solution urgently. Hope experts can help.
Thank you very much.
[http://img293.imageshack.us/img293/238/inforecordnd1.png]

Please check below sample code:
PARAMETERS: p_ebeln TYPE ebeln OBLIGATORY.
TYPES: BEGIN OF ty_ekpo,
         ebeln TYPE ebeln,
         ebelp TYPE ebelp,
       END OF ty_ekpo.
DATA: i_ekpo TYPE TABLE OF ty_ekpo,
      wa_ekpo TYPE ty_ekpo.
DATA: l_name TYPE tdobname,
      i_tline TYPE TABLE OF tline,
      wa_tline TYPE tline.
CONSTANTS: c_id   TYPE tdid VALUE 'F02',
           c_object TYPE tdobject VALUE 'EKPO'.
AT SELECTION-SCREEN.
SELECT SINGLE ebeln INTO p_ebeln
         FROM ekko
         WHERE ebeln = p_ebeln.
IF sy-subrc NE 0.
    MESSAGE e001(00) WITH 'Enter valid PO Number'.
ENDIF.
START-OF-SELECTION.
SELECT ebeln ebelp INTO TABLE i_ekpo
         FROM ekpo
         WHERE ebeln = p_ebeln.
LOOP AT i_ekpo INTO wa_ekpo.
    CONCATENATE wa_ekpo-ebeln wa_ekpo-ebelp
       INTO l_name.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        id                      = c_id
        language                = sy-langu
        name                    = l_name
        object                  = c_object
      TABLES
        lines                   = i_tline
      EXCEPTIONS
        id                      = 1
        language                = 2
        name                    = 3
        not_found               = 4
        object                  = 5
        reference_check         = 6
        wrong_access_to_archive = 7
        OTHERS                  = 8.
    IF sy-subrc EQ 0.
      LOOP AT i_tline INTO wa_tline.
        WRITE:/ wa_tline-tdline.
        " Format wa_tline-tdline in the way you need to print out
      ENDLOOP.
    ENDIF.
ENDLOOP.
Regards
Eswar

Bdc for info records

Hi all ,
i have developed a bdc progoram for inforecords..
              while uploading the data if there are two conditions or more for same vendor and material i am getting the correct one but netprice for first condition comes correctly . if the second condition comes netprice doesnot occurs..in the purchase org window which as to be generated according to the condition chosen.
ex: netprice is 250 for cond POOO and second condition is given ROOO(discount) 10 through upload when i go back to purc org window netprice is 0 .
here my program please suggest me ...
REPORT ymm_info_bdcrec NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE bdcrecx1."INCLUDE BDCRECX1.
DATA : IDX(2) TYPE C VALUE '01'.
data: var type string.
DATA: BEGIN OF lt_infrec OCCURS 0,
      lifnr(20) TYPE c,
      matnr(20) TYPE c,
      ekorg(5) TYPE c,
      werks(5) TYPE c,
      esokz(2) TYPE c,
      mahn1(5) TYPE c,
      urztp(10) TYPE c,
      mahn2(5) TYPE c,
      urznr(10) TYPE c,
      mahn3(5) TYPE c,
      urzdt(10) TYPE c,
      idnlf(10) TYPE c,
      urzla(10) TYPE c,
      ltsnr(10) TYPE c,
      regio(10) TYPE c,
      ltssf(10) TYPE c,
      urzzt(10) TYPE c,
      wglif(10) TYPE c,
      mfrnr(10) TYPE c,
      anzpu(10) TYPE c,
      punei(10) TYPE c,
      verkf(10) TYPE c,
      telf1(10) TYPE c,
      lifab(10) TYPE c,
      rueck(10) TYPE c,
      lifbi(10) TYPE c,
      kolif(10) TYPE c,
      relif(10) TYPE c,
      meins(10) TYPE c,
      umrez(10) TYPE c,
      umren(10) TYPE c,
      vabme(10) TYPE c,
      aplfz(10) TYPE c,
      untto(10) TYPE c,
      mtxno(10) TYPE c,
      ekgrp(10) TYPE c,
      uebto(10) TYPE c,
      kzabs(10) TYPE c,
      norbm(10) TYPE c,
      uebtk(10) TYPE c,
      bstae(10) TYPE c,
      minbm(10) TYPE c,
      webre(10) TYPE c,
      mwskz(10) TYPE c,
      mhdrz(10) TYPE c,
      iprkz(10) TYPE c,
      xersn(10) TYPE c,
      evers(10) TYPE c,
      exprf(10) TYPE c,
      bstma(10) TYPE c,
      rdprf(10) TYPE c,
      megru(10) TYPE c,
      netpr(10) TYPE c,
      waers(10) TYPE c,
      peinh(10) TYPE c,
      bprme(10) TYPE c,
      sktof(10) TYPE c,
      bpumz(10) TYPE c,
      bpumn(10) TYPE c,
      ekkol(10) TYPE c,
      meprf(10) TYPE c,
      inco1(10) TYPE c,
      inco2(10) TYPE c,
      datab(10) TYPE c,
      datbi(10) TYPE c,
      kschl(10) TYPE c,
      kbetr(10) TYPE c,
      konwa(10) TYPE c,
      kpein(10) TYPE c,
      kmein(10) TYPE c,
      end of lt_infrec.
data: begin of lt_infrec1 occurs 0,
      lifnr(20) TYPE c,
      matnr(20) TYPE c,
      ekorg(5) TYPE c,
      werks(5) TYPE c,
      esokz(2) TYPE c,
      mahn1(5) TYPE c,
      urztp(10) TYPE c,
      mahn2(5) TYPE c,
      urznr(10) TYPE c,
      mahn3(5) TYPE c,
      urzdt(10) TYPE c,
      idnlf(10) TYPE c,
      urzla(10) TYPE c,
      ltsnr(10) TYPE c,
      regio(10) TYPE c,
      ltssf(10) TYPE c,
      urzzt(10) TYPE c,
      wglif(10) TYPE c,
      mfrnr(10) TYPE c,
      anzpu(10) TYPE c,
      punei(10) TYPE c,
      verkf(10) TYPE c,
      telf1(10) TYPE c,
      lifab(10) TYPE c,
      rueck(10) TYPE c,
      lifbi(10) TYPE c,
      kolif(10) TYPE c,
      relif(10) TYPE c,
      meins(10) TYPE c,
      umrez(10) TYPE c,
      umren(10) TYPE c,
      vabme(10) TYPE c,
      aplfz(10) TYPE c,
      untto(10) TYPE c,
      mtxno(10) TYPE c,
      ekgrp(10) TYPE c,
      uebto(10) TYPE c,
      kzabs(10) TYPE c,
      norbm(10) TYPE c,
      uebtk(10) TYPE c,
      bstae(10) TYPE c,
      minbm(10) TYPE c,
      webre(10) TYPE c,
      mwskz(10) TYPE c,
      mhdrz(10) TYPE c,
      iprkz(10) TYPE c,
      xersn(10) TYPE c,
      evers(10) TYPE c,
      exprf(10) TYPE c,
      bstma(10) TYPE c,
      rdprf(10) TYPE c,
      megru(10) TYPE c,
      netpr(10) TYPE c,
      waers(10) TYPE c,
      peinh(10) TYPE c,
      bprme(10) TYPE c,
      sktof(10) TYPE c,
      bpumz(10) TYPE c,
      bpumn(10) TYPE c,
      ekkol(10) TYPE c,
      meprf(10) TYPE c,
      inco1(10) TYPE c,
      inco2(10) TYPE c,
      datab(10) TYPE c,
      datbi(10) TYPE c,
      kschl(10) TYPE c,
      kbetr(10) TYPE c,
      konwa(10) TYPE c,
      kpein(10) TYPE c,
      kmein(10) TYPE c,
     END OF lt_infrec1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b1.
DATA: lv_file TYPE string.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      field_name = p_file
    CHANGING
      file_name = p_file.
START OF SELECTION
START-OF-SELECTION.
UPLOADING THE FILE
IF p_file IS NOT INITIAL.
    lv_file = p_file.
    CALL FUNCTION 'UPLOAD'
     EXPORTING
CODEPAGE                      = ' '
       filename                      = ' '
       filetype                      = 'DAT'
ITEM                          = ' '
FILEMASK_MASK                 = ' '
FILEMASK_TEXT                 = ' '
FILETYPE_NO_CHANGE            = ' '
FILEMASK_ALL                  = ' '
FILETYPE_NO_SHOW              = ' '
LINE_EXIT                     = ' '
USER_FORM                     = ' '
USER_PROG                     = ' '
SILENT                        = 'S'
IMPORTING
FILESIZE                      =
CANCEL                        =
ACT_FILENAME                  =
ACT_FILETYPE                  =
      TABLES
        data_tab                      = lt_infrec
     EXCEPTIONS
       conversion_error              = 1
       invalid_table_width           = 2
       invalid_type                  = 3
       no_batch                      = 4
       unknown_error                 = 5
       gui_refuse_filetransfer       = 6
       OTHERS                        = 7
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
   filename                      =
FILETYPE                      = 'DAT'
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                      = lt_infrec
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.
ENDIF.
loop at lt_infrec.
ON CHANGE OF lt_infrec-lifnr or lt_infrec-matnr or lt_infrec-ekorg.
MOVE-CORRESPONDING lt_infrec TO lt_infrec1.
append lt_infrec1.
endloop.
DELETE ADJACENT DUPLICATES FROM lt_infrec1 COMPARING lifnr matnr ekorg.
   REFRESH t_bdcdata.
   CLEAR lv_lifnr.
   CLEAR lv_matnr.
    PERFORM open_group.
      LOOP AT lt_infrec1.
SCREEN 1
    PERFORM bdc_dynpro      USING 'SAPMM06I' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RM06I-NORMB'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'EINA-LIFNR' lt_infrec1-lifnr.
    PERFORM bdc_field       USING 'EINA-MATNR' lt_infrec1-matnr.
    PERFORM bdc_field       USING 'EINE-EKORG' lt_infrec1-ekorg.
    PERFORM bdc_field       USING 'EINE-WERKS' lt_infrec1-werks.
    IF lt_infrec1-esokz = '0'.
      PERFORM bdc_field       USING 'RM06I-NORMB'
                                    'x'.
    ELSEIF lt_infrec1-esokz = '1'.
      PERFORM bdc_field       USING 'RM06I-LOHNB'
                                    'x'.
    ELSEIF lt_infrec1-esokz = '2'.
      PERFORM bdc_field       USING 'RM06I-PIPEL'
                                    'x'.
    ELSEIF lt_infrec1-esokz = '3' .
      PERFORM bdc_field       USING 'RM06I-KONSI'
                                     'x'.
    ENDIF.
SCREEN 2
    PERFORM bdc_dynpro      USING 'SAPMM06I' '0101'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'EINA-VABME'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=EINE'.
    PERFORM bdc_field       USING 'EINA-MAHN1' lt_infrec1-mahn1.
    PERFORM bdc_field       USING 'EINA-URZTP' lt_infrec1-urztp.
    PERFORM bdc_field       USING 'EINA-MAHN2' lt_infrec1-mahn2.
    PERFORM bdc_field       USING 'EINA-URZNR' lt_infrec1-urznr.
    PERFORM bdc_field       USING 'EINA-MAHN3' lt_infrec1-mahn3.
    PERFORM bdc_field       USING 'EINA-URZDT' lt_infrec1-urzdt.
    PERFORM bdc_field       USING 'EINA-IDNLF' lt_infrec1-idnlf.
    PERFORM bdc_field       USING 'EINA-URZLA' lt_infrec1-urzla.
    PERFORM bdc_field       USING 'EINA-LTSNR' lt_infrec1-ltsnr.
    PERFORM bdc_field       USING 'EINA-REGIO' lt_infrec1-regio.
    PERFORM bdc_field       USING 'EINA-LTSSF' lt_infrec1-ltssf.
    PERFORM bdc_field       USING 'EINA-URZZT' lt_infrec1-urzzt.
    PERFORM bdc_field       USING 'EINA-WGLIF' lt_infrec1-wglif.
    PERFORM bdc_field       USING 'EINA-MFRNR' lt_infrec1-mfrnr.
    PERFORM bdc_field       USING 'EINA-ANZPU' lt_infrec1-anzpu.
    PERFORM bdc_field       USING 'EINA-PUNEI' lt_infrec1-punei.
    PERFORM bdc_field       USING 'EINA-VERKF' lt_infrec1-verkf.
    PERFORM bdc_field       USING 'EINA-TELF1' lt_infrec1-telf1.
    PERFORM bdc_field       USING 'EINA-LIFAB' lt_infrec1-lifab.
    PERFORM bdc_field       USING 'EINA-RUECK' lt_infrec1-rueck.
    PERFORM bdc_field       USING 'EINA-LIFBI' lt_infrec1-lifbi.
    PERFORM bdc_field       USING 'EINA-KOLIF' lt_infrec1-kolif.
    PERFORM bdc_field       USING 'EINA-RELIF' lt_infrec1-relif.
    PERFORM bdc_field       USING 'EINA-MEINS' lt_infrec1-meins.
    PERFORM bdc_field       USING 'EINA-UMREZ' lt_infrec1-umrez.
    PERFORM bdc_field       USING 'EINA-UMREN' lt_infrec1-umren.
    PERFORM bdc_field       USING 'EINA-VABME' lt_infrec1-vabme.
SCREEN 2(B)
    PERFORM bdc_dynpro      USING 'SAPMM06I' '0102'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'EINE-INCO2'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=KO'.
    PERFORM bdc_field       USING 'EINE-APLFZ' lt_infrec1-aplfz.
    PERFORM bdc_field       USING 'EINE-UNTTO' lt_infrec1-untto.
    PERFORM bdc_field       USING 'EINE-MTXNO' lt_infrec1-mtxno.
    PERFORM bdc_field       USING 'EINE-EKGRP' lt_infrec1-ekgrp.
    PERFORM bdc_field       USING 'EINE-UEBTO' lt_infrec1-uebto.
    PERFORM bdc_field       USING 'EINE-KZABS' lt_infrec1-kzabs.
    PERFORM bdc_field       USING 'EINE-NORBM' lt_infrec1-norbm.
    PERFORM bdc_field       USING 'EINE-UEBTK' lt_infrec1-uebtk.
    PERFORM bdc_field       USING 'EINE-BSTAE' lt_infrec1-bstae.
    PERFORM bdc_field       USING 'EINE-MINBM' lt_infrec1-minbm.
    PERFORM bdc_field       USING 'EINE-WEBRE' lt_infrec1-webre.
    PERFORM bdc_field       USING 'EINE-MWSKZ' lt_infrec1-mwskz.
    PERFORM bdc_field       USING 'EINE-MHDRZ' lt_infrec1-mhdrz.
    PERFORM bdc_field       USING 'EINE-IPRKZ' lt_infrec1-iprkz.
    PERFORM bdc_field       USING 'EINE-XERSN' lt_infrec1-xersn.
    PERFORM bdc_field       USING 'EINE-EVERS' lt_infrec1-evers.
    PERFORM bdc_field       USING 'EINE-EXPRF' lt_infrec1-exprf.
    PERFORM bdc_field       USING 'EINE-BSTMA' lt_infrec1-bstma.
    PERFORM bdc_field       USING 'EINE-RDPRF' lt_infrec1-rdprf.
    PERFORM bdc_field       USING 'EINE-MEGRU' lt_infrec1-megru.
    PERFORM bdc_field       USING 'EINE-NETPR' lt_infrec1-netpr.
    PERFORM bdc_field       USING 'EINE-WAERS' lt_infrec1-waers.
    PERFORM bdc_field       USING 'EINE-PEINH' lt_infrec1-peinh.
    PERFORM bdc_field       USING 'EINE-BPRME' lt_infrec1-bprme.
    PERFORM bdc_field       USING 'EINE-SKTOF' lt_infrec1-sktof.
    PERFORM bdc_field       USING 'EINE-BPUMZ' lt_infrec1-bpumz.
    PERFORM bdc_field       USING 'EINE-BPUMN' lt_infrec1-bpumn.
    PERFORM bdc_field       USING 'EINE-EKKOL' lt_infrec1-ekkol.
    PERFORM bdc_field       USING 'EINE-MEPRF' lt_infrec1-meprf.
    PERFORM bdc_field       USING 'EINE-INCO1' lt_infrec1-inco1.
    PERFORM bdc_field       USING 'EINE-INCO2' lt_infrec1-inco2.
SCREEN 2(C)
    PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'KONP-KMEIN'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RV13A-DATAB' lt_infrec1-datab.
    PERFORM bdc_field       USING 'RV13A-DATBI' lt_infrec1-datbi.
loop at lt_infrec where lifnr = lt_infrec-lifnr and
                          matnr = lt_infrec-matnr and
                          ekorg = lt_infrec-ekorg.
        CONCATENATE 'KONP-KSCHL(' IDX ')' INTO var.
       PERFORM bdc_field       USING 'KONP-KSCHL' lt_infrec1-kschl.
        PERFORM bdc_field       USING VAR lt_infrec-kschl.
        CONCATENATE 'KONP-KBETR(' IDX ')' INTO VAR.
       PERFORM bdc_field       USING 'KONP-KBETR' lt_infrec1-kbetr.
         PERFORM bdc_field USING VAR lt_INFREC-KBETR.
         CONCATENATE 'KONP-KONWA(' IDX ')' INTO VAR.
       PERFORM bdc_field       USING 'KONP-KONWA' lt_infrec1-konwa.
        PERFORM bdc_field       USING VAR lt_infrec-KONWA.
        CONCATENATE 'KONP-KPEIN(' IDX ')' INTO VAR.
       PERFORM bdc_field       USING 'KONP-KPEIN' lt_infrec1-kpein.
        PERFORM bdc_field       USING VAR lt_infrec-kPEIN.
        CONCATENATE 'KONP-KMEIN(' IDX ')' INTO VAR.
       PERFORM bdc_field       USING 'KONP-KMEIN' lt_infrec1-kmein.
        PERFORM bdc_field       USING VAR lt_infrec-kMEIN.
        idx = idx + 1.
ENDLOOP.
CLEAR idx.
SCREEN 2(D)
    PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RV13A-DATAB'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RV13A-DATAB' lt_infrec-datab.
    PERFORM bdc_field       USING 'RV13A-DATBI' lt_infrec-datbi.
    PERFORM bdc_dynpro      USING 'SAPMM06I' '0102'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'EINE-APLFZ'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=TEXT'.
    PERFORM bdc_field       USING 'EINE-APLFZ' lt_infrec-aplfz.
    PERFORM bdc_field       USING 'EINE-UNTTO' lt_infrec-untto.
    PERFORM bdc_field       USING 'EINE-EKGRP' lt_infrec-ekgrp.
    PERFORM bdc_field       USING 'EINE-UEBTO' lt_infrec-uebto.
    PERFORM bdc_field       USING 'EINE-KZABS' lt_infrec-kzabs.
    PERFORM bdc_field       USING 'EINE-NORBM' lt_infrec-norbm.
    PERFORM bdc_field       USING 'EINE-MINBM' lt_infrec-minbm.
    PERFORM bdc_field       USING 'EINE-WEBRE' lt_infrec-webre.
    PERFORM bdc_field       USING 'EINE-MWSKZ' lt_infrec-mwskz.
    PERFORM bdc_field       USING 'EINE-IPRKZ' lt_infrec-iprkz.
    PERFORM bdc_field       USING 'EINE-NETPR' lt_infrec-netpr.
    PERFORM bdc_field       USING 'EINE-WAERS' lt_infrec-waers.
    PERFORM bdc_field       USING 'EINE-PEINH' lt_infrec-peinh.
    PERFORM bdc_field       USING 'EINE-BPRME' lt_infrec-bprme.
    PERFORM bdc_field       USING 'EINE-BPUMZ' lt_infrec-bpumz.
    PERFORM bdc_field       USING 'EINE-BPUMN' lt_infrec-bpumn.
    PERFORM bdc_field       USING 'EINE-MEPRF' lt_infrec-meprf.
    PERFORM bdc_field       USING 'EINE-INCO1' lt_infrec-inco1.
    PERFORM bdc_field       USING 'EINE-INCO2' lt_infrec-inco2.
SCREEN 4
   PERFORM bdc_dynpro      USING 'SAPMM06I' '0103'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'RM06I-LTEX5(02)'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '/00'.
   PERFORM bdc_field       USING 'RM06I-SELKZ(02)'
   PERFORM bdc_field       USING 'RM06I-LTEX1(01)'
   PERFORM bdc_field       USING 'RM06I-LTEX1(02)'
   PERFORM bdc_field       USING 'RM06I-LTEX2(01)'
   PERFORM bdc_field       USING 'RM06I-LTEX2(02)'
   PERFORM bdc_field       USING 'RM06I-LTEX3(01)'
   PERFORM bdc_field       USING 'RM06I-LTEX3(02)'
   PERFORM bdc_field       USING 'RM06I-LTEX4(01)'
   PERFORM bdc_field       USING 'RM06I-LTEX4(02)'
   PERFORM bdc_field       USING 'RM06I-LTEX5(01)'
   PERFORM bdc_field       USING 'RM06I-LTEX5(02)'
SCREEN 5
   PERFORM bdc_dynpro      USING 'SAPMM06I' '0103'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'RM06I-LTEX1(01)'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '=BU'.
    PERFORM bdc_transaction USING 'ME11'.
    CLEAR lt_infrec.
    clear lt_infrec1.
   CALL TRANSACTION 'ME11' USING t_bdcdata MODE 'A'.
ENDLOOP.
PERFORM close_group.
*ENDFORM.                    "BDC_FIELD
thanks in advance ...
bye
pradeep

Hi,
for loading the Inforecords I suggest you to use LSMW with following methods:
PurchasingInfoRecord:
Object               0060   Purchasing info rec.
Method               0000
Program name         RM06IBI0
Program type         B   Batch input
Conditions:
with IDoc:
Message type         COND_A
Basic type           COND_A02
or with BI program:
Object               0070   Condition record
Method               0000
Program name         RV14BTCI
Program type         B   Batch input
The above methods would provide you an efficient & effective way of loading mass data with all possible complexicity w.r.t conditions.
Hope this helps.
Best Regards, Murugesh AS

Mass For Deletion of Info Record

Dear Experts
Is there any Code for Deletion of the Purchasing Info record By Mass T-code.
Rgds
Pankaj Agarwal

Hi Pankaj,
find below the steps,
1. Flag Info-Records for deletion
2. Run the archiving program - RM06IW30 (Menu path -> Logistics - Materials Management u2013Purchasing - Master Data - Info Record - Follow on Functions - Archive)
Create Archive File: Info Record:
a) Select Action: Archive and enter a new Variant, for example: Z_EINA_ARCH_ 01, press 'Maintain'
b) On selection screen enter the data range (Vendor, Material, etc.) you want to archive.
c) Deselect the 'Test' flag if you don't want to test first.
d) Press green back-arrow and enter the description of this new variantt on the screen which follows.
e) Save the variantt which brings you again to the selection screen. Press green back arrow again.
f) To start archiving process (batch-job), press the 'Start Date' button and select the time when you want to start this process. Select 'Immediate' for instant processing and press the 'Save' button on the bottom of the Start Time' window.
g) Select the 'Spool Parameter' button and save entries. Eventually enter a valid printer to have the result outputted.
h) You are ready now to start the process. Press the 'Start' button and monitor the success with the 'Job Overview' button You can also go the 'fast path' by using transaction SE38, program RM06IW30 to archive info records. For large data archiving, use the background jobs and run those during off-peak times. If you run the program online, you will see a confirmation on the status bar telling 'New Archive file created:.... '
Delete Archived Records: Info Record
a) Follow the menu path: Tools - Administration - Administration - Archiving
b) Select the Object Name MM_EINA for info records
c) Select the menu button 'Delete'
d) Select the menu button: 'Archive Selection'
e) Click the archive created in previous step
f) Select Start Date for process and Spool Parameters for output
g) Submit selection.
h) Check status by pressing the Job Overview button
Hope the above answers your query.
If helpful award points
Regards,
Vivek

Archiving for Info records.

Similar Messages

Maybe you are looking for