Daten einer Tabelle über Daten aus einer internen Tabelle selektieren

Code: Alles auswählen.

SELECT bukrs blart bldat budat xblnr awkey awtyp cpudt
         FROM bkpf
         INTO CORRESPONDING FIELDS OF gs_bkpf
         WHERE bukrs IN so_bukrs AND
               blart IN so_blart AND
               cpudt IN so_cpudt.
  ENDSELECT.

  APPEND gs_bkpf TO gt_bkpf.

Code: Alles auswählen.

SELECT objky kschl erdat vstat
         FROM nast
         INTO CORRESPONDING FIELDS OF table gs_nast
         where objky in gt_bkpf-xblnr.

Code: Alles auswählen.

  SELECT objky kschl erdat vstat
          INTO CORRESPONDING FIELDS OF TABLE gs_nast
          FROM nast FOR ALL ENTRIES IN gt_bkpf
          WHERE objky IN gt_bkpf-xblnr.

Code: Alles auswählen.

TYPES: BEGIN OF ty_bkpf,
         bukrs TYPE bkpf-bukrs,
         blart TYPE bkpf-blart,
         bldat TYPE bkpf-bldat,
         budat TYPE bkpf-budat,
         xblnr TYPE bkpf-xblnr,
         awkey TYPE bkpf-awkey,
         awtyp TYPE bkpf-awtyp,
         cpudt TYPE bkpf-cpudt,
       END OF ty_bkpf,

       BEGIN OF ty_nast,
         objky TYPE nast-objky,
         kschl TYPE nast-kschl,
         erdat TYPE nast-erdat,
         vstat TYPE nast-vstat,
       END OF ty_nast.

Code: Alles auswählen.

DATA: gs_bkpf TYPE ty_bkpf,
      gs_nast TYPE ty_nast.

DATA: gt_bkpf TYPE STANDARD TABLE OF bkpf.

Code: Alles auswählen.

types: BEGIN OF ty_nast,
         objky TYPE c LENGTH 50,
         buk   TYPE c LENGTH 4,
         objkystern type c length 50,
       END OF ty_nast,
       BEGIN OF ty_toa02,
         sap_object TYPE toa02-sap_object,
         object_id  TYPE toa02-object_id,
         archiv_id  TYPE toa02-archiv_id,
         arc_doc_id TYPE toa02-arc_doc_id,
         ar_object  TYPE toa02-ar_object,
         ar_date    TYPE toa02-ar_date,
       END OF ty_toa02.

data: gt_nast  TYPE STANDARD TABLE OF ty_nast,
        gt_toa02 TYPE STANDARD TABLE OF ty_toa02. 

SELECT sap_object object_id archiv_id arc_doc_id ar_object ar_date
       INTO CORRESPONDING FIELDS OF TABLE gt_toa02
       FROM toa02 for all entries in gt_nast
       WHERE sap_object EQ 'X' AND
                   object_id like gt_nast-objkystern.