Online Tutorials & Training Materials | STechies.com
Register Login

Material Changes for CDHDR CDPOS

|| || 8

Material Changes for CDHDR CDPOS
Stechies

Hello,
I would like to extract all the material changes for CDHDR CDPOS.
Do you have a program sample for this or idea for optimization ?
Thank's for your help


Comments

  • 08 Aug 2013 6:52 am
    Table CDHDR and CDPOS stores changes (e.g change data in Material Master, changes to Purchase Req (PR), Purch Orders, Contracts, Sales Orders, and many more) to a lot of SAP documents.

    REPORT ZPOCHANGE LINE-SIZE 132 NO STANDARD PAGE HEADING

    LINE-COUNT 065(001)

    MESSAGE-ID VR.

    TABLES: DD04T,

    CDHDR,

    CDPOS,

    DD03L,

    DD41V,

    T685T,

    VBPA,

    TPART,

    KONVC,

    EKKO.

    SELECT-OPTIONS: XUDATE FOR CDHDR-UDATE,

    XNAME FOR CDHDR-USERNAME,

    XEBELN FOR EKKO-EBELN,

    XLIFNR FOR EKKO-LIFNR.



    SELECTION-SCREEN SKIP.

    TEXT-001 - Sorting Sequence

    SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.

    PARAMETERS: SUDATE RADIOBUTTON GROUP R1,

    SNAME RADIOBUTTON GROUP R1,

    SOBID RADIOBUTTON GROUP R1.

    SELECTION-SCREEN END OF BLOCK BLK1.



    DATA: WFLAG,

    WCHANGENR LIKE CDHDR-CHANGENR.



    DATA: INDTEXT(60) TYPE C.



    DATA: BEGIN OF ICDHDR OCCURS 50.

    INCLUDE STRUCTURE CDHDR.

    DATA: END OF ICDHDR.



    DATA: BEGIN OF ICDSHW OCCURS 50.

    INCLUDE STRUCTURE CDSHW.

    DATA: END OF ICDSHW.



    DATA: BEGIN OF EKKEY,

    EBELN LIKE EKET-EBELN,

    EBELP LIKE EKET-EBELP,

    ETENR LIKE EKET-ETENR,



    END OF EKKEY.



    DATA: BEGIN OF ITAB OCCURS 50,

    BEGIN OF EKKEY,

    EBELN LIKE EKET-EBELN,

    EBELP LIKE EKET-EBELP,



    ETENR LIKE EKET-ETENR,

    END OF EKKEY,

    CHANGENR LIKE CDHDR-CHANGENR,

    UDATE LIKE CDHDR-UDATE,

    UTIME LIKE CDHDR-UTIME,

    USERNAME LIKE CDHDR-USERNAME,

    CHNGIND LIKE CDSHW-CHNGIND,

    FTEXT LIKE CDSHW-FTEXT,

    OUTLEN LIKE CDSHW-OUTLEN,

    F_OLD LIKE CDSHW-F_OLD,

    F_NEW LIKE CDSHW-F_NEW,

    END OF ITAB.

    DATA: OLD_OBJECTID LIKE CDHDR-OBJECTID.



    FIELD-SYMBOLS: , .



    SELECT * FROM EKKO WHERE EBELN IN XEBELN AND

    LIFNR IN XLIFNR.

    CLEAR CDHDR.

    CLEAR CDPOS.

    CDHDR-OBJECTCLAS = 'EINKBELEG'.

    CDHDR-OBJECTID = EKKO-EBELN.

    PERFORM GETCHGDOCS.

    ENDSELECT.



    IF SUDATE = 'X'.

    SORT ITAB BY UDATE EKKEY-EBELN CHANGENR EKKEY-EBELP

    EKKEY-ETENR.

    ELSEIF SNAME = 'X'.

    SORT ITAB BY USERNAME EKKEY-EBELN CHANGENR EKKEY-EBELP

    EKKEY-ETENR.

    ELSE.

    SORT ITAB BY EKKEY-EBELN CHANGENR EKKEY-EBELP EKKEY-ETENR.

    ENDIF.



    LOOP AT ITAB.

    CLEAR: INDTEXT, EKKEY.

    CASE ITAB-CHNGIND.

    WHEN 'U'.

    INDTEXT(50) = ITAB-FTEXT.

    INDTEXT+51 = TEXT-020.

    CONDENSE INDTEXT.

    WHEN 'D'.

    INDTEXT = TEXT-021.

    WHEN 'E'.

    INDTEXT(5) = ITAB-FTEXT.

    INDTEXT+51 = TEXT-021.

    CONDENSE INDTEXT.

    WHEN 'I'.

    INDTEXT = TEXT-022.

    ENDCASE.

    RESERVE 4 LINES.

    IF WCHANGENR NE ITAB-CHANGENR.

    WCHANGENR = ITAB-CHANGENR.

    EKKEY = ITAB-EKKEY.

    WRITE:/ ITAB-UDATE UNDER 'Change Date',

    ITAB-UTIME UNDER 'Time',

    ITAB-USERNAME UNDER 'User Name',

    ITAB-EKKEY-EBELN UNDER 'PO No',

    ITAB-EKKEY-EBELP UNDER 'Item',

    ITAB-EKKEY-ETENR UNDER 'Sch No',

    INDTEXT UNDER 'Changes'.

    ELSEIF ITAB-EKKEY NE EKKEY.

    WRITE:/ ITAB-EKKEY-EBELP UNDER 'Item',

    ITAB-EKKEY-ETENR UNDER 'Sch No',

    INDTEXT UNDER 'Changes'.



    ENDIF.



    CASE ITAB-CHNGIND.

    WHEN 'U'.

    ASSIGN ITAB-F_OLD(ITAB-OUTLEN) TO .

    ASSIGN ITAB-F_NEW(ITAB-OUTLEN) TO .

    WRITE: / TEXT-023 UNDER 'Changes',

    .

    WRITE: / TEXT-024 UNDER 'Changes',

    .

    WHEN 'E'.

    ASSIGN ITAB-F_OLD(ITAB-OUTLEN) TO .

    WRITE: TEXT-023 UNDER 'Changes',

    .

    ENDCASE.

    SKIP.

    ENDLOOP.





    TOP-OF-PAGE.

    WRITE:/ SY-DATUM,SY-UZEIT,

    50 'P U R C H A S E O R D E R H I S T O R Y',

    120 'Page', SY-PAGNO.

    WRITE: / SY-REPID,

    60 'Purchase Orders Changes'.

    SKIP.

    ULINE.

    IF SUDATE = 'X'.

    WRITE:/001 'Change Date',

    014 'Time',

    024 'User Name',

    038 'PO No',

    050 'Item',

    057 'Sch No',

    065 'Changes'.

    ELSEIF SOBID = 'X'.

    WRITE:/001 'PO No',

    013 'Item',

    020 'Sch No',

    028 'Change Date',

    041 'Time',

    051 'User Name',

    065 'Changes'.

    ELSE.

    WRITE:/001 'User Name',

    015 'Change Date',

    028 'Time',

    038 'PO No',

    050 'Item',

    057 'Sch No',

    065 'Changes'.

    ENDIF.

    ULINE.



    FORM GETCHGDOCS.

    CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'

    EXPORTING

    DATE_OF_CHANGE = CDHDR-UDATE

    OBJECTCLASS = CDHDR-OBJECTCLAS

    OBJECTID = CDHDR-OBJECTID

    TIME_OF_CHANGE = CDHDR-UTIME

    USERNAME = CDHDR-USERNAME

    TABLES

    I_CDHDR = ICDHDR

    EXCEPTIONS

    NO_POSITION_FOUND = 1

    OTHERS = 2.



    CHECK SY-SUBRC EQ 0.

    DELETE ICDHDR WHERE CHANGE_IND EQ 'I'.

    CHECK NOT ICDHDR[] IS INITIAL.

    LOOP AT ICDHDR.

    CHECK ICDHDR-UDATE IN XUDATE.

    CHECK ICDHDR-USERNAME IN XNAME.

    CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'

    EXPORTING CHANGENUMBER = ICDHDR-CHANGENR

    IMPORTING HEADER = CDHDR

    TABLES EDITPOS = ICDSHW

    EXCEPTIONS NO_POSITION_FOUND = 1

    OTHERS = 2.

    CHECK SY-SUBRC EQ 0.

    LOOP AT ICDSHW.

    CHECK ICDSHW-TEXT_CASE EQ SPACE.

    MOVE-CORRESPONDING ICDSHW TO ITAB.

    MOVE-CORRESPONDING ICDHDR TO ITAB.

    MOVE ICDSHW-TABKEY+3 TO ITAB-EKKEY.

    APPEND ITAB.

    ENDLOOP.

    ENDLOOP.

    ENDFORM.

    *

    END OF PROGRAM
  • 08 Aug 2013 7:17 am
    Your Functional Analyst should give you the hints and what changes you want to extract (the first one, the last one all of them, those that meet some specification?) Once you have a full specification, then you can give us more information about your problem and perhaps we'd be able to help you with this issue (IMO, your question is too general...)

    BTW, If you want to have a good , you may want to use hashed tables to maintain records read from cdhdr and cdpos. Hashed tables have a good access ratio and have a good behaviour when you're inserting records into them.
  • 08 Aug 2013 7:18 am
    Hi,

    There are standard Fms (and probably BAPIs) also which read CHD* tables. Check in SE11 with where used functionality..
  • 08 Aug 2013 7:18 am
    Hi,

    The way we track material changes on our Retail installation is done this
    way. Hope these hints will help.

    Take a look at package : WBBC (Retail - Assortment list)

    View : V_TBD62 is used to maintain field that are relevant for changes.
    Fields flag for "change document" are allowed in Material master tables and
    pricing conditions.

    Table : BDCP2 is used since ECC 6.0. Still CDHDR and CDPOS contain
    changes.

    IDOC : WBBDL and WPDWGR

    Program RWDPOSIN and RWDBBUPD are used to generate the IDOCs.
  • 08 Aug 2013 7:18 am
    CHANGEDOCUMENT_READ_RANGES
  • 08 Aug 2013 7:18 am
    If you have authorization to run transaction SE38 or SA38, you can execute the program "RSSCD1TS", Display Change Documents. Enter Object class "MATERIAL". You can restrict your output by a specific user, dates, or specific table. If you leave the Tablee name blank, it will bring up changes to tables: MLAN, MAKT, MARA, MARC, MARD, MBEW, MARM, The output also provide the t-code used to make the change
  • 08 Aug 2013 7:19 am
    SAP transaction AUT10 reads tables CDHDR and CDPOS (we have this in R3 4.7) . You would need to select either relevant material master tables/fields (MARA, MARC, etc) or relevant T-cde (MM02) in your selection (or both to refine your search). You can also select by user, date/time, etc. . Report shows before and after data for each change, wih change number, if used. Very easy to use and very powerful.
  • amit butola
    08 Aug 2013 7:20 am
    Ok, thanks for all your answers.

    The ?RSSCD1TS program is ok. There are also RSSCD100, RSSCD200 but my program is specific : select data recovery and select current data.
    For the data recovery it's ok but for current data, it's not ok.

    ?We were left to recover any changes to 'MARA-LAEDA > p_date' but there are too many changes. I could only column of my output file

    I would change's material for :

    MM06 (delete material)
    MM01 (create material)
    MM02 but for MM02 only for :

    - MARA-MTART
    - MARA-EAN11
    - MARA-MMSTA
    - MARA-LABOR
    - MARA-MEINS
    - MARC-SERNP
    - MAKT-MAKTX
    - ADV Text
    - MLAN-TAXIM
    - MVKE-PRODH
    - MVKE-VRKME
    - AUSP-ATWRT
    - MARM-UMREN
    - MARM-UMREZ
    - KONP-KBETR

    ?ME11 and ME12 for :

    - EINA-LIFNR
    - EINA-LSTNR
    It's OK with CDHDR-OBJECTCLAS = 'INFOSATZ'

    And then also changes for :

    ?the sales price 'P5' with validity date
    ?the info record price created
    ?VAT amount

    We selected prices condition into A508/KONP, A018/KONP and A002/MLAN

    How to select only these changes and with best times. Is it in CDHDR/CDPOS or in where other table ?
    BR