*CABECERA.
SELECT ebeln aedat reswk ekgrp bedat
FROM ekko INTO CORRESPONDING FIELDS OF TABLE t_zekko
WHERE aedat < sy-datum
AND bsakz EQ 'T'
AND bstyp EQ 'F'
AND statu EQ '9'
AND ebeln BETWEEN 430000000 AND 4399999999.
IF NOT t_zekko[] IS INITIAL.
**Articulos.
SELECT ebeln ebelp matnr menge
INTO CORRESPONDING FIELDS OF TABLE t_zekpo
FROM ekpo
FOR ALL ENTRIES IN t_zekko
WHERE ebeln EQ t_zekko-ebeln
AND loekz NE 'L'.
***Tallas
SELECT ebeln ebelp j_3asize menge
INTO CORRESPONDING FIELDS OF TABLE t_zeket
FROM eket
FOR ALL ENTRIES IN t_zekko
WHERE ebeln EQ t_zekpo-ebeln
AND ebelp EQ t_zekpo-ebelp.
ENDIF.