Interne Tabellen vereinen

Code: Alles auswählen.

REPORT  ZTEMP.

**** DATA ****
TABLES:
   CDPOS,
   VBAP,
   VBAK,
   VBUP.

DATA: lt_cdhdr type table of cdhdr with header line.
DATA: lt_editpos TYPE cdshw_tab.

DATA:  BEGIN OF WA_VA,
      	VBELN TYPE VBAP-VBELN
POSNR TYPE VBAP-POSNR´
MATNR TYPE VBAP-MATNR,
      	VABGRU TYPE VBAP-ABGRU,
LFSTA TYPE VBUP-LFSTA,
      	KUNNR TYPE VBAK-KUNNR,
      	VKORG TYPE VBAK-VKORG,
	VALUE_OLD TYPE CDPOS-VALUE_OLD.
VALUE_NEW TYPE CDPOS-VALUE_NEW.
END OF WA_VA.

DATA: IT_VA LIKE TABLE OF WA_VA.

**** PARAMETER ****

SELECT-OPTIONS s_vkorg FOR vbak-vkorg.


*** SELECT FÜR 1. INTERNE TABELLE IT_VA ***

SELECt VBAP~VBELN
       VBAP~POSNR
VBAP~MATNR
       VBAP~ABGRU
       VBUP~LFSTA
       VBAK~KUNNR
       VBAK~VKORG
INTO CORRESPONDING FIELDS OF TABLE IT_VA
FROM VBAP
INNER JOIN VBUP
ON VBAP~VBELN = vbup~vbeln
AND VBAP~posnr = vbup~posnr
INNER JOIN VBAK
ON VBAP~VBELN = VBAK~vbeln
WHERE VBAP~ABGRU = '  '
AND VBUP~lfsta NE 'C'
AND VBAK~VKORG in s_vkorg.

LOOP AT IT_VA INTO WA_VA.
ENDLOOP.

LT_CDHDR-objectid   = WA_VA-vbeln.

*** FUNKTIONSBAUSTEINE FÜR 2. INTERNE TABELLE LT_EDITPOS ***

      CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
           EXPORTING
                objectclass = 'VERKBELEG'
                objectid    = lt_cdhdr-objectid
* 		   username    = spacex
           TABLES
                i_cdhdr     = lt_cdhdr.

      LOOP AT lt_cdhdr.
        CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
             EXPORTING
                  changenumber = lt_cdhdr-changenr
             TABLES
                  editpos      = LT_EDITPOS.

      ENDLOOP.

.*** DAS SOLL GEMACHT WERDEN:

*  LT_EDITPOS-value_old --> IT_VA-value_old
*  LT_EDITPOS-value_new --> IT_VA-value_new

*** NUR WIE??