Code: Alles auswählen.
DATA:
gs_e070 TYPE e070,
gs_ctsproject TYPE ctsproject.
SELECT-OPTIONS:
so_trkor FOR gs_e070-trkorr,
so_user FOR gs_e070-as4user,
so_extid FOR gs_ctsproject-externalid.
TYPES:
BEGIN OF ts_list,
trkorr TYPE trkorr,
externalid TYPE tr_extpid,
task TYPE trkorrs,
END OF ts_list.
DATA:
gt_list TYPE STANDARD TABLE OF ts_list,
gs_list TYPE ts_list,
gv_trkorr TYPE trkorr.
*
SELECT e070~trkorr, ctsproject~externalid
INTO CORRESPONDING FIELDS OF @gs_list
FROM ( ( e070 JOIN e070a
ON e070a~trkorr = e070~trkorr )
LEFT JOIN ctsproject
ON ctsproject~trkorr = e070a~reference )
WHERE e070~trkorr IN @so_trkor
AND e070~as4user IN @so_user
AND ctsproject~externalid IN @so_extid.
SELECT trkorr FROM e070 INTO TABLE gs_list-task
WHERE strkorr = gs_list-trkorr.
APPEND gs_list TO gt_list.
ENDSELECT.
LOOP AT gt_list INTO gs_list.
WRITE: / gs_list-trkorr,
gs_list-externalid.
LOOP AT gs_list-task INTO gv_trkorr.
WRITE: / ' ', gv_trkorr.
ENDLOOP.
ENDLOOP.