Joining vbak to cdhdr table for document changes

Question

Hi Expert
I am hanging for a week in this project please need some advice
I want to join vbak table with cdhdr and select
vbak.vkbur (plant) and want to show that vkbur in the internal table of it_cdhdr
so as to select only those plant belong to vkbur so how can I join base on the below coding................
REPORT ZCHGDOC
NO STANDARD PAGE HEADING LINE-SIZE 120.
WRITE: sy-title, 40 'Page', sy-pagno.
ULINE.
TABLES: CDHDR,
         CDPOS,
         t001w,
         "VKBUR,
         "VBELN,
         VBAK,
         VBAP.
SELECTION-SCREEN BEGIN OF BLOCK DOCUMENT WITH FRAME TITLE TEXT-701.
SELECTION-SCREEN END OF BLOCK DOCUMENT.
SELECT-OPTIONS:
                 V1 FOR VBAK-VKBUR,
                 S_WERKS for T001W-werks,
                 objectid for  cdhdr-objectid,
                 udate for cdhdr-udate.
PARAMETER: USERNAME LIKE CDHDR-USERNAME.
DATA: BEGIN OF IT_VBAP OCCURS 0,
         OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
         OBJECTID LIKE CDHDR-OBJECTID,
         VBELN LIKE VBAP-VBELN,
          END OF IT_VBAP.
DATA: BEGIN OF IT_CDHDR OCCURS 0,
         OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
         OBJECTID LIKE CDHDR-OBJECTID,
         CHANGENR LIKE CDHDR-CHANGENR,
         USERNAME LIKE CDHDR-USERNAME,
         UDATE LIKE CDHDR-UDATE,
         UTIME LIKE CDHDR-UTIME,
         FNAME LIKE CDPOS-FNAME,
         TABNAME LIKE CDPOS-TABNAME,
         TABKEY LIKE CDPOS-TABKEY,
         VALUE_NEW LIKE CDPOS-VALUE_NEW,
         VALUE_OLD LIKE CDPOS-VALUE_OLD,
END OF IT_CDHDR.
DATA: WA LIKE LINE OF IT_CDHDR.
DATA: WA LIKE LINE OF IT_CDPOS.
DATA: BEGIN OF IT_CDPOS OCCURS 0,
         OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
         OBJECTID LIKE CDHDR-OBJECTID,
         CHANGENR LIKE CDHDR-CHANGENR,
         TABNAME LIKE CDPOS-TABNAME,
         TABKEY LIKE CDPOS-TABKEY,
         FNAME LIKE CDPOS-FNAME,
         VALUE_NEW LIKE CDPOS-VALUE_NEW,
         VALUE_OLD LIKE CDPOS-VALUE_OLD,
END OF IT_CDPOS.
Move-corresponding it_cdhdr to wa.
Move-corresponding it_cdpos to wa.
SELECT OBJECTCLAS
        OBJECTID
        CHANGENR
        USERNAME
        UDATE
        UTIME FROM CDHDR
        INTO CORRESPONDING FIELDS OF TABLE IT_CDHDR
WHERE OBJECTCLAS = 'VERKBELEG' or
      objectclas = 'BETRIEB'
      ORDER BY UDATE.
WHERE OBJECTCLAS = 'VERKBELEG'
OR OBJECTCLAS = 'BETRIEB' ORDER BY UDATE.
Filter data based upon Plant selection criteria.
IF NOT S_WERKS[] IS INITIAL.
DELETE IT_CDHDR WHERE NOT OBJECTID IN S_WERKS.
ENDIF.
IF IT_CDHDR[] IS NOT INITIAL.
   SELECT OBJECTCLAS
          OBJECTID
          CHANGENR
          VALUE_NEW
          VALUE_OLD
          FNAME
          TABNAME
          TABKEY
          FROM CDPOS
          INTO CORRESPONDING FIELDS OF TABLE IT_CDPOS
          FOR ALL ENTRIES IN IT_CDHDR
          WHERE
          OBJECTCLAS = IT_CDHDR-OBJECTCLAS
          AND OBJECTID = IT_CDHDR-OBJECTID
          AND CHANGENR = IT_CDHDR-CHANGENR.
          "or tabname = 'VBAP'.
   SORT IT_CDPOS BY OBJECTCLAS OBJECTID CHANGENR.
