REPORT  zabap_gui.

TABLES: ekpo.

TYPES:
      BEGIN OF ty_ekpo,
        ebeln TYPE ekpo-ebeln,
        ebelp TYPE ekpo-ebelp,
        matnr TYPE ekpo-matnr,
        werks TYPE ekpo-werks,
        lgort TYPE ekpo-lgort,
      END OF ty_ekpo.


DATA:
      wa_ekpo TYPE ty_ekpo,
      it_ekpo TYPE STANDARD TABLE OF ty_ekpo.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln.

SELECT ebeln ebelp matnr werks lgort
  FROM ekpo INTO TABLE it_ekpo
  WHERE ebeln IN s_ebeln.

WRITE:/    'PO No.',
        15 'Item No',
        28 'Material',
        48 'Plant',
        55 'Storage'.
ULINE.
SKIP.

LOOP AT it_ekpo INTO wa_ekpo.
  WRITE:/    wa_ekpo-ebeln,
          15 wa_ekpo-ebelp,
          28 wa_ekpo-matnr,
          48 wa_ekpo-werks,
          55 wa_ekpo-lgort.
ENDLOOP.

***************************************************
REPORT  zabap_gui.

TABLES: ekpo.

TYPES:
      BEGIN OF ty_ekpo,
        ebeln TYPE ekpo-ebeln,
      END OF ty_ekpo.


DATA:
      wa_ekpo TYPE ty_ekpo,
      it_ekpo TYPE STANDARD TABLE OF ty_ekpo.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln.

SELECT DISTINCT ebeln
  FROM ekpo INTO TABLE it_ekpo
  WHERE ebeln IN s_ebeln.

WRITE:/    'PO No.'.
ULINE.
SKIP.

LOOP AT it_ekpo INTO wa_ekpo.
  WRITE:/    wa_ekpo-ebeln.
ENDLOOP.

Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com