Select * und Select von einzelnen Werten zugleich

Code: Alles auswählen.

PROGRAM.
*----------------------------------------------------------------------*
DATA:
  BEGIN OF xdata,
    trkorr   TYPE e070-trkorr,
    trstatus TYPE e070-trstatus,
    pgmid    TYPE e071-pgmid,
    object   TYPE e071-object,
    obj_name TYPE e071-obj_name,
  END   OF xdata,
  idata LIKE TABLE OF xdata,
  fd  TYPE string,
  ifd TYPE string_table.
*----------------------------------------------------------------------*
START-OF-SELECTION.
  fd = 'E070~TRKORR E070~TRSTATUS E071~PGMID E071~OBJECT E071~OBJ_NAME'.
  SELECT (fd) INTO TABLE idata UP TO 100 ROWS
                               FROM e070
                               JOIN e071 ON e071~trkorr = e070~trkorr.
  BREAK-POINT.
  APPEND: 'E070~TRKORR'   TO ifd,
          'E070~TRSTATUS' TO ifd,
          'E071~PGMID'    TO ifd,
          'E071~OBJECT'   TO ifd,
          'E071~OBJ_NAME' TO ifd.
  SELECT (ifd) INTO TABLE idata UP TO 100 ROWS
                                FROM e070
                                JOIN e071 ON e071~trkorr = e070~trkorr.
  BREAK-POINT.