ENDIF.
Add tables CDPOS DATA TO CDHDR.
DATA: INDEX TYPE i.
LOOP AT IT_CDHDR.
   INDEX = SY-TABIX.
   READ TABLE IT_CDPOS WITH KEY OBJECTCLAS = IT_CDHDR-OBJECTCLAS
   OBJECTID = IT_CDHDR-OBJECTID
   CHANGENR = IT_CDHDR-CHANGENR BINARY SEARCH.
   IF SY-SUBRC = 0.
     IT_CDHDR-VALUE_NEW = IT_CDPOS-VALUE_NEW.
     IT_CDHDR-VALUE_OLD = IT_CDPOS-VALUE_OLD.
     MODIFY IT_CDHDR INDEX index TRANSPORTING value_new value_old.
   ENDIF.
   WRITE:/ SY-DATUM,SY-UZEIT,
          50 'DOCUMENT CHANGE REPORT',
         80 'Page', SY-PAGNO,
"  WRITE: / SY-REPID
          50 'DETAIL REPORT BY PLANT '.
   SKIP.
   ULINE.
*& T O P - O F - P A G E *
WRITE:/ 'UDATE:' ,SY-DATUM.
FORMAT COLOR 4 INTENSIFIED on.
Write: /35                           ' DOCUMENT CHANGES REPORT '.
   WRITE: /5 'DOCUMENT-NO'.
20 'TABNAME', 30 'TEXT_CASE', 50 'FNAME'.
   WRITE: /5 'DATE',  20 'FNAME', 45 'CHANGE-NO',65 'OLD-VALUE',80 'NEW-VALUE',95 'USER-NAME'.
   ULINE.
   LOOP AT IT_CDHDR INTO WA.
   on change of wa-objectid.
   Write: / wa-objectid UNDER'DOCUMENT-NO' ."color col_key.
   ENDON.
ULINE.
     " CDPOS-tabname UNDER'TABNAME', CDPOS-TEXT_CASE UNDER'TEXT_CASE',CDPOS-fname UNDER'FNAME'. "color col_key ,
     write: / wa-udate dd/mm/yyyy under'DATE' NO-GAP,wa-fname under'FNAME' NO-GAP,wa-changenr under 'CHANGE-NO',
     wa-value_old under'OLD-VALUE' LEFT-JUSTIFIED NO-GAP,
     wa-value_new under'NEW-VALUE' LEFT-JUSTIFIED NO-GAP ,wa-username under'USER-NAME' NO-GAP.
ENDON.
Move-corresponding it_cdhdr to wa.
*Write: / wa-objectid UNDER'DOCUMENT-NO' "color col_key.
*" CDPOS-tabname UNDER'TABNAME', CDPOS-TEXT_CASE UNDER'TEXT_CASE',CDPOS-fname UNDER'FNAME'. "color col_key ,
*write: / wa-udate dd/mm/yyyy under'DATE' NO-GAP,wa-utime under'TIME' NO-GAP,wa-changenr under 'CHANGE-NO',
ltrim(wa-value_old) under'OLD-VALUE' NO-GAP,
*wa-value_new under'NEW-VALUE' NO-GAP ,wa-username under'USER-NAME' NO-GAP.
   ENDLOOP.
ENDLOOP.

Answer 1

Hai everybody.
I am new to this forum. i got a job in abap recently. The below is my requirement.I want solution for this one. Anybody plz help me.
The change logs were captured in DBTABLOG for table ZWPRFRUND (in transaction ZWPG).
The only report which is currently used to get the change logs is RSVTPROT
Now my requirement is,
we need to display the change logs in the form of ALV.
We should divert the changes to CDHDR table instead of DBTABLOG, then we can use the RSSCD100 to display change logs.
The Important items for the change LOG needed in case of changes to table in “ZWPG” are,DATE ,TIME,USER,FIRST NAME,FILED NAME,OLD VALUE,NEW VALUE
The above fields need to be displayed in the grid. In the above list “FIELD NAME” denotes any field of the table in the transaction in “ZWPG”
Thanks & Regards,
Sujatha.T.